計(jì)算機(jī)二級(jí)VB選擇題及答案補(bǔ)充選擇

1、1、 下列敘述中，錯(cuò)誤的是（B ）。 A、 VB程序代碼不區(qū)分字母大小寫B(tài)、 VB程序代碼中使用“/”表示注釋一行C、 VB程序代碼中不能使用數(shù)字作為標(biāo)識(shí)符的首字符D、 VB程序代碼以“回車換行”作為語(yǔ)句結(jié)束標(biāo)志2、 下列關(guān)于VB代碼編輯時(shí)常用組合鍵的敘述錯(cuò)誤的是（C ）。 A、 CtrlC表示復(fù)制選定代碼B、 CtrlX表示剪切選定代碼C、 CtrlP表示粘貼代碼D、 CtrlY表示刪除整行代碼3、 用戶自定義數(shù)據(jù)類型的成員不能是（ A）。A、 數(shù)組B、 日期型C、 貨幣型D、 定長(zhǎng)字符串4、 如要表示一個(gè)在100300000之間變化的整數(shù)，應(yīng)使用（ C）型變量。 A、 IntegerB、

2、StringC、 LongD、 Byte5、 下列賦值語(yǔ)句中，正確的是（C ）。A、 i + j = 10B、 2i = jC、 j = i + jD、 i = j = 06、 能正確表達(dá)2的3次冪的表達(dá)式是（B ）。 A、 2 * 3B、 2 3C、 2 * 3D、 2 & 37、 表達(dá)式123 + 23 Mod 100 7的值是（D ）。 A、 6B、 126C、 20D、 1328、 表達(dá)式12000 + 123 & 100的值是（A ）。 A、 12123100B、 12223C、 24300D、 122239、 下列表達(dá)式中，非法的是（ C ）。A、 ab+cC、 abcD、 a=b

3、+c10、 表達(dá)式23 + 23 Mod 50 7的值是（C）。A、 23B、 46C、 25D、 12311、 下列表達(dá)式的值為15的是（C ）。 A、 Int(14.6)B、 Fix(14.6)C、 Round(15.3)（該函數(shù)是按照指定的小數(shù)位數(shù)進(jìn)行四舍五入運(yùn)算的結(jié)果）D、 Trunc(15.3)12、 返回值為非字符串的函數(shù)是（ C ）。 A、 UcaseB、 StrC、 AscD、 Chr13、 Print方法緊密輸出時(shí)，用（D ）分隔多個(gè)表達(dá)式。 A、 空格B、 逗號(hào)C、 冒號(hào)D、 分號(hào)14、 以下程序段中有（C ）處錯(cuò)誤。 ReDim a As Integer n + 3 =

4、n a = 0 ; b = 1 Print n + 3 = nA、 1B、 2C、 3D、 415、 下列語(yǔ)句中能清除運(yùn)行時(shí)在窗體中顯示的文本的是（ A ）。 A、 Form1.ClsB、 Form1.CleanC、 Form1.ReleaseD、 Form1.Clear16、 在立即窗口中執(zhí)行語(yǔ)句：a=InputBox(請(qǐng)輸入姓名：,姓名,張三),出現(xiàn)輸入對(duì)話框后直接選擇確定按紐后，a的值為（B）。A、 姓名B、 張三C、 請(qǐng)輸入姓名：D、 以上都不對(duì)17、 在屬性窗口設(shè)置窗體的Moveable屬性為False，使得窗體（B ）。 A、 不可見(jiàn)B、 不可移動(dòng)C、 不可放大D、 不可激活18、

