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

2、件。II、在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 GotFoc

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

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

5、VBHello!VBC、VBHello!D VBVBHello!9、語句VB的結果為B 。B、The answer is 3D非法語句Prin t "The an swer is:"20/4-2A、The answer is 20/4-2C、The answer is "20/4-2"10、下列哪個控件是容器控件A、ImageB、PictureComboBoxD FileListBox11、若要將窗體從內存中卸載出去，其實現的方法是A.ShowB.HideC.LoadD.U nLoad12、 以下選項中，不是Visual Basic 控件的是AD.命令按

6、A.窗體B.定時器C.單選框鈕oD.屬性窗13、 雙擊窗體中的對象后，Visual Basic 將顯示的窗口是AA.代碼窗口B.工具箱C.項目（工程）窗口口14、可決定窗體的左上角是否有控制菜單的屬性是A.Co ntrolBoxB.Mi nButt onC.MaxButt onD.BorderStyle15、設有如下語句：Strl = InputBox （"輸人"，""，"練習"）D.“示從鍵盤上輸人字符“示例”后，Strl的值是 D 。 A“輸入”B. “ ”C“練習”例”16、窗體Form1的Name屬性是Frm1,它的單擊事件過

7、程名是A. Form1_ClickB.Form_ClickC. Frm1 ClickMe_Click17、窗體的hide屬性的含義是AA.隱藏B.展現入D.卸載18、若要設置定時器控件的定時時間，需設置的屬性是A. EnabledB. Value C. Interval19、 能夠改變復選框中背景顏色的屬性是CA. ValueB. FontColorD. Font20、窗體能響應的事件是A. ActiveFormD. ChangeB 。B. LoadC 。D.C.裝C 。D. TextC. BackColorC. Drive三、判斷題（判斷下列正確與否，正確的打V,錯誤的打x。1、 三種方式的

8、組合框都允許用戶輸入哪些不在列表框中的選項。X2、圖象框中的Stretch屬性為true時，其作用是圖形自動調整大小以適應圖 象控件。X3、 在菜單編輯器中使用“索引”時，可有一組菜單項具有相同的“名字”。:4、通過改變屬性窗口中的 Nameli性，來改變窗體的標題。5、創建VB應用程序的三個主要步驟是：（1）創建應用程序界面（2）設置控件（3） 編寫代碼。X6、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常 量。7、已知 P= MsgBox( “Howareyou?", VbYesNo+VbQuestion “ Hello! ”)，變 量P是Integer數據類型

9、。&工程文件的擴展名是.vbg 。9、VB允許設計和使用用戶自己設計的控件。10、OptionButton 控件沒有 DblCliek 事件。X11、同一條記錄中的各數據具有相同的類型。12、 使用Data控件可以直接顯示數據庫中的數據。X13、ImageList 是一個圖像容器控件，可用作工具欄的圖像庫。14、 當用戶單擊工具欄按鈕時，將觸發工具欄按鈕的ButtonClick事件。15、在VB的工程資源管理器中，如果從工程中移除已經保存過的文件，該文 件仍然被物理刪除(真正刪除)。X16、如果列表框的ListConut的屬性為10，則列表框最后一項的ListIndex 值為10。X1

10、7、 要是某個命令按鈕不起作用，應將該按鈕的Enabeld屬性設置為False。18、 使用數組定義語句：Dim D$( 10)，則數組D中各元素的值為空。X19、 如果在一行中輸入多條語句，各語句之間用使用；分隔。X20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該 行代碼有語法錯誤。四、讀程序題，寫出程序運行結果1、Private Sub Form_Click()Static SUM As In tegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub運行程序，第一次單擊窗體： 55第二次

11、單擊窗體：1102、Private Sub Form_Click()Prin t "*" Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub程序運行結果：*251530（一）窗體中有圖片框（Picture1）和計時器（Timer1）兩個控件，運行程序時, 將圖片加載到圖片框中，然后圖片框以每 2秒鐘一次的速度向窗體的右下腳移 動，每次向左、向右移動100twip（ 20分之一像素）。請填空

12、：Private Sub Form_load()Picture1.picture =loadPicture( “ cball.ico ”)Timer1 .In terval=200End SubPrivate Sub Timer1_Timer()Static x , y As In tegerx=x+100y=y+1OO Picturel.Move x , yEnd Sub(二)有一個單擊按鈕過程，其作用是產生50個60100的隨機數，統計其中被6整除余2的個數，并將這些數輸出。請填空：Private Sub Comma nd1_Click()Dim x As In teger, N%Dim

13、Coun ter As In tegerran domize TimerFor N=1 To 50X=R nd()*rnd()*41+60If x Mod 6=2 The nPrint xCoun ter= Coun ter+1End ifNext NPrint Coun terEnd Sub卷2第一部分：客觀題一、 單項選擇題1、 在窗體模塊的通用段中聲明變量時，不能使用的關鍵字是（）A Dim B 、Public C 、Private D 、Static2、在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是（）A、工程資源管理器窗口BC 屬性窗口D、工具箱窗口、代碼窗口3、若要使某可見控

14、件獲得焦點，可使用（）萬法來實現。A、RefreshB、SetfocusC、GotfocusD、Value4、下列不可作為 VB變量名的是（)A ABT1 B、AlphaC、ABCD 、4*DeIta5、表達式 5 Mod 3+35*2 的值是 （)A、0B、6C、4D、26、下列語句中，正確的賦值語句是（)A i + j = 10 B、2i = j C、j = i + jD、i * j = 07、執行下列程序段后，x的值是（）<n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nA、2B、6C、10D、148、當用戶在窗體

