1、 1. Visual Basic 是一种面向对象的程序设计语言， _不是面向对象系统所包含的三个要素之一 A. 变量 B. 事件 C. 方法 D. 属性 正确答案： A，你的答案： A， 2. 决定控件在窗体中的位置的属性是 _ A. EnabledB. Left 和 TopC. VisibleD. Width和 Height 正确答案： B，你的答案： B， 3. 要判断在文本框中是否按下 Enter 键，应在文本框的_事件中判断。 A. ChangeB. DblClickC. KeyPressD. Click 正确答案： C，你的答案： C， 4. 为了在文本框中显示多行文本，可设置其 S
2、crollBars 属性为 2（垂直滚动条） ,但同时还需要设置 _属性的值为 True A. MultiLineB. TextC. MaxLengthD. Enabled 正确答案： A，你的答案： A， 5. 下列属性中，标签没有的属性是 _ A. NameB. CaptionC. TextD. Width 正确答案： C，你的答案： C， 6. 下面 _是不 合法的整型常量。 A. 100B. &H100C. &100D. &E100 正确答案： D，你的答案： C， 7. 表达式 “123“+“100“ & 200 的值是 _ A. 123300B. 423C. 223200 D. 1
3、23100200 正确答案： D，你的答案： D， 8. 可以用来调用 Windows 中计算器程序的语句是_ A. k=Shell(“Calc.exe“,1)B. k=Shell(Calc.exe,1)C. Calc.exeD. Shell(“Calc.exe“,1) 正确答案： A，你的答案： A， 9. 以下关系表达式中，其值为 False 的是 _。 A. “AB“ “Ab“B. “123“ C. Case 2， 3， 4D. Case x20 正确答案： D，你的答案： D， 15. 现有如下一段程序：执行程序，在输入框中输入字母“b“，则以下叙述中正确的是 ( )。 Private
4、 Sub Command1_Click() x UCase(InputBox(“输入： “) Select Case x Case “A“ To “C“ Print “考核通过！ “ Case “D“ Print “考核不通过 ！ “ Case Else Print “输入数据不合法！ “ End Select End Sub A. 程序运行错 B. 在窗体上显示 “考核通过！ “C. 在窗体上显示 “考核不通过 ！ “D. 在窗体上显示 “输入数据不合法！ “ 正确答案： B，你的答案： A， 16. 在窗体上画一个命令按钮，然 后编写如下事件过程： Private Sub Command1
5、_Click() Dim a As String aInputBox(“请输入一个二进制数 “) n Len(a) For i 1 To n Dec Dec * 2 _(a， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击 “确定 “按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在 “_“处填入的内容是 ( )。 A. RightB. MidC. LeftD. Val 正确答案： B，你的答案： B， 17. 在窗体上画一个名称为 Command1 的命令按钮，编写如下事件过
6、程： Private Sub Command1_Click() n 0 For i 0 To 10 X 2 * i 1 If X Mod 3 0 Then n n 1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是 ( )。 A. 5B. 1C. 7D. 3 正确答案： D，你的答案： B， 18. 在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k 1 To 10 M(k) 12 k Next k x 8 Print M(2
7、M(x) End Sub 运行程序，单击命令按钮，在窗体上显示的是 ( )。 A. 5B. 7C. 6D. 8 正确答案： C，你的答案： B， 19. 窗 体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x%， y%， z% x InputBox(“请输入第 1个整数 “) y InputBox(“请输入第 2个整数 “) Do Until x y If xy Then x x y Else y y x Loop Print x End Sub 运行程序，单击命令按钮，并输入 2 个整数 169 和 39，
8、则在窗体上显示的内容为 ( )。 A. 13B. 23C. 11D. 39 正确答案： A，你的答案： A， 20. 以下能够正常结束循环操作的程序段是 A. i = 5 Do i = i + 2 Loop Until i = 1B. i = 0 Do While i 0 i = i - 2 Loop 正确答案： D，你的答案： D， 21. 在窗体上画两个文本框 (名称分别为 Text1 和 Text2)和一个命令按 钮 (名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x 0 Do While x50， Int(a3)， a Mod 2) A. 1 B. 0
