【正文】 vate Sub Command1_Click() SUM=0For i = 1 To 100 X = Int（ （35）B ）If （36）D ThenSUM=SUM+X （37）A End If Next i Print SUM=。Private Sub Form_Load() （31） C = End Sub 第 13 頁(yè) 共 24 頁(yè)P(yáng)rivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf （32） D = END Then （33）B EndElse （34）A = End IfEnd IfEnd Sub31. A、Open D:\ For Output As １B、Open C:\ For Input １C、Open C:\ For Output As １D、Open C:\ Output As １32. A、 B、C、Str(Text1) D、UCase()33. A、Quit 1 B、Close 1C、End 1 D、Exit 134. A、Write 1, Text1 B、Write 1, Text C、Write 3, D、Write 1, 程序 2．下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生 100 個(gè)隨機(jī)整數(shù),范圍在[20，120]之間（包含 20 和 120） ，打印其中為 5 或 7 的倍數(shù)的數(shù)，求出它們的總和并打印。A、1 4 4 　　　　B、1 3 5　　　　　C、1 4 7 　　　　D、無(wú)數(shù)據(jù)輸出30. 以下___A____方式打開(kāi)的文件只能讀不能寫(xiě)。A、True 　　B、False 　　　 C、1 　　　 D、出錯(cuò)信息28. 設(shè)有如下通用過(guò)程：Public Sub Fun(a(), ByVal x As Integer)　For i = 1 To 5　 x = x + a(i)　NextEnd Sub 第 12 頁(yè) 共 24 頁(yè)在窗體上畫(huà)一個(gè)名稱(chēng)為 Text1 的文本框和一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：Private Sub Command1_Click()　Dim arr(5) As Variant　Dim n as Integer　For i = 1 To 5　　arr(i) = i　Next　n = 10　Call Fun(arr(), n)　 = nEnd Sub程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 A A、10 　　　　B、15 　　　 C、25　　 D、2429. 窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()　Dim num As Integer For num = 1 To 6 Step 3 Print num。A、1 　　　　B、1 3 5　　　　　C、1 4 7 　　　　D、無(wú)數(shù)據(jù)輸出26. ___C____對(duì)象具有 Clear 方法。A、Autosize B、Stretch C、Picture D、LoadPicture25. 在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()　Dim num As Integer　num = 1　Do Until num 6　　Print num。A、x=x+1 B、x=x+y C、x+y=x D、x=4623. 單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是____C______。 第 11 頁(yè) 共 24 頁(yè)21. 在圖形框控件 picture1 上坐標(biāo)(100,100)和(500,500)之間畫(huà)一條紅色直線，寫(xiě)作__C__。A、圖形框中的圖片自動(dòng)改變大小適應(yīng)圖形框B、圖形框自動(dòng)改變大小適應(yīng)其中的圖形C、如果圖片的大小比圖形框大，則圖形框自動(dòng)裁剪圖象以適應(yīng)圖形框的大小。Private Sub Command1_Click()Dim a As Varianta = Array(12, 23, 34, 45, 56)For i = 1 To 3Print Trim(a(i))。A、函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系B、在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)C、當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D、如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型18. 在窗體上畫(huà)一個(gè)名稱(chēng)為 TxtA 的文本框,然后編寫(xiě)如下的事件過(guò)程： 　Private Sub TxtＡ_KeyPress(keyascii as integer)…… …… 　End Sub　　若焦點(diǎn)位于文本框中,則能夠觸發(fā) KeyPress 事件的操作是____D____。A、Case 0 To 10 B、Case Is10C、Case Is10 And Is50 D、Case 3,5,7,Is1016. 執(zhí)行語(yǔ)句 s=Len(Mid(VisualBasic,0,5))后，s 的值是___D_____。A、List 　　 B、ListCount 　　C、ListIndex 　　 D、Columns 第 10 頁(yè) 共 24 頁(yè)14. 要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的哪個(gè)屬性__B__。A=0: B=1DoA=A+BB=B+1Loop While A10Print A。二、單選題11. P 的值為－3 時(shí)，－P^2 的值是___B_____。9． Frame 控件可以作為其他控件的容器。 。6． （對(duì)）在某列表框中一共有 5 個(gè)選項(xiàng)，而當(dāng)選中第三項(xiàng)時(shí)，這時(shí)列表框的 ListIndex屬性為 2。4． （對(duì)）通用對(duì)話框不能真正實(shí)現(xiàn)文件打開(kāi)、文件存儲(chǔ)、設(shè)置顏色、字體設(shè)置、打印等操作，如果想要實(shí)現(xiàn)這些功能則需要編程實(shí)現(xiàn)。2． （對(duì)）對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣。Private Sub Form_Load() = 1: = 5 = 1: = 1 End SubPrivate Sub HScroll1_Change() Left(, ), 0End Sub(52) A）abc B）abcd C）ab D） abcde(53) A）ab B）abcde C）abc D）abcd【程序閱讀 6】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。 x Mod 3 Case Else Print y=。 x Case 2 Print y=。A）1 2 3 B）1 4 9 C）1 3 5 D）3(48)寫(xiě)出運(yùn)行時(shí)在 Text1 中依次按“1↙ 2a↙ 5↙ ”輸入后窗體上的顯示結(jié)果_(48) D__。End Sub(46)寫(xiě)出運(yùn)行時(shí)在 Text1 中依次按“1↙ 3↙ 5↙ ”輸入后窗體上的顯示結(jié)果_(46)_A__。 A） B） C） D） 【程序閱讀 3】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。 第 6 頁(yè) 共 24 頁(yè)P(yáng)rivate a%, b%, c%Private Sub Form_Click() Dim a As Integer c = 2 Call AA(c) b = BB(a) Print a, b, cEnd SubPublic Sub AA(c%) a = c + b c = a + cEnd SubPublic Function BB(ByVal b%) b = b + 1 BB = a + bEnd Function(41) A）2 5 4 B）2 3 4 C）0 3 4 D）0 3 2(42) A）7 12 9 B）7 15 9 C）0 6 2 D）0 6 7(43) A）0 9 10 B）0 9 2 C）17 19 35 D）10 27 32【程序閱讀2】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。程序運(yùn)行后（如下圖所示），當(dāng)在組合框中輸入一個(gè)新的項(xiàng)目按回車(chē)鍵時(shí)（回車(chē)鍵的 ASCII 碼為 13），如果輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在 Label2 中給出提示“已成功添加輸入項(xiàng)；如果存在，則在 Label2 中給出提示“輸入項(xiàng)已在組合框中 ”。Private Sub Command1_Click()Dim a(1 To 5) As IntegerDim n%, i%，j%, t%a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23For i = 1 To 4（ 確保第i輪循環(huán)后，a(i)位置上存放第i大的數(shù) ） For j = 5 To i+1 Step 1 If （36） B Then t = a(j) （37）D a(j 1) = t End If