15、上單擊鼠標時，不會觸發的事件是（）A、ClickB> 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 Or y Mod 2 =1B、x Mod 2 =0 Or y Mod 2=0C x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =112、在通用聲明中給出

16、Option Base 1 語句，則數組a包含（）個數組元素。Dim a（3, -2 To 1,5） As In tegerA 60 B 、75 C 、120D、1313、 設窗體上有一個名稱為Text1的文本框，要求只能顯示信息，不能輸入，應選擇答案A Textl.MaxLength=OB、Text1.Width=0C、Text1.Visible=FalseD、Textl.Enabled=False14、 命令按鈕 CommandButton 的 Picture,DownPicture和 DisablePicture 屬性都已裝入圖形,按下命令按鈕，其上顯示的圖形是()A Picture 屬

17、性中的圖形B 、DownPicture 屬性中的圖形C DisablePicture 屬性中的圖形 D 、不顯示圖形15、 在窗體上畫一個名稱為Comma nd的命令按鈕，并編寫如下程序：Private Sub Comma nd1_Click()Dim x As In tegerStatic y As In tegerx=10: y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As In teger, y1 As In teger) x1=x1+2y1=y1+2End Sub程序運行后，單擊命令按鈕，在窗體上顯示的內容是10A、10

18、 5 B12 5)12 716、執行以下程序段，輸出結果為Private Sub Comma nd1_Click() a$="abbacddcba"For 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 ABA B17、以下（A Int（Rnd * 51） + 49C Int（Rnd * 50） + 518、執行 x = InputBox（"述正確的是（）A x的值是數值C 0是默認值19、設置圖像框的（A Aut

19、oSize 屬性為C AutoSize屬性為、ABBABA）語句可表示50,100B、BBABBA之間的隨機數。In t(R nd * 51 +50)In t(R nd * 50 + 50)、AABAABD請輸入半徑",0,"求面積"），在輸入框中輸入3后回車，則下列敘x的值是字符"3"D、對話框標題是"求面積"）可使框內的圖片按圖像框大小自動調整。TrueB、Stretch 屬性為 TrueFalse D 、Stretch 屬性為 False20、有如下事件過程Private Sub Comma nd1_Click()x

20、= 1Fori = 1To 3If i <=1 The n a=x * xIf i <=2 The n a=x * x +1If 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_Click()Static X As In tegerStatic Y As In tegerCisY = 1: Y = Y + 5: X =

