1、卷1一、填空題I、 VB程序設計的主要特點是可視化設計和事件編程。2、在VB中，最主要的兩種對象是窗體form和控件 。3、 工程是構成應用程序文件的集合。4、 方法是VB提供的一種特殊子程序，用來完成一定的操作。5、浮點類型數據包括單精度型和_雙精度_數據。6、 事件是窗體或控件對象識別的動作。7、 可用窗體的_print_方法在窗體中顯示文字。8、 復選框控件Value屬性指示復選框處于選中或制止狀態（暗淡的） 中的某一種。9、在VB中，修改窗體的高度height和 寬度width 屬性值，可改變窗體的大小。10、 雙擊工具箱中的控件圖標，可在窗體的中央出現一個尺寸為缺省值的控件。II、

2、在MsgBox函數中，如果缺省title 參數，那么使用工程1 作 為消息框的標題。12、設 x = 34.58，語句 Print Format（x, “000.0 ”）的輸出結果是 34.6。13、 在VB中，數值型變量的初值為0 ，Vara nt型變量的初值為 空，布爾型變量的初值為FALSE 。14、 設置窗體的picture屬性，可在窗體上顯示圖片。15、 程序運行工程中，去除 MP圖片框中的圖片應使用語句cis 。二、選擇題1、 菜單控件只包括一個事件，即 C ，當用鼠標單擊或鍵盤選中后按 “回車鍵時觸發該事件，除分隔條以外的所有菜單控件都能識別該事件。A GotFocusB、Loa

3、dC、ClickD KeyDown2、 滾動條控件（如下圖）的Max屬性所設置的是A 。A、滾動框處于最右位置時，一個滾動條位置的Value屬性最大設置值B 單擊滾動條和滾動箭頭之間的區域時，滾動條中滾動塊的最大移動量C單擊滾動條的箭頭區域時，滾動條中滾動塊的最大移動量D滾動條控件無該屬性3、 SQL 語句 Select * Form student中的 *表示 B 。A、所有記錄B、所有字段C、所有表D都不對4、 以下選項中，不屬于標簽的屬性是C 。A、EnabledB CaptionC、DefaultD Font5、 要求改命令按鈕顯示的文本，應當在屬性窗口中改變的屬性是AA Captio

4、nB、NameC、TextD Label6、設置一個單項選擇按鈕(OptionButton)所代表選項的選中狀態，應當在屬性窗口中改變的屬性是D 。A、CaptionB NameCCTextD Value7、允許在菜單項的左邊設置打勾標記，A、在標題項中輸入&然后打勾 中打勾C在有效項中打勾8當執行以下過程時，在窗體上將顯示Private Sub Comma nd1_Click() Prin t VB;Prin t Hello!;Prin t VBEnd SubA VBHello!VBF面哪種論述是正確的？D 。B在索引項D在復選項中打勾A 。B、VBHello!VBD VBC、VBHello

5、! VBHello!VB9、 語句 Print The answer is:;20/4-2的結果為B 。A The answer is 20/4-2B、The answer is 3C、The answer is 20/4-2D 非法語句10、 以下哪個控件是容器控件B 。A ImageB、PictureCCComboBoxD11、 假設要將窗體從內存中卸載出去，其實現的方法是D 。A.ShowB.HideC.LoadD.U nLoad12、 以下選項中，不是 Visual Basic 控件的是A 。A.窗體B.定時器C.單項選擇框D.命令按鈕13、 雙擊窗體中的對象后，Visual Basi

6、c 將顯示的窗口是A 。A.代碼窗口B.工具箱C.工程工程窗口D.屬性窗口14、 可決定窗體的左上角是否有控制菜單的屬性是A 。A.Co ntrolBoxB.Mi nButt onC.MaxButt onD.BorderStyle15、設有如下語句：Strl = InputBox輸人,練習丨從鍵盤上輸人字符“例如后，Strl的值是 D 。A. “輸入B. “練習D“例如16、 窗體Form1的Name屬性是Frm1,它的單擊事件過程名是CA. Form1_ClickB.Form_ClickC. Frm1_ClickD.C.裝C 。D. TextC. BackColorC. DriveMe_Cl

