一VB程序設計基礎練習題庫

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

2、 C、2x D、and4. 選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達式為（ C ）。A、T=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W62.55. 設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個字符開始的5個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. 以下條件語句錯誤的是（ 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. 若要求從文本框中輸入密碼時在文本框中只顯示*號，則應用在此文本框的屬性

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

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

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

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

8、刪除；（4分）3 單擊“清除”按鈕，清除列表框中的所有課程。（3分）得分四、 程序填空（共4小題，每小題2空，每空3分，共24分）說明：打開已有的工程文件，根據(jù)要求實現(xià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”，完善程序并保存。要求實現(xiàn)功能：利用Do WhileLoop語句求s=12+22+1002。（運行效果如下圖所示）。原程序：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”，完善程序并保存。已知計算機等級考試的百分制成績mark，要求用Select Case語句將百分制成績mark轉換成對應五級制的評定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ù)有限項求和問題（題目類型太多）9. 求質因子問題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)計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. 判定素數(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