5、 要為窗體設(shè)置一幅背景圖片，應(yīng)設(shè)置（ D ）屬性。 A、 BackImageB、 ImageC、 IconD、 Picture19、 能模式當(dāng) Show 在顯示無(wú)模式窗體時(shí)，隨后遇到的代碼則要執(zhí)行。當(dāng) Show 在顯示模式窗體 (modal form) 時(shí)，則隨后的代碼直到該窗體被隱藏或卸載時(shí)才能執(zhí)行。當(dāng) Show 在顯示模式窗體時(shí)，除了模式窗體中的對(duì)象之外不能進(jìn)行輸入（鍵盤或鼠標(biāo)單擊）。對(duì)其它窗體進(jìn)行輸入前程序必須隱藏或卸載模式窗體（通常是處于響應(yīng)用戶某些操作狀態(tài)）。MDIForm 不能是形式的。在模式窗體顯示時(shí)，雖然應(yīng)用程序中的其它窗體失效，但其它應(yīng)用程序不會(huì)失效。顯示Form1窗口的語(yǔ)句

6、是（C ）。 A、 Form1.ShowB、 Form1.LoadC、 Form1.Show vbModalD、 Form1.Load vbModal20、 下列控件屬性賦值語(yǔ)句錯(cuò)誤的是（D ）。A、 Label1 = 歡迎B、 Text1.Text = 歡迎C、 Text1 = 歡迎D、 Text = 歡迎21、 文本框沒(méi)有（ D）屬性。A、 Name B、 LeftC、 FontD、 Caption22、 能使文本框Text1中文本不可編輯的語(yǔ)句是（D ）。 A、 Text1.Editable = FalseB、 Text1.Enabled = TrueC、 Text1.TabStop =

7、 FalseD、 Text1.Locked = True23、 窗體上有文本框Text1和命令按鈕Command1，對(duì)Command1編寫如下事件過(guò)程：Private Sub Command1_Click() Text1.Text = 12345 Text1.SelStart = 1 Text1.SelLength = 3 MsgBox Text1.SelText End Sub運(yùn)行時(shí)，單擊命令按鈕，出現(xiàn)的信息框顯示（B ）。 A、 12345B、 234C、 123D、 34524、 在窗體上有一個(gè)名稱為Text1的文本框，要得到在其中輸入字符的ASCII碼，應(yīng)使用它的（ A ）事件。A、

8、KeyPress B、 KeyUpC、 KeyDownD、 Change25、 要用文本框控件Text1實(shí)現(xiàn)一個(gè)密碼輸入框，可以通過(guò)（ A ）設(shè)置，使得無(wú)論用戶輸入什么字符文本框只顯示“*”。A、 Text1.PasswordChar = *B、 Text1.Font = * C、 Text1.Text = *D、 Text1.Appearance = * 26、 下列語(yǔ)句中，除（ ）以外，都能使文本框Text1不可編輯（ C ）。A、 Text1.Locked = TrueB、 Text1.Visible = FalseC、 Text1.ReadOnly = TrueD、 Text1.Ena

9、bled = False27、 Pset方法繪制的點(diǎn)的大小受其容器對(duì)象的（ A ）屬性的影響。A、 DrawWidthB、 PictureC、 AutoRedrawD、 Stretch28、 下列（ B ）方法可以將復(fù)選框設(shè)置為圖形復(fù)選框。 A、 Check1.Style = 0 B、 Check1.Style = 1C、 Check1.Picture = 0D、 Check1.Picture = 129、 窗體上有一個(gè)單選按鈕Option1。如要求當(dāng)窗體初始顯示時(shí)Option1就處于選中狀態(tài)，可以通過(guò)（ C ）實(shí)現(xiàn)。A、 在窗體的Load事件過(guò)程中加入語(yǔ)句：Option1.Value = F

10、alseB、 在窗體的Show事件過(guò)程中加入語(yǔ)句：Option1.Value = False C、 在窗體的Load事件過(guò)程中加入語(yǔ)句：Option1.Value = True D、 在窗體的Show事件過(guò)程中加入語(yǔ)句：Option1.Value = True30、 下列敘述中，錯(cuò)誤的是（D ）。A、 單擊命令按鈕可觸發(fā)MouseDown事件B、 單擊命令按鈕可觸發(fā)MouseUp事件C、 命令按鈕支持單擊事件D、 命令按鈕支持雙擊事件31、 執(zhí)行（B ）語(yǔ)句，可使窗口的按鈕Command1上顯示“確定”。A、 Command1.Show = 確定B、 Command1.Caption = 確定