7、ick17、窗體的hide屬性的含義是AA.隱藏B.展現入D.卸載18、假設要設置定時器控件的定時時間，需設置的屬性是A. EnabledB. Value C. Interval19、 能夠改變復選框中背景顏色的屬性是C 。A. ValueB. FontColorD. Font20、 窗體能響應的事件是B 。A. ActiveFormB. LoadD. Change、判斷題(判斷以下正確與否，正確的打V,錯誤的打x。)1、 三種方式的組合框都允許用戶輸入哪些不在列表框中的選項。X2、圖象框中的Stretch屬性為true時，其作用是圖形自動調整大小以適應圖 象控件。X3、在菜單編輯器中使用“索

8、引時，可有一組菜單項具有一樣的“名字。；4、通過改變屬性窗口中的 NamelS性，來改變窗體的標題。5、創立VB應用程序的三個主要步驟是：(1)創立應用程序界面(2)設置控件(3) 編寫代碼。X6、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常 量。7、P= MsgBox( “Howareyou?, VbYesNo+VbQuestion “ Hello!)，變量 P 是Integer數據類型。&工程文件的擴展名是.vbg 。9、VB允許設計和使用用戶自己設計的控件。10、OptionButton 控件沒有 DblCliek 事件。X11、同一條記錄中的各數據具有一樣的類型。1

9、2、 使用Data控件可以直接顯示數據庫中的數據。X13、ImageList 是一個圖像容器控件，可用作工具欄的圖像庫。14、 當用戶單擊工具欄按鈕時，將觸發工具欄按鈕的ButtonClick事件。15、在VB的工程資源管理器中，如果從工程中移除已經保存過的文件，該文 件仍然被物理刪除真正刪除。X16、如果列表框的ListConut的屬性為10,那么列表框最后一項的ListIndex 值為10。X17、 要是某個命令按鈕不起作用，應將該按鈕的Enabeld屬性設置為False。18、 使用數組定義語句：Dim D$ 10，那么數組D中各元素的值為空。X19、 如果在一行中輸入多條語句，各語句之

10、間用使用；分隔。X20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該 行代碼有語法錯誤。四、讀程序題，寫出程序運行結果1、 Private Sub Form_Click()Static SUM As In tegerI = 1Do While I=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub運行程序，第一次單擊窗體： 55第二次單擊窗體：1102、Private Sub Form_Click()Prin t *; Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2

11、 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub程序運行結果：*251530一窗體中有圖片框(Picture1)和計時器(Timer1)兩個控件，運行程序時, 將圖片加載到圖片框中，然后圖片框以每 2秒鐘一次的速度向窗體的右下腳移 動，每次向左、向右移動100twip 20分之一像素。請填空：Private Sub Form_load()Picture1.picture =oadPicture( picCball.ico ” )Timer1 .In terval=200End SubPrivate Sub Timer1_T

12、imer()Static x , y As In tegerx=x+100y=y+100 Picturel.Move x , yEnd Sub二有一個單擊按鈕過程，其作用是產生50個60100的隨機數，統計其中被6整除余2的個數，并將這些數輸出。請填空：Private Sub Comma nd1_Click()Dim x As In teger, N%Dim Coun ter As In tegerran domizeTimerFor N=1 To 50X=R nd()*rnd()*41+60If x Mod 6 =2 ThenPrint xCoun ter= Coun ter+1 End i

13、fNext NPrint Coun terEnd Sub第一局部：客觀題一、 單項選擇題1、 在窗體模塊的通用段中聲明變量時，不能使用的關鍵字是A Dim B 、Public C 、Private D 、Static2、在設計階段，當雙擊窗體上的某個控件時，所翻開的窗口是A、工程資源管理器窗口B、工具箱窗口C 屬性窗口D、代碼窗口3、 假設要使某可見控件獲得焦點，可使用方法來實現。A、RefreshB、SetfocusC、GotfocusD、Value4、以下不可作為 VB變量名的是A ABT1 B 、AlphaC、ABCD 、4*DeIta5、表達式 5 Mod 3+35*2 的值是 A、0

14、B、6C、4D、26、以下語句中，正確的賦值語句是A i + j = 10 B、2i = jC、j = i +j D、i * j = 07、執行以下程序段后，x的值是。n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i MouseDownC、MouseUp D、DbICIick9、以下為整型變量的是 A x!B、x#C、x$D、x%10、要從For循環中直接退出循環，可使用的語句() 。A Exit DoB、Exit LoopC、Exit For D、Stop11、以下邏輯表達式中，能正確表示條件x,y都是奇數的是A x Mod 2 =1 O

