VB程序設(shè)計(jì)試卷

1、 VB 程序設(shè)計(jì)試卷試卷十五一、判斷題（共10 分，每題 1 分，在答題卡上回答， A 表示正確， B 表示錯(cuò)誤）窗體中只能有一個(gè)命令按鈕設(shè)置 Default 屬性為 True ，在任何情況下，按 鍵，就相當(dāng)于執(zhí)行該命令按鈕的 Click() 事件。直線控件沒(méi)有 Left 和 Top 屬性。在 VB 工具箱中雙擊控件圖標(biāo)，可以在窗體中添加控件，但不能直接將控件引入到框架中。Style 屬性為 0 和 2 的組合框由于下拉， 故不能多選， 但 Style 屬性為 1 的組合框不是下拉的，所以可以多選。單選按鈕和復(fù)選框都沒(méi)有雙擊事件。Cls 方法能清除窗體中用 Line 和 Circle 方法畫(huà)的

2、直線、矩形和圓形，但不能清除窗體中用直線控件和形狀控件產(chǎn)生的直線、矩形和圓形。7.“打開(kāi)” 對(duì)話框和 “另存為” 對(duì)話框， 除了標(biāo)題欄上的文字不同之外，其他內(nèi)容與用法均相同，因此，也可以用“另存為”對(duì)話框來(lái)指定要打開(kāi)的文件。8.當(dāng)圖片框的AutoSize屬性為 True ，而影像框的Stretch屬性為 False 時(shí)，兩者顯示圖片的效果相同。9.Pset (X, Y)方法在 (X, Y)處畫(huà)一個(gè)點(diǎn)，而Point(X, Y)函數(shù)返回 (X, Y)點(diǎn)的顏色值。若要用鼠標(biāo)在文本框中右擊能彈出 mnuEdit 的快捷菜單，只要在該文本框的 Mouse_Down()事件中，添加一條 PopupMenu

3、 mnuEdit 語(yǔ)句便可。二、單選題（共20 分，每題 2 分）11.VB提供了許多目錄和文件操作語(yǔ)句，其中刪除文件夾語(yǔ)句的關(guān)鍵詞是。A ChDirB RmDirC KillDirD DelDir12.標(biāo)簽的 WordWrap = True 可以固定標(biāo)簽寬度來(lái)顯示多行文本，它必須和屬性一起設(shè)置。A MultiLineB AutoSizeC AlignmentD Width13.表達(dá)式 4 + 5 4 * 9 / 8 Mod 3的值是。A 7B 5C 6D 914.在默認(rèn)的情況下，由Dim axyz(3, 2 To 4) As String * 2語(yǔ)句定義的數(shù)組占用_字節(jié)的內(nèi)存空間。A 24B

4、 18C 9D 4815.以下敘述中錯(cuò)誤的是。以 .BAS 為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件，是一個(gè)純代碼性質(zhì)的文件。編程人員不能改變窗體或控件的事件名稱，但是可以改變控件的名稱C在 VisualBasic 工具箱中的所有控件都具有寬度（Width ）和高度（ Height ）屬性用 Hide 方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體16.要使得文件列表框File1 中，只顯示文件后綴名為bmp和 jpg 的圖片文件，應(yīng)設(shè)置其 Pattern屬性為 _。A *.bmp|*.jpgB *.bmp, *.jpgC *.bmp;*.jpgD *.bmp, *.jpg 17.執(zhí)行以下代碼后，窗體上打印

5、出的結(jié)果是_ 。a = 1 : b = 5 : c = -1Print c = b aA TrueB FalseC -1D 出錯(cuò)18.在文本框 Text1 中用鼠標(biāo)拖動(dòng)選中文本塊時(shí)，如果=15 ， =10，那么的屬性值與 _的函數(shù)值相同。A Mid(Text1,14,10)B Mid(Text1,15,10)C Mid(Text1,16,10)D Mid(Text1,10,15)當(dāng)驅(qū)動(dòng)器列表框 Drive1 中的驅(qū)動(dòng)器符改變時(shí)， 為使文件夾列表框 Dir1 中顯示的路徑也作相應(yīng)的改變，應(yīng)當(dāng)在的 Change事件中添加代碼。A Drive1，=B Dir1，=C Drive1，=D Dir1，=

6、Sub過(guò)程與 Function 過(guò)程最根本的區(qū)別是 _。前者可以使用 Call 或直接使用過(guò)程名調(diào)用，后者不可以后者可以有參數(shù)，前者不可以兩種過(guò)程參數(shù)的傳遞方式不同后者可通過(guò)函數(shù)名返回值，但前者不能通過(guò)過(guò)程名返回三、程序填空 選擇題（共 20 分，每空 2 分）閱讀下列程序說(shuō)明和相應(yīng)的程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。1 單擊命令按鈕cmd2，由隨機(jī)函數(shù)產(chǎn)生50 個(gè) 100 300 之間（包括100 和 300）的隨機(jī)整數(shù)。放入第一個(gè)數(shù)組中，將它們中的偶數(shù)放入另一個(gè)數(shù)組，再對(duì)偶數(shù)數(shù)組按從大到小的順序進(jìn)行排序，先后將這三組數(shù)值顯示在窗體中。Private Sub cmd2_C