11、C、 Command1.Name = 確定D、 Command1.Visible = 確定32、 下列語(yǔ)句（A ）可以使命令按鈕Command1處于禁止?fàn)顟B(tài)。 A、 Command1.Enabled = FalseB、 Command1.Disabled = FalseC、 Command1.Enabled = TrueD、 Command1.Disabled = True33、 應(yīng)通過(guò)（A ）屬性裝入命令按鈕處于激活狀態(tài)時(shí)顯示的圖片。 A、 PictureB、 EnabledPictureC、 DownPictureD、 DisabledPicture34、 下列語(yǔ)句（D ）可以設(shè)置命令按鈕

12、Command1的標(biāo)題字體為黑體。 A、 Command1.Caption.Name = 黑體B、 Command1.Font = 黑體C、 Command1.Font.FontName = 黑體D、 Command1.FontName = 黑體35、 要設(shè)計(jì)一個(gè)圖形方式的命令按鈕，且按鈕被按下與不按下時(shí)顯示不同的圖像，可通過(guò)對(duì)（ D ）屬性進(jìn)行設(shè)置。A、 Picture、DisabledPictureB、 Picture、DownPicture C、 Style、Picture和DisabledPictureD、 Style、Picture和DownPicture36、 設(shè)置列表框的（A ）

13、屬性可以使每個(gè)列表項(xiàng)前面出現(xiàn)一個(gè)復(fù)選框。 A、 StyleB、 SortedC、 MultiSelectD、 ListCheck37、 設(shè)有兩個(gè)列表框控件List1和List2，下列代碼段的功能是（ C ）。For i = 0 To List1.ListCount - 1 List2.List(i) = List1.List(i)Next iA、 將List1的所有列表項(xiàng)追加到List2中 B、 將List1的所有列表項(xiàng)插入到List2的前部 C、 用List1的所有列表項(xiàng)覆蓋List2中對(duì)應(yīng)位置的列表項(xiàng) D、 用List1取代List238、 設(shè)組合框Combo1中有5個(gè)選項(xiàng)，下列能刪除最后

14、一項(xiàng)的語(yǔ)句是（D）。A、 Combo1.RemoveItem TextB、 Combo1.RemoveItem Combo1.ListcountC、 Combo1.RemoveItem 5D、 Combo1.RemoveItem 439、 若列表框List1中有5個(gè)選項(xiàng)，下列（A）語(yǔ)句可以把選項(xiàng)Visual Basic添加到列表框的最后一項(xiàng)。 A、 List1.AddItem Visual Basic , List1.ListCount B、 List1.AddItem Visual Basic , List1.ListCount-1C、 List1.AddItem Visual Basic

15、, 4 D、 List1.AddItem 4 , Visual Basic40、 下列關(guān)于框架及其內(nèi)部放置的命令按鈕的敘述，錯(cuò)誤的是（D ）。 A、 命令按鈕跟隨框架一起移動(dòng)B、 如果框架被禁止，則命令按鈕也被禁止C、 如果框架不可見(jiàn)，則命令按鈕也不可見(jiàn)D、 單擊框架時(shí)，框架和命令按鈕的Click事件同時(shí)被激發(fā)41、 當(dāng)用戶單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量值由（ B ）屬性決定。 A、 SmallChangeB、 LargeChangeC、 MinD、 Max42、 當(dāng)控件失去焦點(diǎn)時(shí)，觸發(fā)的事件是（C ）。 A、 GotFocusB、 SetFocusC、 LostFocusD、 Move

