【正文】 ( D )A) 3 1 B) 3 3 C) 2 2 D) 2 110．窗體上有命令按鈕Command1和Command2，閱讀下列程序：Private Sub Command1_Click()a = a + 1 : Print a，End SubPrivate Sub Command2_Click()a = a + 1 : Print aEnd Sub運(yùn)行時(shí)，先后單擊Command1和Command2按鈕，輸出的結(jié)果為（ ）。( C )A) 3 8 B) 3 17 C) 9 8 D) 9 176．閱讀下列程序：Private Sub Form_Click()Dim m As IntegerStatic n As IntegerFor i = 1 To 3n = n + im = m + i ^ 2 5 6 D) 4NextPrint m, nEnd Sub運(yùn)行時(shí)，兩次單擊窗體，輸出結(jié)果為（ ）。 ( D )Dim A(2, 1 To 1, 5)A ） 72 B) 54 C) 84 D) 18第8章 過(guò)程1．窗體上有兩個(gè)文本框（TextText2）和一個(gè)命令按鈕（Command1），閱讀如下程序： Private Sub func(T As TextBox, a As Integer) = 1234a = a * aEnd SubPrivate Sub Form_Load() = ABCD = 10End SubPrivate Sub Command1_Click()Dim temp As Integertemp = Val()Call func(Text1, temp) = tempEnd Sub運(yùn)行后，單擊按鈕，Text1和Text2將分別顯示（ ）。( C ) Private Sub Form_Click()Dim aDim i As Integer, j As Integera = Array(1, 2, 3, 4, 5, 6)For i = 1 To a(5)j = j + 1Next iPrint jEnd SubA) 0 B) 5 C) 6 D) 程序出錯(cuò)17．下列有關(guān)數(shù)組的敘述中，正確的是（ ）。( C ) Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 1 To 3Print a(5 i)。x = 4Dim a(x)For m = 4 To 0 Step 1a(m) = m + 1Next m出錯(cuò)的原因是（ ）。N 為變量C) Dim a() As Integ er D) Dim a%(10,10 To 10)6．運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（ ）。( C )A) 控件數(shù)組的每一個(gè)元素共享同樣的事件過(guò)程B) 控件數(shù)組的每一個(gè)元素都有與之相關(guān)聯(lián)的下標(biāo)值C) 控件數(shù)組的每一個(gè)元素都有不同的Name 屬性作為標(biāo)識(shí)D) 可在運(yùn)行過(guò)程中刪除控件數(shù)組的某個(gè)元素3．運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（ ）。Next jPrintNext iEnd Sub運(yùn)行時(shí)，單擊按鈕，輸出結(jié)果是（ ）。 Private Sub Command1_Click()Dim i As IntegerDim sum As Doublei = 2sum = 0Do While (i = 【1】)sum = sum + 1 / 【2】i = i + 2LoopPrint sumEnd Sub程序的空缺處【1】和【2】應(yīng)分別填寫（ ）。( C )A) 0 和 0 B) 1 和 8 C) 2 和 120 D) 3 和 1518023．窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程：Private Sub Command1_Click()For i = 1 To 4For j = 4 To 8Sum = Sum + 1Next jNext iPrint SumEnd Sub運(yùn)行時(shí)，單擊按鈕，輸出結(jié)果是（ ）。( D )s = 1For i = 1 To 3For j = 0 To i1s = s + s * jNext j? s。 3 amp。循環(huán)次數(shù)的控制m = m + 1a = Chr(m) + a + Chr(m)Print aNext iEnd Sub運(yùn)行時(shí)，要使單擊按鈕后輸出如下結(jié)果，程序中的空缺部分應(yīng)為（ ）。( A )Dim X As Integer, Y As IntegerY = Val(InputBox(請(qǐng)輸入a 的值, , 9)) 39。( A )A) a0 And ab B) a0 And ab C) a0 And ab D) a0 And ab11．以下條件語(yǔ)句錯(cuò)誤的是（ ）。( A )a = 3x = IIf(a 5, int(), Fix())A) 5 B) –5 C) 6 D) 68．窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程：Private Sub Command1_Click()a = Val(InputBox(請(qǐng)輸入分?jǐn)?shù)：, 計(jì)算你的等級(jí), 60))If a 0 Or a 100 ThenPrint 輸入錯(cuò)誤ElseIf a 60 ThenPrint 不合格ElseIf a 80 ThenPrint 合格ElsePrint 優(yōu)秀End IfEnd Sub運(yùn)行時(shí)，單擊按鈕，在輸入對(duì)話框中直接回車，輸出結(jié)果為（ ）。( B )A) 80 50 30 B) 80 30 30C) 50 30 80 D) 50 30 305．執(zhí)行下列程序段后，x 的值是（ ）。( D )A) = vbArrow B) = vbCustomC) = vbCross D) = vbHourglass第6章控制結(jié)構(gòu)程序設(shè)計(jì)1．下列求兩數(shù)中最小數(shù)的程序段不正確的是（ ）。( B )A) MouseDown、Click 、MouseUp B) MouseDown、MouseUp 、ClickC) Click、MouseDown 、MouseUp D) 隨機(jī)發(fā)生42．編寫如下事件過(guò)程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single, Y As Single)If Shift = 3 And Button = 2 ThenPrint Visual BasicEnd IfEnd Sub運(yùn)行時(shí)，為了在窗體上輸出Visual Basic，應(yīng)執(zhí)行的操作為（ ）。( A )A) 如果文本框的TabStop 屬性為False ，則不能接收從鍵盤上輸入的數(shù)據(jù)B) 文本框的Enabled 屬性為False 時(shí)，其Tab 順序不起作用C) 文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus 事件D) 可以用TabIndex 屬性改變Tab 順序38．設(shè)置控件的（ ）屬性為False ，使該控件不能通過(guò)Tab 鍵得到焦點(diǎn)。( A )A) 所有的控件均支持Tab 順序 B) 可以在設(shè)計(jì)階段改變Tab 順序C) 可以在運(yùn)行階段改變Tab 順序 D) 可以設(shè)置相應(yīng)的屬性使Tab 順序不起作用34．下列敘述中，正確的是（ ）。( B )A) Enabled B) Interval C) TimerSet D) Timer30．設(shè)置（ ）屬性可改變單擊滾動(dòng)條空白處時(shí)的滾動(dòng)步長(zhǎng)。( C )A) Enabled屬性為True 和Interval 屬性為0 B) Enabled屬性為False 和Interval 屬性為0C) Enabled屬性為True 和Interval 屬性非0 D) Enabled屬性為False 和Interval 屬性非026．下列敘述中, 錯(cuò)誤的是（ ）。( D )A) 計(jì)時(shí)器的Enabled 屬性為False ，會(huì)暫停計(jì)時(shí)器的計(jì)時(shí)操作B) 運(yùn)行時(shí)計(jì)時(shí)器不可見，所以其位置和大小無(wú)關(guān)緊要C) 觸發(fā)計(jì)時(shí)器Timer 事件的時(shí)間間隔可人為設(shè)定D) 計(jì)時(shí)器的Interval 屬 性以秒為單位22．用（ ）分隔同一窗體中的多組單選按鈕，使它們互不干擾。( A )A) 框架 B) 組合框 C) 復(fù)選框 D) 列表框18．將框架的（ ）屬性設(shè)為False ，可使框架內(nèi)的所有對(duì)象在運(yùn)行時(shí)均不可見。( C )A) 無(wú) B) 0 C) 1 D) 214．使用（ ）語(yǔ)句可將列表框List1的第3項(xiàng)的值置為“Basic ”。( C )A) = 3 B) = 3C) = 2 D) = 210．使用（ ）方法可以一次性刪除列表框中全部項(xiàng)目。( D )A) = 北京奧運(yùn) B) 北京奧運(yùn)C) (0) = 北京奧運(yùn) D) 北京奧運(yùn),06．使用（ ）方法可以只刪除列表框指定項(xiàng)目。( B )A) （ListCount1） B) （）C) （ListCount ） D) （)2．下列（ ）控件結(jié)合了文本框和列表框的特性。( D )A) Value B) Align C) Sorted D) Alighment13．下列（ ）方法可以將復(fù)選框設(shè)置為圖形復(fù)選框。( B )A) Value B) Checked C) Caption D) Stytle9．要取得復(fù)選框的狀態(tài)，應(yīng)訪問(wèn)（ ）屬性。( B )A) = 1 B) = 2 C) = 1 D) = 05．下列（ ）語(yǔ)句使復(fù)選框Check1的標(biāo)題顯示在左邊。( D )A) 該文本框無(wú)法獲得焦點(diǎn) B) 無(wú)法在該文本框中輸入文本C) 焦點(diǎn)將始終停留在該文本框上 D) 該文本框無(wú)法通過(guò)使用Tab 鍵獲得焦點(diǎn)第5章 常用控件部分1．復(fù)選框的Value 屬性為0表示（ ）。( A )A) MaxLength B) Width C) MultiLine D) MaxText43．窗體上有文本框Text1和命令按鈕Command1，對(duì)Command1編寫如下事件過(guò)程： Private Sub Command1_Click() = 12345 = 1 = 3MsgBox End Sub運(yùn)行時(shí)，單擊命令按鈕，出現(xiàn)的信息框顯示（ ）。( B )A) 字母 B) 大寫字母 C) 大寫字母外的其它字符 D) 不能輸入字母39．文本框沒(méi)有（ ）屬性。( D )A) = 0 B) == 1C) = True D) = False35．設(shè)置標(biāo)簽的（ ）屬性，可改變其文字對(duì)齊方式。( B )A) Text = B) = C) D) 31．設(shè)置（ ）屬性使標(biāo)簽Label1沒(méi)有邊框。( C )Private Sub Command1_Click()MsgBox CStr(123 + 321)End SubA) 444 B) 123321 C) 123 + 321 D) 顯示出錯(cuò)信息27．執(zhí)行語(yǔ)句a = MsgBox(你好, vbAbortRetryIgnore + vbDefaultButton2)，當(dāng)出現(xiàn)消息框時(shí)，按回車，a 的值為（ ）。 ( D )A) 0是默認(rèn)值 B) 輸入框標(biāo)題是n= C) n等于數(shù)值5 D) n的值為字符523．執(zhí)行x = MsgBox( 數(shù)據(jù)類型不匹配, , 出錯(cuò)提示!) ，然后按回車，x 的值是（ ）。( B )A) Today B) Tomorrow C) Today And Tomorrow D) 119．下列語(yǔ)句組：a$=Today And Tomorrowb$=Right(a$,8):c$=Left(a$,5)MsgBox a$, ,b$,c$執(zhí)行后消息框中顯示的內(nèi)容是（ ）。( D )A) True B) False C) 1 D) 215．下列語(yǔ)句正確的是（ ）。 ”作為語(yǔ)句的結(jié)束符12．以下程序段中有（ ）處錯(cuò)誤。( B )A) 1 + 2 = 3 B) x = y 0 C) y 0 = x D) x = 2y9．下列語(yǔ)句錯(cuò)誤的是（ ）。 10+6的輸出結(jié)果是（ ）。( B )A) B) C) D) 2．下列語(yǔ)句合法的是（ ）。 y 。( C )A) Int() B) Fix() C) Round() D) Trunc()45．表達(dá)式UCase(Mid(basic!, 1, 1)) + Right(basic!, 5)的值是（ ）。( D )A) Right(a,4) B) Instr(a,5,4) C) Left(a,5,4) D) mid(a,4,2)41．表達(dá)式InStr(3, 文件系統(tǒng)控件, 件) 的值是（ ）。( B )A) 0 B) 1 C) 1 D) 以上都不對(duì)37．如果Sgn(x)的值為1，整型變量x 的值是（ ）。( B )A) 0 B) 4 C) 6 D) 833．以下（ ）語(yǔ)句可表示[50,100]之間的隨機(jī)數(shù)。( D )A) 6 B) 126 C) 20 D) 13230．表達(dá)式12000 + 123 amp。 j = 027．下列賦值語(yǔ)句中，正確的是（ ）。( B )A) 0 x 10 B) x 0 And x 10 C) x 0 Or x 10 D)