15、r y Mod 2 =1B、x Mod 2 =0 Or y Mod 2=0C x Mod 2 =0 And y Mod 2=0D、x Mod 2 =1 And y Mod 2 =112、 在通用聲明中給出Option Base 1 語句，那么數組 a包含個數組元素。Dim a(3, -2 To 1,5) As In tegerA 60 B 、75 C 、120D、1313、 設窗體上有一個名稱為Text1的文本框，要求只能顯示信息，不能輸入，應選擇答案VB 考試試題及答案分解A、 Text1.MaxLength=0B、 Text1.Width=0C、 Text1.Visible=FalseD、

16、 Text1.Enabled=False14、命令按鈕 CommandButton 的 Picture,DownPicture 和 DisablePicture 屬性都已裝入圖 形, 按下命令按鈕 , 其上顯示的圖形是A、 Picture 屬性中的圖形 B、DownPicture 屬性中的圖形C、 DisablePicture屬性中的圖形 D 、不顯示圖形15、在窗體上畫一個名稱為Comma nd的命令按鈕，并編寫如下程序:Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10 : y=5Call f1(x,y)P

17、rint x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2y1=y1+2End Sub程序運行后，單擊命令按鈕，在窗體上顯示的內容是 A、10 5 B 、12 5 C 、 10 7 D 、 12 7 16、執行以下程序段，輸出結果為Private Sub Command1_Click() a$=abbacddcbaFor i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA、AB

18、A B、 ABBABAC 、 BBABBAD 、 AABAAB17、以下 語句可表示 50,100 之間的隨機數。A、 Int(Rnd * 51) + 49 B、 Int(Rnd * 51 +50)C、 Int(Rnd * 50) + 5 D、 Int(Rnd * 50 + 50)18、執行 x = InputBox(請輸入半徑 ,0, 求面積 ) ，在輸入框中輸入 3 后回車 , 那么以下表達正確的選項是A、 x 的值是數值 3 Bx 的值是字符 3C、 0 是默認值19、設置圖像框的D 、 對話框標題是 求面積 可使框內的圖片按圖像框大小自動調整。A、 AutoSize 屬性為 True

19、BStretch 屬性為 TrueC、 AutoSize 屬性為 False DStretch 屬性為 False20、有如下事件過程Private Sub Comma nd1_Click()x = 1Fori = 1 To 3If i = 1 The n a = x * xIf i = 3 The n a = x * x + 2Print a;Next iEnd Sub運行時，單擊命令按鈕，那么結果是丨：A、2 5 11 B、 1 5 1 C 、2 2 3 D 、 1 1 121、 在窗體上畫一個名稱為Comma nd的命令按鈕，然后編寫如下程序:Private Sub Comma nd1_

20、Click()Static X As In tegerStatic Y As In tegerCisY = 1: Y = Y + 5: X = 5 + XPrint X, YEnd Sub程序運行時，單擊命令按鈕Comma nd三次后，窗體上顯示的結果為A 15 16 B 、 15 6 C22、設a=3,b=5，那么以下表達式值為A、a=b And b10 BC a0D、15 15 D 、 5 6 TRUE的是ab Or b0-3+5a and b023、從鍵盤上輸入兩個字符串，分別保存在變量 個字符串中起始位置的函數是A、Left B、以下哪組語句可以將變量A、 a=b: b=aC a=c:

21、 c=b: b=aMid24、a，BC 、String b的值互換25、26、27、str1、str2中。確定第二個字符串在第、InstrDa=a+b: b=a-b: a=a-b可以同時刪除字符串前導和尾部空格的函數是A、 LtrimB、 Rtrim C Trim表達式293的值是A、1B 、7 C 、8以下程序運行后，單擊comma nd1時顯示的結果是Private Sub Comma nd1_Click()x = 1B、Rtrima=(a+b)/2: b=(a-b)/2Midmysub x + 2Print xEnd SubPublic Sub mysub(x As In teger)x

