一VB程序設(shè)計(jì)基礎(chǔ)練習(xí)題庫

1、.一、 單選題（共15小題，每小題2分，共30分） 1. 以下敘述中，錯(cuò)誤的是（B ）。A) 在Visual Basic中，對象所能響應(yīng)的事件是由系統(tǒng)定義的B) 對象的任何屬性既可以通過屬性窗口設(shè)定，也可以通過程序語句設(shè)定C) Visual Basic中允許不同對象使用相同名稱的方法D) Visual Basic中的對象具有自己的屬性和方法2. 下列敘述中，錯(cuò)誤的是（ C ）。A、VB是可視化程序設(shè)計(jì)語言B、VB采用事件驅(qū)動(dòng)編程機(jī)制C、VB是面向過程(對象)的程序設(shè)計(jì)語言D、VB應(yīng)用程序可以以編譯方式執(zhí)行3. 下列（ A ）是合法的變量名。A、x_y （合法變量名以字母或下劃線頭） B、x-y

2、 C、2x D、and4. 選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達(dá)式為（ C ）。A、T=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W62.55. 設(shè)a=”Visual Basic”，下面使b=”Basic”的語句是（ B ）A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 取字符串a(chǎn)第8個(gè)字符開始的5個(gè)6. 如果x小于y的平方，則在窗體上輸出“OK”。完成該要求的單行條件語句是（ C ）。A、If x y 2 Then OK B、If

3、x y 2 Then Show OKC、If x y 2 Then Print OK D、f x y,x,y) B、if xy Then Max=x Else Max=yC、Max=x D、if y=x Then Max=y（Else） If y=x Then Max=y Max=x9. 以下條件語句錯(cuò)誤的是（ A ）。A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0C、If X 0 Then Y = 1: Print Y D、If X Y Then Print Y End If10. 若要求從文本框中輸入密碼時(shí)在文本框中只顯示*號，則應(yīng)用在此文本框的屬性

4、窗口中設(shè)置（ D ）。A、Text屬性值為* B、Caption屬性值為*C、Password屬性值為空D、PasswordChar屬性值為*11. 設(shè)置標(biāo)簽Label1的屬性使它不可見的語句是（ D ）。A、Label1.Visible = -1 B、Label1.Visible = 1C、Label1.Visible = true D、Label1.Visible = False 12. 修改控件屬性，既可以使用屬性窗口，也可以通過（ D ）為控件屬性賦值。A、屬性 B、事件 C、方法 D、代碼13. 在程序代碼中引用一個(gè)控件時(shí)，應(yīng)使用控件的（ B ）屬性。A）Caption B）Name

5、 C）Text D）Index14. 若要獲得列表框中被選中的列表框的內(nèi)容，可以通過訪問（ B ）屬性來實(shí)現(xiàn)。A）Name B）ListIndex C）ListCount D）Text15. 以下敘述中正確的是（ B ）。 16. A一個(gè) Sub 過程至少要一個(gè) Exit Sub 語句 （）B一個(gè) Sub 過程必須有一個(gè) End Sub 語句 C可以在 Sub 過程中定義一個(gè) Function 過程，但不能定義 Sub 過程 D調(diào)用一個(gè) Function 過程可以獲得多個(gè)返回值 得分二、 填空題（共8空，每空2分，共16分）1. InputBox函數(shù)返回值的類型為 string 。2. 與事件

6、相關(guān)的一段程序代碼稱為 事件過程代碼 。3. 循環(huán)語句FOR k=2 TO 30 STEP 5 使循環(huán)體執(zhí)行的次數(shù)是 6 。 4. 可表示50,100之間的隨機(jī)數(shù)的語句是 int(rnd*51+50) 。5. Print方法分區(qū)輸出時(shí)，用 逗號 分隔多個(gè)表達(dá)式。當(dāng)輸出多個(gè)表達(dá)式或字符串時(shí)，各表達(dá)式用分隔符(逗號、分號或空格)隔開。如果輸出的各表達(dá)式之間用逗號分隔，則按標(biāo)準(zhǔn)輸出格式(分區(qū)輸出格式)顯示數(shù)據(jù)項(xiàng)。6. 強(qiáng)制性退出ForNext循環(huán)的語句是 exit for 。7. 當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的屬性窗口中，把此文本框的 caption 屬性設(shè)置

