计算机二级等级(VB)模9．若有Const PI=3.14159，PI称为
（ ）。B
拟试题三 A. 变量名 B. 符号常量名
C. 对象名 D. 函数名
一、单选题(1分×25=25分)
1. “对象名称”指的是该对象的10. 语句Print Sgn(Abs(-6^2))的输（ ）属性。D 出结果是（ ）。B
A. FileName B. Color A.-1 B. 1 C. Caption D. Name 2. Visual Basic集成环境中打开属性窗口可按的键是（ ）。B A. F5 B. F4 C. F7 D. F1 3.为了把窗体上某个控件变为活动的，应执行的操作是（ ）。A A. 单击该控件 B. 单击窗体 C. 双击该控件 D. 单击标题栏 4. VB窗体设计器的主要功能是（ ）。C A. 编写程序代码 B. 画图 C. 建立用户界面 D. 显示执行结果 5. 下列运算符中，优先级最高的是（ ）。A A. ^ B. * C. + D. Mod 6. Round(-3.5)的结果是（ ）。B A. 3.5 B. -4 C. -3.5 D. -3 7. Ucase(“abc”)的结果是（ ）。A A. ABC B. Abc C. abC D. abc 8. Dim S As String所定义的变量S的类型是（ ）。C A. 逻辑型 B. 双精度型 C. 字符串型 D. 整型 C. -36 D. 36 11. 下面可产生[40,60]之间随机整数的是（ ）。D
A. Rnd*60 B. Int(Rnd*20+40) C. Int(Rnd*60) D. Int(Rnd*21+40) 12. 设a=“Visual Basic”，则能使b=“Basic”的语句是（ ）。D A. b=left(a,8,12) B. b=left(a,8,5) C. b=Right(a,5,5) D.b=mid(a,8,5) 13. 组合框中不能使用的属性是（ ）。C A. Name B. Text C. Selected D. Style 14. 下列叙述中正确的是（ ）。D A. 在窗体的Form_Load事件过程中定义的变量是全局变量 B. 使用局部变量会影响模块的独立性 C. 在某个Sub过程中定义的局部变量可以与其他过程中的局部变量同名 D. 在调用过程时，所有局部变量被初始化为0或字符串 15. 下列关系表达式中，其值为True的是（ ）。A A. “VisualBasic”<>“visualbasic” B. “the”=“there”
C. “XYZ”>“xyz” D. “Integer”<“Int”
16. 设有如下的记录类型：B Type Student Number As Sting Name AS String Age As Integer End Type 则正确引用该记录类型变量的代码是（ ）。 A. Student.name=“张三” B. Dim s As Student s.name=“张三” C. Dim s As Type Student D. Dim s As Type s.name=“张三” s.name=“张三” 17. 如果把命令按钮的Cancel属性设置为True，则程序运行后（ ）。C A. 按Enter键与单击该命令按钮作用相同 B. 按Esc键将停止程序的运行 C. 按Esc键与单击该命令按钮作用相同 D. 按Enter键将中断程序的运行 18. 下列有关循环的语句中，循环次数仅为一次的是（ ）。B A. For i=0 to 1 B. For i=0 to 0 C. While(1)…Wend D. While(0)…Wend 19. 在D:\\pic文件夹中有1个图形文件名为ma.gif，将该图形装入名为Form1的窗体，应使用的语句是（ ）。D A. Form1.Picture =D:\\pic\\ma.gif B. Form1.Picture =“D:\\pic\\ma.gif” C. Form1.Caption=ma.gif D. Form1.Picture =LoadPicture(“D:\\pic\\ma.gif”) 20. 在标签中显示文本可用的属性是（ ）。C A. Text B. Name C. Caption D. Autosize
21. 在Option Base 1的前提下，若有定义Dim A%(10)，则数组A所占的字节数是（ ）。A A.20 B.10 C.22 D.11 22. 下面哪一个是返回系统当前月份的函数？（ ）A A. Month(Now) B. WeekDay(Now) C. Year(Now) D. Day(Now) 23. 下面程序段的执行结果是（ ）。C
Private Sub Form_Click()
Dim a(1, 1) For i = 0 To 1 For j = 0 To 1 If i = j Then a(i, j) = 0: Print a(i, j); Else a(i, j) = 1: Print a(i, j); End If Next j Print Next i
End Sub A. 1 0 B. 0 1 1 0 C. 0 1 D. 1 0 0 1 24. 下面定义为Function函数过程的定义语句正确的是（ ）。B A. Integer Function Fun(a As Integer) B. Function Fun(a As Integer) As Integer C. Static Function Fun(Integer a) D. Private Public Fun(a) As Integer
25. 表示文件当前读写位置的函数是
0 1 1 0 （ ）。D
A. EOF B. LOF C. END D. LOC
35. 执行IIf(8<5,1,2)的结果是（ ① ）。(2)
二、多选题(2分×5=10分)
36. 执行Print
26. 在VB集成环境中的窗体有Format$(2345,“#,###”)的结果是（ ）。ABCD （ ① ）。(2,345) A. 窗体布局窗口 B. 立即窗口 C. 属性窗口 D. 工具箱窗口 27. 下面属于VB中基本数据类型的有（ ）。 ABD A. 字符串型 B. 整型 C. 复数型 D. 字节型 28. 下面属于VB内部函数的有（ ）。AB A. Val B. Sin C. Name D. Print 29. 下面与窗体有关的事件的有
（ ）。ABD
A. DblClick B. Click C. Name D. Load 30. 如果不使用Option Base语句，则下面数组说明语句等效的有（ ）。AD A. Dim A (0 to 8,0 to 3) B. Dim A (1 to 8,1 to 3) C. S Dim A(7,2) D. Dim A(8,3) 三、填空题(1分×10=10分) 31. 对象的特征称为（ ① ）。（属性） 32.表达式4+5\\6*7/8 Mod 9的值是（ ① ）。（5） 33. 利用库函数将e2
（e为自然对数的底）写成VB的表达式（ ① ）。（Exp(2)） 34. Print -2 And -3的结果是（ ① ）。(-4) 37. 结构化程序设计的三种基本结构是循环结构、（ ① ）结构和顺序结构。(选择) 38. 若有a=Array(1,2,3,4)，a(2)的值是（ ① ）。(3) 39. 在过程调用中，允许直接递归调用和（ ① ）递归调用。（间接） 40. 在VB中的数据文件分为顺序文件和（ ① ）文件。(随机) 四、判断题(1分×10=10分)
41. 对窗体的Caption属性的设置，决定了窗体标题栏显示的内容。A A. 正确 B. 错误
42. VB中的对数函数Log是以10为底的常用对数。B A. 正确 B. 错误
43. 若某控件的Visible属性设置为
False，表示该控件不存在。B A. 正确 B. 错误 44. 所有算术运算符的优先级别高于所有关系运算符。A
A. 正确 B. 错误 45. 对象的行为称为属性。B A. 正确
B. 错误
46. VB中数组的下标可以不是整数。B
A. 正确 B. 错误
47. 在文本框中只能显示文本，不能输入文本。B
A. 正确 B. 错误
48. 不能用GoTo语句进入Sub过程，可以用GoTo语句退出Sub过程。B
A. 正确 B. 错误
49. 顺序文件的读语句是Get语句。B
A. 正确 B. 错误 50. 若过程调用时，形参前面有关键字ByVal，则表示该参数用传值方式传递。A A. 正确 B. 错误 五、程序分析题（3小题，每题5
分，共15分） 51. 阅读下面程序，写出执行结果。（ ① ） Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i < 4 Then x = x + 1 Print x; Next i End Sub （答案：2 3 4 4） 52. （答案：1 2 3 4 5 6 7 8 9 ） 53. 阅读下面程序，写出执行结果。
（ ① ）
Sub ss(ByVal x As Integer,
ByVal y As Integer)
x = x + y y = x - y
x = x - y End Sub Private Sub
Command1_Click() Dim a As Integer, b As Integer a = 8 b = 15 ss a, b
Print \End Sub （答案：a=8 b=15）
六、程序填空题（2小题，每题6分，共12分）
54. 下面是计算s=1！+2！+3！+4！+5！的程序，请在________填入适当的内容，将程序补充完整。
Private Sub Form_Click()
s =____①____ t = ___②_____ For i = 1 To 5 t = t * i
___③_____ Next i Print s End Sub
答案：① 0 ② 1 ③ s=s+t 55. (程序填空题) 程序执行后能在窗体显示如下结果，请在________填入适当的内容，将程序补充完整。 Private Sub Command1_Click() For i = 1 To 4 Print Tab(9 - 2 * i); For j = 1 To ____①____ Print ___②_____ Next j ___③_____ Next i End Sub 答案：① i ② Print \③ Print 七、程序设计题（1小题，每题8分，共8分）
56. (编程题) 答案： Option Base 1 Dim I As Integer Dim J As Integer
Private Sub Form_Load() Dim A(3, 4) Randomize
Print Print For I = 1 To 3 For J = 1 To 4
A(I, J) = Int(Rnd * 21)
Print Format$(A(I, J), \ 00\
Next J Print Next I For J = 1 To 4
T = A(1, J)
A(1, J) = A(3, J)
A(3, J) = T
Next J
Print Print
For I = 1 To 3
For J = 1 To 4
Print Format$(A(I, J), \ 00\
Next J
Print Next I End Sub
八、操作题（2小题，每题5分，共10分）
57. (操作题)
答案：
Private Sub Form_Load()
MsgBox \you continue to ?\1 + 32, \窗口\End Sub
答案：
Option1.Caption=” 开始” Option1.Style=0 Text1.Text=” 结束” Text1. Alignment=2
58. (操作题)