22、 = 3 * x - 1If x 4 The n x = x + 10VB 考試試題及答案分解Print x;End SubA、 8 1 B 、 8 8 C 、 19 1 D 、 19 1928、以下有關 Visual Basic 語言描述中錯誤的選項是 。A、不區分大小寫B、語句是一行一句，以回車鍵完畢C用“，分隔一行中的多個語句D 條語句放在多行中，那么在前一行完畢處使用續行符空格+下劃線“ _連接下一行29、 在窗體上添加兩個文本框(其Name屬性分別為Textl和Text2)和一個命令按鈕(其Name 屬性為 Command1，) 然后編寫如下事件過程：Private Sub Comm

23、and1_Click()x = 0Do While x 50x = (x + 2) * (x + 3) n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub 程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為 ()A、 1 和 0B、 2 和 72C、 3 和 50D、 4 和 16830、設有如下聲明：Dim X As Integer如果Sgn(X)的值為-1，那么X的值是A、整數 B 、大于0的整數 C 、等于0的整數 D 、小于0的數二 、 判 斷題以下各題如果是正確的，請在機讀卡對應位置上涂 A,如果是錯誤的涂B。答在

24、試卷 上不得分1、VB程序運行后，在內存中只能駐留一個窗體。2、在VB中，控件的屬性只能在設計時修改，運行時無法改變。3、執行 Unload Form1 語句后，窗體 Form1 消失，但仍在內存中。4、 在一個窗體模塊中可以調用在其他窗體中被定義為Public 的通用過程。5、 Function過程與Sub過程最主要的區別是：SUB過程不能返回值，而 FUNCTION 過程能返回值。6、用 Print 方法可以在圖像框中輸出數據。7、 Dim a,b,c As Integer能將 a,b,c 都聲明成整型變量。8、 語句 print “ * ;tab(10); a與語句 print“ * ;

25、spc(10); a的顯示結果 是一樣的。9、控件數組使用 Index 屬性來標識控件元素，其范圍必須從 0 開場。10、文件號的最大取值為 512。第二局部：主觀題二、填空題請在答題卷對應位置填寫答案，答在試卷上不得分。1數學關系式a2+b2表示成正確的 VB表達式為 【1】。2、計算表達式的值 Int(86.567 * 100 + 0.5)/100 =【2】_ 。3、 賦值語句g = 123 + Mid(123456, 3, 2)執行后，變量g中的值是【3】_。4、 VB6.0在編寫代碼時可以添加說明性文字。注釋方法有2種，一種是使用注釋標記 符撇號另一種是使用以關鍵字 _【4】_開頭的注

26、釋語言。5、設 a=a, b=b , c=c , d=d，執行語句 x=llf(ad), A,B) 后，x 的值為 【5】。6、 在VB中，描述對象特征的數據稱為對象的【6】_。7、 有下面的表達式 x仁val( 1e2abcd),運行后，x1的值為：【7】 。8、 產生一個兩位數的隨機數的表達式為：【8】_。9、 只有控件對象的 Enabled和Visible屬性值均為【9】 _時，該控件對象才能承 受焦點。10、 設a=10, b=5, c=1,執行語句 Print abc后，窗體上顯示的是【10】 。四、讀程序寫結果請將答案填寫在答題卷對應位置處，答在試卷上不得分1、下面程序執行后 a的

27、值是 【1】。Private Sub Comma nd1_Click()Dim a As In teger, b As In tegera = 1: b = 1Do While b 5a = b - ab = b + 1 Loop Print aEnd Sub2、 以下程序運行后，單擊窗體時顯示的結果是上】Private Sub Form_Click()Dim x As In tegerx = 1mysub xPrint xEnd SubPrivate Sub mysub(x As In teger)x = 3 * x - 1If x 30 Then Exit ForNext iPrint n

28、, iEnd Sub五、編寫程序題請將程序代碼寫在答題卷對應位置處，答在試卷上不得分。1、 生成大小為1到100的50個隨機整數，使用選擇排序法對這些數進展由小到大的排序，并將其顯示出來。(8分)2、 編寫一函數過程計算1到n的累乘，參數n在調用時傳遞，函數名為mul。在主程序中調用該函數完成計算 sum=1!+2!+3!+4!+5!，然后把sum結果打印出來。(6分)3、 找出所有四位整數的回文數，并把找出的這些回文數保存在順序文件c:abc.txt中。(順讀和倒讀都一樣的字符串稱“回文，如： “ level, “ 1221 )(6分)第一局部：客觀題VB 考試試題及答案分解、單項選擇題1-