16、Focus43、 當(dāng)文本框的TabStop屬性設(shè)為False時(shí)，下列敘述正確的是（D ）。 A、 該文本框無(wú)法獲得焦點(diǎn)B、 無(wú)法在該文本框中輸入文本C、 焦點(diǎn)將始終停留在該文本框上D、 該文本框無(wú)法通過(guò)使用Tab鍵獲得焦點(diǎn) 44、 使用（D ）語(yǔ)句可使窗體的鼠標(biāo)指針呈現(xiàn)“沙漏”型。 A、 Me.MousePointer = vbArrowB、 Me.MousePointer = vbCustomC、 Me.MousePointer = vbCrossD、 Me.MousePointer = vbHourglass45、 在程序運(yùn)行時(shí)，按Tab鍵跳過(guò)了一個(gè)可以獲得焦點(diǎn)的控件(如文本框),這可能是

17、因?yàn)椋―）。A、 該控件的Enabled屬性為True B、 該控件的Enabled屬性為False C、 該控件的TabStop屬性為True D、 該控件的TabStop屬性為False46、 執(zhí)行下列程序段后，窗體輸出的結(jié)果是（A ）。 Dim X As Integer, Y As Integer Y = Val(InputBox(請(qǐng)輸入a的值, , 9) 直接按回車鍵 Select Case Y Case Is 10 x = x + 1 Case 5, 7, 9, 11 x = x + 2 Case 5 To 15 x = x + 3 Case Else x = x + 4 End S

18、elect Print xA、 1B、 2C、 5D、 647、 窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程： Private Sub Command1_Click() Dim a%, b% a = 6: b = -1 If a 0 Or b 0 Then a = a + b ElseIf a 0 And b 0 Then b = a Else b = a * b End If Print a, b End Sub運(yùn)行時(shí)，單擊按鈕，窗體輸出的結(jié)果為（D ）。 A、 6 6B、 5 -1C、 6 -6D、 -1 -148、 下列程序段的執(zhí)行結(jié)果是（C）。 Dim x As Doubl

19、e Dim y As Double x = Int(42 4) + 3 Select Case x Case Is 3 y = x + 1 Case Is 12 y = 2 * x + 5 Case Else y = 3 * x + 11 End Select Print yA、 25B、 75 C、 50D、 1449、 下列程序段的執(zhí)行結(jié)果是（C）。 x = 5: y = 7: z = 4 If x y Then t = x: x = y: y = t End If If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y =

20、t End If End If Print x, y, zA、 5 7 4B、 4 5 7C、 7 5 4D、 5 4 750、 運(yùn)行下列程序，單擊窗體后輸出結(jié)果是（B ）。 Private Sub Form_Click() Dim i%, j%, k% i = 1: j = 1: k = 10 Do While i 10 Then Exit For Next i Text1.Text = Str$(x) End Sub運(yùn)行后，單擊按鈕，Text1顯示（B ）。 A、 6 B、 8C、 10D、 10053、 窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程： Private Sub C

21、ommand1_Click() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print aEnd Sub運(yùn)行時(shí)，單擊命令按鈕，窗體上將顯示（ C ）。A、 3B、 4C、 5D、 654、 設(shè)有以下程序段： For i = 1 To 4 For j = 6 To 1 Step -1 Print i * j Next j, i則語(yǔ)句Print i * j的執(zhí)行次數(shù)是（ C ）A、 12B、 13C、 24D、 2555、 下列程序段的執(zhí)行結(jié)果是（B）。 F

22、or i = 3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next iA、 *B、 *C、 *D、 *56、 在通用聲明中給出Option Base 1語(yǔ)句，則數(shù)組a包含（ C）個(gè)元素。 Dim a(3, -2 To 1, 5)A、 120B、 75C、 60D、 1357、 運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（B ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3,

23、4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End SubA、 15B、 48C、 120D、 72058、 對(duì)窗體上的命令按鈕編寫如下事件過(guò)程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10 arr(i, j) = i + 2 * j Next j Next i Print arr(0, 1) + arr(2, 3)

24、 End Sub 運(yùn)行時(shí)，單擊命令按鈕后輸出的結(jié)果是（A ）。 A、 8B、 10C、 20D、 下標(biāo)越界59、 窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程： Private Sub Command1_Click() Dim s%, i%, j% Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To i a(i, j) = j s = s + a(i, j) Next j, i Print s End Sub運(yùn)行時(shí)，單擊按鈕，則窗體上顯示的內(nèi)容是（C ）。 A、 6B、 9C、 10D、 1860、 運(yùn)行下列程序，單擊窗體后輸出結(jié)果是

25、（C ）。 Private Sub Form_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6) For i = 1 To a(5) j = j + 1 Next i Print j End SubA、 0B、 5C、 6D、 程序出錯(cuò)61、 設(shè)arr是一個(gè)上界為K的一維動(dòng)態(tài)數(shù)組。能使arr元素個(gè)數(shù)增加1，但保留數(shù)組中原有數(shù)據(jù)的語(yǔ)句是（ D ）。A、 ReDim arr(K + 1)B、 ReDim Static arr(K + 1)C、 Public arr(1 To K + 1)D、 ReDim