7、成空白。8. 為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的方法是 setfocus 。得分三、 基本操作題（共2小題，每小題10分，共20分）1打開工程文件A3-1.vbp，完成以下操作，并以原文件名保存。 P651 設(shè)置窗體運(yùn)行后出現(xiàn)在屏幕中心；（2分）2 設(shè)置口令的長度小于等于6；（3分）3 設(shè)置輸入的口令以“*”顯示；（3分）4 設(shè)置“確定”按鈕為缺省按鈕。（2分）2打開工程文件A3-2.vbp，完成以下操作，并以原文件名保存。 P1111 在文本框中輸入課程名稱，單擊“添加”按鈕，將該課程添加到列表框中，并清文本框的內(nèi)容；（3分）2 選中列表框某課程，單擊“刪除”按鈕，將選中的課程從列表框中

8、刪除；（4分）3 單擊“清除”按鈕，清除列表框中的所有課程。（3分）得分四、 程序填空（共4小題，每小題2空，每空3分，共24分）說明：打開已有的工程文件，根據(jù)要求實(shí)現(xiàn)的功能，在“?”處用相應(yīng)的代碼代替（不得刪除原有的代碼，必須在?處填寫），使程序能正常運(yùn)行。1 打開考試目錄下的“A4-1.vbp”，完善程序并保存。要求：（1） 圓的半徑r利用InputBox函數(shù)從鍵盤輸入（r0）。（2） 圓周率定義為符號常量。（3） 求圓的周長lenth和面積area。（4） 用Print方法輸出圓的周長和面積。原程序：Private Sub Command1_Click() Dim r As Single

9、 Dim lenth As Single, area As Single Const ? PI=3.14159 r = ? Val(InputBox(“圓的半徑”,0) lenth = 2 * PI * r area = PI * r * r Print 半徑=; r, 周長=; lenth, 面積=; areaEnd Sub2 打開考試目錄下的“A4-2.vbp”，完善程序并保存。要求實(shí)現(xiàn)功能：利用Do WhileLoop語句求s=12+22+1002。（運(yùn)行效果如下圖所示）。原程序：Private Sub Command1_Click() Dim n As Integer, s As Lo

10、ng n = 1: s = 0 Do While ? n101 s = ? s+n*n n = n + 1 Loop Print s=; sEnd Sub3 打開考試目錄下的“A4-3.vbp”，完善程序并保存。已知計(jì)算機(jī)等級考試的百分制成績mark，要求用Select Case語句將百分制成績mark轉(zhuǎn)換成對應(yīng)五級制的評定grade。評定條件如下：mark85，優(yōu)60mark85，合格mark =85 grade = 優(yōu) Case 60 To 84 grade = 合格 ? Case Is0 If x amax Then amax = x End If If ? x max Then max

11、 = a(i)If a(i) n1 Then 為了求最小公倍數(shù)，增加m,n變量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ,; m1; 的最大公約數(shù)為; nPrint 最小公倍數(shù)=, m1 * n1 / nEnd Sub7.求逆序數(shù)（感覺題目類型太多）8. 級數(shù)有限項(xiàng)求和問題（題目類型太多）9. 求質(zhì)因子問題Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(Input

12、Box(請輸入2的整數(shù):)I = 2DoIf N Mod I = 0 ThenPrint I;N = N IElseI = I 1End IfLoop While N 1End Sub10. 字符統(tǒng)計(jì)Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integerDim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)=”A” And

13、 UCase(S)=”Z” ThenA(Asc(UCase(S)-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub第二大題1. 判定素?cái)?shù)過程Function isprime(Num As Long) As BooleanIf Num = B, A, B) x存入最大值Y = IIf(A a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub4順序查找過程Private Sub Command1_Click()Di