7、lick()Dim N%(50), M%(), I%, J%, T%, P%ClsPrint 原始數(shù)組： For I = 1 To 50N(I) = _(21)_Print N(I),If I Mod 5 = 0 Then PrintIf N(I) Mod 2 = 0 Then J = J + 1 :ReDim PreserveM(J) : M(J) = N(I)Next IPrint 偶數(shù)數(shù)組： For I = 1 To JPrint M(I),If I Mod 5 = 0 Then PrintNext IPrint : Print 排序后的偶數(shù)數(shù)組：For I = 1 To J - 1P

8、= IFor K = _(22)_If _(23)_ Then P = KNext KIf I P Then _(24)_Print M(I),If I Mod 5 = 0 Then PrintNext IPrint M(I)End Sub(21)A Int(100 + Rnd() * 201)B Int(200 + Rnd()* 101)C Int(101 + Rnd() * 199)D Int(100 + Rnd() * 200)(22)A K = I + 1 To 50B J = I + 1 To 50C J = I + 1 To KD K = I + 1 To J(23)A M(I)

9、M(K)C M(P) M(K) DM(K) Length - 1C I Length - 1D I = Length(30)A Left(Str1, 3) = redB Str1 = redC Mid(Text1, I, 3) = Str1D Mid(Str1, I, 3)= red四、程序閱讀題（共20 分，每題 5 分）1請(qǐng)寫(xiě)出從鍵盤(pán)輸入”，Ab 和“ FGfg”后，窗體的輸出結(jié)果。Private Sub Form_Click()Dim sHex As String, X As String * 1Dim nDec As Long, N As Integer, I As Integer,

10、Ai As IntegersHex = UCase(InputBox(請(qǐng)輸入一個(gè)字符串)N = Len(sHex)nDec = 0Do While I NX = Mid$(sHex, N - I, 1)Select Case XCase A To F:Ai = Asc(X) - Asc(A) + 10Case 0 To 9:Ai = Val(X)Case ElseAi = 0:N = N - 1sHex = Left(sHex, N - I) + Right(sHex, I)I=I-1End SelectnDec = nDec + Ai * 16 II=I+1LoopPrint sHex; H

11、 =; nDecEnd Sub2 請(qǐng)寫(xiě)出以下程序運(yùn)行后兩次單擊命令按鈕的輸出結(jié)果。Dim x As IntegerPrivate Sub Command1_Click()Dim y As IntegerStatic z As Integerx = x + 1:y = y + 1 : z = z + 1Call abc(x, y, z + y)Print x, y, zEnd SubStatic Sub abc(a, b, c)a = a + 1 : b = b + 1 : c = c + 1 : x = x + 1 End SubPrivate Sub Form_Load()x = 1:y =

12、 1:z = 1End Sub3 已知水平滾動(dòng)條HScroll1的有關(guān)屬性已經(jīng)在屬性窗口進(jìn)行了如下的設(shè)置：Min 為 1Max為 10SmallChange寫(xiě)出連續(xù)3 次單擊水平滾動(dòng)條HScroll1Private Sub HScroll1_Change()Static y As IntegerIf Mod 2 = 0 Theny = y +Print y=; yEnd IfEnd Sub為 1 LargeChange 為 2 Value 右端箭頭后，窗體上顯示的結(jié)果。為54 請(qǐng)寫(xiě)出在文本框中輸入“小李”（ 2 個(gè)漢字）并按下回車(chē)鍵后，窗體上顯示的結(jié)果。Private Sub Text1_Ch

13、ange()Print ; ，你好！ End Sub五、程序設(shè)計(jì)題（本題共30 分，每題 10 分）注意：在做程序設(shè)計(jì)題時(shí)，務(wù)必在窗體和模塊的通用部位寫(xiě)上“Option Explicit”語(yǔ)句。試用 Form_Click() 事件過(guò)程計(jì)算下列求和式，在窗體顯示結(jié)果。S = 1 + 12 + 123 + 1234 +12345 + + 12345 n例如 n = 7 ， S = 1 + 12 + 123 + 1234 + 12345 +123456 + 1234567n 通過(guò)輸入框輸入，其值為1 9 ；如果輸入不在此范圍，再次彈出輸入框重輸。編寫(xiě)一個(gè)繪制“餅圖”的子程序BingTu() 。調(diào)用時(shí)，傳遞 3 個(gè)實(shí)際參數(shù) X、Y、 Z，子程序就在圖片框Picture1中畫(huà)出內(nèi)切圓，按3 個(gè)實(shí)參的比例分為3 個(gè)扇形， 并用三種不同的顏色（ X- 紅，Y- 綠，Z- 黃）填充，如右圖所示。 下面是已經(jīng)完成的 “餅圖”按鈕 Command1_Click() 事件中調(diào)用子程序 BingTu() 的代碼。試按上述要求完成“餅圖”的子程序 BingTu() 的代碼編寫(xiě)。Private Sub Command1_Click()Dim X!, Y!, Z!X = Val(InputBox(X =)Y = Val(InputBox(Y =)Z = Val(Input