26、Preserve arr(K + 1)62、 窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程： Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0 n = InputBox() For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub運(yùn)行時(shí)，單擊命令按鈕，如果在輸入對(duì)話框中輸入3，則窗體上顯示的內(nèi)容是（ B）。A、 6B、 10C、 14D、 1863、 窗體上有命令按鈕Command1和Command2，閱讀下列程序： Private Sub Co

27、mmand1_Click() a = a + 1 : Print a； End Sub Private Sub Command2_Click() a = a + 1 : Print a End Sub運(yùn)行時(shí)，先后單擊Command1和Command2按鈕，輸出的結(jié)果為（A ）。A、 1 1B、 2 2C、 1 2D、 2 164、 窗體上有文本框（Text1、Text2和Text3）和命令按鈕（Command1），編寫如下事件過(guò)程： Private Sub Command1_Click() Dim x%, y%, z% x = 1: y = 2: z = 3 Call proc(x, y, z

28、) Text1.Text = x Text2.Text = y Text3.Text = z End Sub Private Sub proc(ByVal a%, b%, c%) a = a + b + c b = a + b + c c = a + b + cEnd Sub運(yùn)行后，單擊按鈕，Text1、Text2和Text3將分別顯示（C ）。 A、 1、2和3B、 1、6和6C、 1、11和20D、 6、11和2065、 運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（D ）。 Private Sub Sele(x%, y%, z%) x = x + 1: y = y + 1: z = z + 1

29、Print x; y; z End Sub Private Sub Form_Click() Dim a%, b%, c% a = 1: b = 2: c = 3 Call Sele(a, b + 1, (c) Print a; b; c End SubA、 1 1 11 2 3B、 2 3 41 2 3C、 1 2 32 4 4D、 2 4 42 2 366、 窗體上有一個(gè)文本框Text1和命令按鈕Command1，編寫如下事件過(guò)程和過(guò)程p1： Private Sub Command1_Click() Dim x%, y%, z% x = 7: y = 8: z = 9 Text1.Text

30、 = Call p1(x, y, z) Text1.Text = Str(z)End Sub Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub運(yùn)行時(shí)，單擊命令按鈕，Text1中的內(nèi)容為（ B ）。A、 0B、 15C、 9D、 Str(z)67、 運(yùn)行下面的程序，輸出的結(jié)果為（ A ）。 Public Function f(ByVal n%, ByVal r%) If n 0 Then f = f(n r, r) Print n Mod r; End If End Function Private Sub Command1_Click() Print f(20, 8) End SubA、 2 4B、 1 2 4C、 1 4 4D、 4 468、 窗體上有一個(gè)命令按鈕C1，兩