21、 5 + XPrint X, YEnd Sub乍鬥匸jH-：,單擊命令按鈕 Comma nd三次后，窗體上顯示的結果為（A 15 16 B 、 15 6 C、15 15 D22、設a=3,b=5，則以下表達式值為 TRUE的是（A、a>=b And b>10 Ba>b Or b>0C a<0 and b >0D-3+5>a and b>023、從鍵盤上輸入兩個字符串，分別保存在變量str1、str2中。確定第二個字符串在第個字符串中起始位置的函數是（)C 、StringD、In strA LeftB、 Mid24、下列哪組語句可以將變量a，b的值

22、互換（）A a=b: b=aB、a=a+b:b=a-b: a=a-bC a=c: c=b: b=aD、a=(a+b)/2: b=(a-b)/225、可以同時刪除字符串前導和尾部空格的函數是（）A LtrimB、RtrimC TrimD、Mid26、表達式293的值是（）A、1B、7C、8D、927、下列程序運行后，單擊command1時顯示的結果是（）Private Sub Comma nd1_Click（）x = 1 mysub x + 2Print xEnd SubPublic Sub mysub(x As In teger)x = 3 * x - 1If x < 4 The n x

23、 = x + 10Print x;End SubA、8 1 B 、 8 8 C 、 19 1 D 、 19 1928、 以下有關 Visual Basic語言描述中錯誤的是()。A、不區分大小寫B、語句是一行一句，以回車鍵結束C用“，”分隔一行中的多個語句D 一條語句放在多行中，則在前一行結束處使用續行符空格+下劃線(“ _”)連接下一行29、 在窗體上添加兩個文本框 (其Name屬性分別為Text1和Text2)和一個命令按鈕(其Name 屬性為Command1)然后編寫如下事件過程：Private Sub Comma nd1_Click()x = 0Do While x < 50x

