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

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

2、 C、2x D、and4. 選拔身高T超過(guò)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”的語(yǔ)句是（ 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è)字符開(kāi)始的5個(gè)6. 如果x小于y的平方，則在窗體上輸出“OK”。完成該要求的單行條件語(yǔ)句是（ 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. 以下條件語(yǔ)句錯(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í)在文本框中只顯示*號(hào)，則應(yīng)用在此文本框的屬性

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

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

6、相關(guān)的一段程序代碼稱為 事件過(guò)程代碼 。3. 循環(huán)語(yǔ)句FOR k=2 TO 30 STEP 5 使循環(huán)體執(zhí)行的次數(shù)是 6 。 4. 可表示50,100之間的隨機(jī)數(shù)的語(yǔ)句是 int(rnd*51+50) 。5. Print方法分區(qū)輸出時(shí)，用 逗號(hào) 分隔多個(gè)表達(dá)式。當(dāng)輸出多個(gè)表達(dá)式或字符串時(shí)，各表達(dá)式用分隔符(逗號(hào)、分號(hào)或空格)隔開(kāi)。如果輸出的各表達(dá)式之間用逗號(hào)分隔，則按標(biāo)準(zhǔn)輸出格式(分區(qū)輸出格式)顯示數(shù)據(jù)項(xiàng)。6. 強(qiáng)制性退出ForNext循環(huán)的語(yǔ)句是 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打開(kāi)工程文件A3-1.vbp，完成以下操作，并以原文件名保存。 P651 設(shè)置窗體運(yùn)行后出現(xiàn)在屏幕中心；（2分）2 設(shè)置口令的長(zhǎng)度小于等于6；（3分）3 設(shè)置輸入的口令以“*”顯示；（3分）4 設(shè)置“確定”按鈕為缺省按鈕。（2分）2打開(kāi)工程文件A3-2.vbp，完成以下操作，并以原文件名保存。 P1111 在文本框中輸入課程名稱，單擊“添加”按鈕，將該課程添加到列表框中，并清文本框的內(nèi)容；（3分）2 選中列表框某課程，單擊“刪除”按鈕，將選中的課程從列表框中

8、刪除；（4分）3 單擊“清除”按鈕，清除列表框中的所有課程。（3分）得分四、 程序填空（共4小題，每小題2空，每空3分，共24分）說(shuō)明：打開(kāi)已有的工程文件，根據(jù)要求實(shí)現(xiàn)的功能，在“?”處用相應(yīng)的代碼代替（不得刪除原有的代碼，必須在?處填寫(xiě)），使程序能正常運(yùn)行。1 打開(kāi)考試目錄下的“A4-1.vbp”，完善程序并保存。要求：（1） 圓的半徑r利用InputBox函數(shù)從鍵盤(pán)輸入（r0）。（2） 圓周率定義為符號(hào)常量。（3） 求圓的周長(zhǎng)lenth和面積area。（4） 用Print方法輸出圓的周長(zhǎng)和面積。原程序：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, 周長(zhǎng)=; lenth, 面積=; areaEnd Sub2 打開(kāi)考試目錄下的“A4-2.vbp”，完善程序并保存。要求實(shí)現(xiàn)功能：利用Do WhileLoop語(yǔ)句求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 打開(kāi)考試目錄下的“A4-3.vbp”，完善程序并保存。已知計(jì)算機(jī)等級(jí)考試的百分制成績(jī)mark，要求用Select Case語(yǔ)句將百分制成績(jī)mark轉(zhuǎn)換成對(duì)應(yīng)五級(jí)制的評(píng)定grade。評(píng)定條件如下：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ù)（感覺(jué)題目類型太多）8. 級(jí)數(shù)有限項(xiàng)求和問(wèn)題（題目類型太多）9. 求質(zhì)因子問(wèn)題Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(Input

12、Box(請(qǐng)輸入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ù)過(guò)程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順序查找過(guò)程Private Sub Command1_Click()Di