29、5、21-25、DDBDDBBDBC6 -10 、 CBDDC26-30 、 DACBD11-15、DADBD16-20、 CBBBC二、判斷題1、B2、 B 3、B4、A 5、 A 6、B7、B 8、B 9、 B10、B第二局部：主觀題三、填空題1、aA2+bA22、86.573、1574、REM5、“A6、屬性7、1008、int(rnd*90+10)9、true10、false四、讀程序寫結果題1、32、113、224、12345、 5, 35五、編寫程序題并將1、生成大小為 1到 100的 50個隨機整數， 使用選擇法對這些數進展由小到大的排序， 其顯示出來。Private Sub C

30、ommand1_Click()Dim a(49) as integer(1 分 )Dim i as integer, k as integerRandomize TimeFor i=0 to 49a(i)=Int(Rnd*(100-1+1)+1) (1 分 )next iVB 考試試題及答案分解for i=0 to 48（1分）k=I（1 分）for j=i+1 to 49（1分）if a（k）a（j） then k=j（1分）next jtmp=a（i）: a（i）=a（k）: a（k）=tmp（1分）next ifor i=0 to 49print a（i）;（1 分）next iEnd

31、Sub2、編寫一函數過程計算 1 到 n 的累乘，參數 n 在調用時傳遞，函數名為 mul 。在主程序中 調用該函數完成計算 sum=1!+2!+3!+4!+5! ，然后把 sum 結果打印出來。Private Sub Command1_Click（）Dim sum as Integer, I as integerSum=0（1 分 ）For i=1 to 5Sum=Sum+mul（i） （1 分 ）Next iPrint sum（1 分 ）End subPrivate Function mul（n as integer） as integer（1 分 ）Dim s as integer, i

32、 as integerS=1For i=1 to nS=s*i （1 分 ）Next iVB 考試試題及答案分解Mul=s(1 分 )End Sub3、找出所有四位整數的回文數， 并把找出的這些回文數保存在順序文件c:abc.txt 中。（順讀和倒讀都一樣的字符串稱“回文，如：level ，1221）Private Sub Command1_Click()Dim i As Integer, n As Integer, s As StringDim j As IntegerOpen “ c:abc.txtfor Output As #1(1分)For i = 1000 To 9999 (1 分

33、)s = Trim(Str(i)(1 分 )If Mid(s, 1, 1) = Mid(s, 4, 1) And Mid(s, 2, 1) = Mid(s, 3, 1) Then(2 分 )Print #1, s(1 分 )End IfNext iClose #1End SubViSual Basic 程序設計上機試題考試要求：1、考試時間為 2 個小時。2、不得使用U盤，不得使用VB課件：違反此要求者按作弊處理。3、考試目錄為F:Source，要求將程序保存到該文件夾下。4、 每完成一題，在該文件夾中保存以題目序號命名的frm 和 vbp 文件。例如第 二題的結果保存為 2.frm 和 2.

34、vbp。第一題： 20分1、設計一個如下界面的成績計算程序。其中總評成績中平時占20%，期中和期末各占30%和50%。程序結果保存為l.frm和l.vbp。參考代碼：Private sub Comma nd1_Click()Labell.captio n=0.2*val(text1)+0.3*val(tex t2)+0.5*val(text3) End SubPrivate sub Comma nd2_Click()Text 仁：Text2二：Text3=Text1.setfocusEnd Sub第二題：20分一個四位數，各位之和等于其前兩位，各位之積各于其后二位，試求之。界面自定。 程序結果

35、保存為 2.frm和2.vbp。參考答案：該題的結果為1236For a=1 to 915 / 19For c=0 to 9For d=0 to 9X=1000*a+100*b+10*c+dIf a+b+c+d=10*a+b and a*b*c*d=10*c+d the n print xNext d,c,b,a第三題：20分Shell 函3、設計一個如下界面的菜單程序，要求效果：單擊菜單項可調出相應功能。提示: 數的格式為shell路徑，1。程序結果保存為3.frm和3.vbp。ForHliti爭卒文件程序結果保存為 3.frm和3.vbp。參考程序：Private Sub Mno te_Click()Shell no tepad.exe, 1End SubPrivate Sub MExit