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

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

2、選拔身高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.5設(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個字符開場的5個如果*小于y的平方，則在窗體上輸出“OK。完成該要求的單行條件語句是 C 。A、If * y 2 Then OK B、If * y 2 Then Show OKC、If * y 2 Th

3、en Print OK D、f * y,*,y) B、if *y Then Ma*=* Else Ma*=yC、Ma*=* D、if y=* Then Ma*=yElse If y=* Then Ma*=y Ma*=*以下條件語句錯誤的選項是 A 。A、If * Then Y = Y + 1 B、If * = 0 Then Y = 0C、If * 0 Then Y = 1: Print Y D、If * Y Then Print Y End If假設(shè)要求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中設(shè)置 D 。A、Te*t屬性值為* B、Caption屬性值為*C、Pa

4、ssword屬性值為空D、PasswordChar屬性值為*設(shè)置標簽Label1的屬性使它不可見的語句是 D 。A、Label1.Visible = -1 B、Label1.Visible = 1C、Label1.Visible = true D、Label1.Visible = False修改控件屬性，既可以使用屬性窗口，也可以通過 D 為控件屬性賦值。A、屬性 B、事件 C、方法 D、代碼在程序代碼中引用一個控件時，應(yīng)使用控件的 B 屬性。ACaption BNameCTe*t DInde*假設(shè)要獲得列表框中被選中的列表框的內(nèi)容，可以通過訪問 B 屬性來實現(xiàn)。AName BListInde

5、*CListCount DTe*t以下表達中正確的選項是 B 。A一個 Sub 過程至少要一個 E*it Sub 語句 B一個 Sub 過程必須有一個 End Sub 語句 C可以在 Sub 過程中定義一個 Function 過程，但不能定義 Sub 過程 D調(diào)用一個 Function 過程可以獲得多個返回值 得分二、 填空題共8空，每空2分，共16分InputBo*函數(shù)返回值的類型為 string。與事件相關(guān)的一段程序代碼稱為事件過程代碼 。循環(huán)語句FOR k=2 TO 30 STEP 5 使循環(huán)體執(zhí)行的次數(shù)是 6 。 可表示50,100之間的隨機數(shù)的語句是 int(rnd*51+50) 。

6、Print方法分區(qū)輸出時，用 逗號 分隔多個表達式。當輸出多個表達式或字符串時，各表達式用分隔符(逗號、分號或空格)隔開。如果輸出的各表達式之間用逗號分隔，則按標準輸出格式(分區(qū)輸出格式)顯示數(shù)據(jù)項。強制性退出ForNe*t循環(huán)的語句是e*it for 。當程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，應(yīng)當在此文本框的屬性窗口中，把此文本框的 caption 屬性設(shè)置成空白。為了把焦點移到*個指定的控件，所使用的方法是setfocus 。得分三、 根本操作題共2小題，每題10分，共20分1翻開工程文件A3-1.vbp，完成以下操作，并以原文件名保存。 P65設(shè)置窗體運行后出現(xiàn)在屏幕中心；

7、2分設(shè)置口令的長度小于等于6；3分設(shè)置輸入的口令以“*顯示；3分設(shè)置“確定按鈕為缺省按鈕。2分2翻開工程文件A3-2.vbp，完成以下操作，并以原文件名保存。 P111在文本框中輸入課程名稱，單擊“添加按鈕，將該課程添加到列表框中，并清文本框的內(nèi)容；3分選中列表框*課程，單擊“刪除按鈕，將選中的課程從列表框中刪除；4分單擊“去除按鈕，去除列表框中的所有課程。3分得分四、 程序填空共4小題，每題2空，每空3分，共24分說明：翻開已有的工程文件，根據(jù)要*現(xiàn)的功能，在“處用相應(yīng)的代碼代替不得刪除原有的代碼，必須在處填寫，使程序能正常運行。翻開考試目錄下的“A4-1.vbp，完善程序并保存。要求：圓的

8、半徑r利用InputBo*函數(shù)從鍵盤輸入r0。圓周率定義為符號常量。求圓的周長lenth和面積area。用Print方法輸出圓的周長和面積。原程序：Private Sub mand1_Click() Dim r As Single Dim lenth As Single, area As SingleConst PI=3.14159 r = Val(InputBo*(“圓的半徑,0) lenth = 2 * PI * r area = PI * r * r Print 半徑=; r, 周長=; lenth, 面積=; areaEnd Sub翻開考試目錄下的“A4-2.vbp，完善程序并保存。要

9、*現(xiàn)功能：利用Do WhileLoop語句求s=12+22+1002。運行效果如以下圖所示。原程序：Private Sub mand1_Click()Dim n As Integer, s As Long n = 1: s = 0 Do While n101s = s+n*nn = n + 1 Loop Print s=; sEnd Sub翻開考試目錄下的“A4-3.vbp，完善程序并保存。計算機等級考試的百分制成績mark，要求用Select Case語句將百分制成績mark轉(zhuǎn)換成對應(yīng)五級制的評定grade。評定條件如下：mark85，優(yōu)60mark85，合格mark =85 grade =

10、 優(yōu) Case 60 To 84 grade = 合格 Case Is0 If * ama* Then ama* = * End If If * ma* Then ma* = a(i)If a(i) n1 Then 為了求最小公倍數(shù)，增加m,n變量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then E*it Dom = nn = rLoopPrint n1; ,; m1; 的最大公約數(shù)為; nPrint 最小公倍數(shù)=, m1 * n1 / nEnd Sub7.求逆序數(shù)感覺題目類型太多8. 級數(shù)有限項求和問題題目類型太

11、多9. 求質(zhì)因子問題Private Sub mand1_Click()Dim N As Integer, I As IntegerN = Val(InputBo*(請輸入2的整數(shù):)I = 2DoIf N Mod I = 0 ThenPrint I;N = N IElseI = I 1End IfLoop While N 1End Sub10. 字符統(tǒng)計Option Base1Option E*plicitPrivate Sub mand1_Click()Dim i as integer，A(26) as integer，n as integerDim S as string*1,Strl a

12、s stringStrl=Te*t1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)=A And UCase(S)=Z ThenA(Asc(UCase(S)-64)+1End IfNe*t iFor i=1 To 26List1.Additem Chr(64+i) & “: & A(i)Net* iEnd SubPrivate Sub mand_Click()EndEnd Sub第二大題1. 判定素數(shù)過程Function isprime(Num As Long) As BooleanIf Num = B, A, B) *存入最大值Y = IIf(A a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNe*tNe*tEnd Sub4順序查找過程Private Sub mand1_Click()Dim i, j, t