24、= (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 In teger如果Sgn(X)的值為-1，則X的值是()A、整數 B 、大于0的整數 C 、等于0的整數 D 、小于0的數、 判斷題下列各題如果是正確的，請在機讀卡對應位置上涂A,如果是錯誤的涂B。答在試卷上不得分1、VB程序運行后，在內存中只能駐留一個窗體。2、在VB中，控件的屬

25、性只能在設計時修改，運行時無法改變。3、執行Unload Form1語句后，窗體 Form1消失，但仍在內存中。4、 在一個窗體模塊中可以調用在其他窗體中被定義為Public的通用過程。5、 Function過程與Sub過程最主要的區別是：SUB過程不能返回值，而FUNCTION過程能返回值。6、用Print方法可以在圖像框中輸出數據。7、 Dim a,b,c As Integer能將a,b,c都聲明成整型變量。&語句 print “ * ” ;tab(10);” a” 與語句 print“ * ” ;spc(10); ” a”的顯示結果是一樣的。9、 控件數組使用Index屬性來標識

26、控件元素，其范圍必須從0開始。10、文件號的最大取值為 512。第二部分：主觀題二、填空題請在答題卷對應位置填寫答案，答在試卷上不得分。i數學關系式a+b表示成正確的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】_開頭的注釋語言。5、設 a="a", b="

27、b" , c="c" , d="d"，執行語句 x=llf(a<b)Or(c>d), "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 a>

28、;b>c后，窗體上顯示的是【10】 。四、讀程序寫結果請將答案填寫在答題卷對應位置處，答在試卷上不得分。1、下面程序執行后 a的值是【1】_。Private Sub Comma nd1_Click()Dim a As In teger, b As In tegera = 1: b = 1Do While b <> 5a = b - ab = b + 1LoopPrint aEnd Sub2、 下列程序運行后，單擊窗體時顯示的結果是2】_。Private Sub Form_Click()Dim x As In tegerx = 1mysub xPrint xEnd SubPri

29、vate Sub mysub(x As In teger)x = 3 * x - 1If x < 5 The n x = x + 9End Sub3、 單擊窗體，程序運行后結果是【3】 。Private Sub form_Click()Dim i As In teger, j As In tegeri = 22: j = 44Call mysub(i, j)Print jEnd SubPublic Sub mysub(ByVal x As Integer, y As Integer)x = y + xy = x Mod yEnd Sub4、 程序運行時，單擊Command1按鈕，顯示結果

30、是【4】 。Private Sub Comma nd1_Click()Dim a As Varia nt, s As In tegerDim i As In teger, j As In tegera = Array(1,2, 3, 4)j = 1For i = 3 To 0 Step -1s = s + a(i) * jj =j* 10Next iPrint sEnd Sub5、 程序運行時，單擊Command1按鈕，顯示結果是 【5】 。Private Sub Comma nd1_Click()Dim i As In teger, n As In tegerFor i = 1 To 100

31、i = i + 4n = n + 1i = i + 2If i > 30 Then Exit ForNext iPrint n, iEnd Sub五、編寫程序題請將程序代碼寫在答題卷對應位置處，答在試卷上不得分。1、生成大小為1到100的50個隨機整數，使用選擇排序法對這些數進行由小到大的排序，并將其顯示出來。(8分)2、 編寫一函數過程計算1到n的累乘，參數n在調用時傳遞，函數名為mul。在主程序中調用該函數完成計算sum=1!+2!+3!+4!+5!，然后把sum結果打印出來。(6分)3、 找出所有四位整數的回文數，并把找出的這些回文數保存在順序文件”c:abc.txt”中。(順讀和

32、倒讀都一樣的字符串稱“回文”，如：“level”，“1221”)(6分)第一部分：客觀題、單項選擇題1-5、21-25、DDBDDBBDBC6 -10、 CBDDC26-30、DACBD11-15、DADBD16-20、 CBBBC、判斷題1、B2、B 3、B4、A 5、A 6、B7、B 8、B9、B10、B第二部分：主觀題三、填空題1、aA2+bA22、86.573、1574、REM5、“ A ”6、屬性7、1008、in t(rnd*90+10)9、true10、false四、讀程序寫結果題1、32、113、224、 12345、5,35五、編寫程序題并將1、生成大小為1到100的50個隨

33、機整數，使用選擇法對這些數進行由小到大的排序, 其顯示出來。Private Sub Comma nd1_Click()Dim a(49) as in teger(1 分)Dim i as in teger, k as in tegerRan domize TimeFor i=0 to 49a(i)=I nt(R nd*(100-1+1)+1)(1 分)next ifor i=0 to 48（1分）k=I(1分)for j=i+1 to 49(1分)if a(k)>a(j) the n k=j（1分）n ext jtmp=a(i): a(i)=a(k): a(k)=tmp(1分)next

34、ifor i=0 to 49print a(i);(1 分)next iEnd Sub2、編寫一函數過程計算1到n的累乘，參數n在調用時傳遞，函數名為mul。在主程序中調用該函數完成計算sum=1!+2!+3!+4!+5!，然后把sum結果打印出來。Private Sub Comma nd1_Click()Dim sum as In teger, I as in tegerSum=0(1 分)For i=1 to 5Sum=Sum+mul(i)(1 分)Next iPrint sum(1 分)End subPrivate Function mul(n as in teger) as in te

35、ger(1 分)Dim s as in teger, i as in tegerS=1For i=1 to nS=s*i(1 分)Next iMul=s(1分)End Sub3、找出所有四位整數的回文數，并把找出的這些回文數保存在順序文件”c:abc.txt”中。(順讀和倒讀都一樣的字符串稱“回文”，如：level ,1221)Private Sub Comma nd1_Click()Dim i As In teger, n As In teger, s As StringDim j As In tegerOpen “ c:abc.txtfor Output As #1(1分)For i =

36、1000 To 9999(1 分)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.f

37、rm和2.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()Text1= ” Text2= ” T ext3=Text1.setfocusEnd Sub第二題：20分一個四位數，各位之和等于其前兩位，各位之積各于其后二位，試求之。界面

38、自定。 程序結果保存為 2.frm和2.vbp。參考答案：該題的結果為1236For a=1 to 9For b=0 to 9For 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。程序結果保存為 3.frm和3.vbp。參考程序：Private Sub Mno te_Click()Sh