华南理工 网络高级语言程序设计(VB)随堂练习

1. VB是以（ ）作为运行机制的新一代可视化程序设计语言。

A. 事件驱动 B. 可视化 C. 面向对象 D. 面向过程

参考答案：A

2. VB6.0启动后,标题栏中显示的信息是( )。

A. 程序1-Microsoft Visual Basic[设计]

B. Form1-Microsoft Visual Basic[设计]

C. 工程1-Microsoft Visual Basic[设计]

D. Microsoft Visual Basic[设计]

参考答案：C

3. VB6.0集成开发环境的主窗口中不包括( )。

A. 标题栏 B. 菜单栏 C. 状态栏 D. 工具栏

参考答案：C

4. 下面选项中不能运行VB程序的操作是（ ）。

A.双击窗体 B.单击“启动”按钮图标

C.从菜单栏运行菜单中选“全编译执行”菜单命令 D. 按F5键

参考答案：A

5. 用户在什么时候都可以按（ ）键来查看与当前进行的工作相关的帮助。

B.F1 D.F10

参考答案：B

6. VB6.0的窗体设计器的主要功能是( )。

A. 画图 B. 显示文字 C. 建立用户界面 D. 编写代码

参考答案：C

7. 工程文件的扩展名为（ ）。

参考答案：A

8. 窗体文件的扩展名为（ ）。

A. vbp B. bas C. exe D. frm

参考答案：D

9. 对象的属性值是( )。

A. 代码 B. 程序 C. 名字 D. 数据

参考答案：D

10. 下面叙述中错误的是( )。

A. 所有对象具有相同的属性

B. 同类对象具有相同的属性

C. 对象的属性用来描述对象的性质和特征

D. 设置属性的值有两种方法

参考答案：A

11. 指示一个窗体位置的值是窗体的（ ）。

A.对象 B.事件 C.属性 D.方法

参考答案：C

12. 以下说法中错误的是( )。

A. 事件是VB系统预先定义好的，能够被对象识别的动作

B. 每个对象具有一些事件

C. 当事件触发时，对象会感受到该事件并对该事件作出响应

D. 事件只能由人工触发

参考答案：D

13. 以下说法中错误的是( )。

A. 对象具有方法

B. 方法是一种特殊的函数或过程

C. 使用方法要调用方法

D. 调用方法时必须给定对象名

参考答案：D

14. 下面选项中（ ）是算术运算符。

A. % B. ＆ C. Mod D. And

参考答案：C

15. 用于字符串连接的运算符是（ ）。

A. & B. + C. And D. A和B都可以

参考答案：D

16. 下面不合法的标识符是（ ）。

A. Ｇo_To B. Tab1 C. 姓名 D. Int

参考答案：D

17. 在VB6.0中，十六进制数以( )。

A. &O B. &H C. $0 D.$H

参考答案：B

18. 在VB中不能表示逻辑真的是( )。

A. True B. 1 C. 1 D. T

参考答案：D

19. 以下各项中，不是字符串常量的是（ ）。

A. ＂Basic＂ B. ＂程序设计＂ C. ＂＂ D. #Basic#

参考答案：D

20. 以下各项中，不合法的符号常量说明是（ ）。

A. Const a As Single=10.5 B. Const a As Double=Cos(10.5)

C. Const a=＂abc＂ D. Const a As Integer=10.5

参考答案：B

21. 一个变量未经定义而直接使用，则该变量为（ ）类型变量。

A. Single B. Double C. Variant D. Integer

参考答案：C

22. 下列选项中，把r定义为双精度型变量的是（ ）。

A. r% B. r! C. r# D. r$

参考答案：C

23. 下列表达式中（ ）是错误的。

A. 2^a/5 B. 2^1/5 C. 2^(1/5) D. (-2) ^(1/5)

参考答案：D

24. 在下列选项中，正确表达2a+5 的表达式是（ ）。

A. 2^a+5 B. 2^a+2^5 C. 2^(a+5) D. 2^a2^5

参考答案：C

25. 10 Mod 4的值为( )。

A. 1 B. 2 C. 4 D. 10

参考答案：B

26. 下列运算符中( )优先级最高。

A. / B. C. Mod D. +

参考答案：A

27. 表达式：104+8/4 Mod 4的值为（ ）。

A. 4 B. 3 C. 2 D. 1

参考答案：A

28. 以下各项中，正确的逻辑表达式是（ ）。

A. A>B>C B. A>B And B>C

C. A>B .And. B>C D. A>B And >C

参考答案：B

29. 能正确表达a≤1或a≥5的逻辑表达式是( )。

A. a<=1 或 a>=5 B. a<=1 ,a>=5

C. a<=1 or a>=5 D. a<=1 And a>=5

参考答案：C

30. 设X为整型变量,不能正确表达1< X < 5的逻辑表达式是(

A. 1< X <5 B. X=2 or X=3 or X=4

C. 1=5)

)。

参考答案：A

31. 逻辑表达式：Not 7 3 <= 4 Or True的值为（ ）。

A. True B. False C. T D. F

参考答案：A

32. 求35°的余弦可以使用的函数是（ ）。

A. Cos 35 B. Cos（35） C. Cos（35º） D. Cos（35*3.14159/180）

参考答案：D

33. Len(“中国人民”)的值是（ ）。

A. 0 B. 4 C. 8 D. 不能确定

参考答案：B

34. 设X是一个正实数，对X的第二位小数四舍五入可使用的函数是（ ）。

A. Int(X+0.05)/10 B. Int((X+0.05)/10)

C. Int(10*(X+0.05))/10 D. Int(10*(X+0.05)/10)

参考答案：C

35. 函数Int(Rad*99+1)产生随机数的范围是( )。

A. [1,99） B. [1, 99] C. [1，100） D. [1，100]

参考答案：B

36. 将一数值X取整而且对其小数部分四舍五入的函数为（ ）。

A. Int(X) B. Fix(x) C. Cint(x) (x)

参考答案：C

37. 将数值型量X转换为字符型量的函数是（ ）。

A. Asc(X) B. Chr(x) C. Str(x) (x)

参考答案：C

38. 表达式：Int(-10.1)+Sgn(10.1)的值为（ ）。

A. -9 B. -10 C. 9 D. 10

参考答案：B

39. 表达式：Abs(-10)+Len(＂abc＂)的值为（ ）。

A. -10 B. 3 C. 7 D. 13

参考答案：D

40. 表达式：Left(＂Microsoft Visual Basic＂，3)的值为（ ）。

A. Mic B. Vis C. sic D. MVB

参考答案：A

41. 表达式：Right(＂Microsoft Visual Basic＂，3)的值为（ ）。

A. Mic B. Vis C. sic D. MVB

参考答案：C

42. 表达式：Mid(＂Microsoft Visual Basic＂，6，4)的值为（ ）。

A. Micr B. Visu C. Basi D. soft

参考答案：D

43. 在VB中，可以在（ ）测试函数或表达式的值。

A. 代码窗口 B. 立即窗口 C. 属性窗口 D. 工程资源管理窗口

参考答案：B

44. 下列赋值语句中，（ ）是正确的。

A. x！＝＂abc＂ B. a％＝＂10e＂ C. x＋１＝５ D. s＄＝100

参考答案：D

45. 下列选项中，（ ）不能交换变量a和b的值。

A. t=b : b=a : a=t B. a=a+b : b=a-b : a=a-b

C. t=a : a=b : b=t D. a=b : b=a

参考答案：D

46. 在默认的情况下，Input函数返回值的类型是( ) 型。

A. 整 B. 实 C. 字符串 D. 数值

参考答案：C

47. 执行下面语句时，从键盘输入100，输出结果为( )。

Dim A As Integer

A=InputBox("Input Value")

Print A

A. Input B. Value C. Input Value

参考答案：D

48. 执行下面语句时，从键盘输入LiWei，输出结果为( )。

Dim A As String

A=InputBox("Input Name")

Print A

A. Input B. Name C. Input Name

D. 100

D. LiWei

参考答案：D

49. MsgBox函数返回值的类型为( ) 型。

A. 日期 B. 可变 C. 字符串 D. 数值

参考答案：D

50. 若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ ）。

A.1 B.2 C.3 D.4

参考答案：C

51. 若在消息框MsgBox中显示“确定（Ok）”和“取消（Cancel）”两个按钮，则buttons参数的设置值是（ ）。

A.0 B.1 C.2 D.3

参考答案：B

52. 若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是（ ）。

A.0 B.256 C.512 D.768

参考答案：B

53. 使字符串＂Microsoft Visual Basic＂在当前窗体上输出的语句是( )。

A. ＂Microsoft Visual Basic＂

B. Print ＂Microsoft Visual Basic＂

C. ＂Microsoft Visual Basic＂

D. ＂Microsoft Visual Basic＂

参考答案：B

54. 下列程序段的执行后显示的结果是( )。

X=10 :Y=3

Print (x*y)/5

A. 10 B. 3 C. 5 D. 6

参考答案：D

55. 下列程序段的执行结果是( )。

X=5 :Y=5 :Z=6

Print ＂E(＂;X+Y*Z;＂)

A. E( 60 ) B. E( 35 ) C. E( X+Y*Z ) D. X+Y*Z

参考答案：B

56. 以下不正确的单行结构条件语句是（ ）。

A. If x>y Then Print “x>y”

B. If x Then t=t*x

C. If x Mod 3=2 Then ? x

D. If x<0 Then y=2*x-1:Print x End If

参考答案：D

57. 执行下面语句后，输出结果为( )。

A=10:B=30

If a

A. 10 B. 30 C. 10和30 D. 30和10

参考答案：D

58. 给定程序段

Dim a As Integer, b As Integer, c As Integer

a=1：b=2：c=3

If a=c-b Then Print "#####" Else Print "*****"

以上程序（ ）。

A. 没有输出 B. 有语法错

C. 输出##### D. 输出*****

参考答案：C

59. 当执行下面语句后，B的值为( )。

B=1

If B>0 Then B=B+1

If B>1 Then B=0

A. 0 B. 1 C. 2 D. 3

参考答案：A

60. 当x的输入值分别为3、9和19时，执行下列事件过程的输出结果分别为(

Private Sub Command1_Click()

Dim x%, y%

x = InputBox("请输入x的值：")

Select Case x

Case 1, 3, 5

y = x - 1

Case 6 To 10

y = x * x

Case 2, 4

y = 2 * x

Case Is > 10

y = x Mod 3 + 4

End Select

Print y

End Sub

A. 3、9和19 B. 2、81和5 C. 5、10和10 D. 1、6和2

参考答案：B

61. 下列程序段执行后窗体上显示（ ）。

i = 0

While i <= 2

i = i + 1

Wend

Print i

A. 0 B. 1 C. 2 D. 3

)。

参考答案：D

62. 下面程序段中循环语句的循环次数是（ ）。

sum = 1:i=1

While i <= 2

i = i + 1

Sum=sum+i

Wend

Print i

A. 0 B. 1 C. 2

参考答案：C

63. 执行下列程序段后屏幕上（

i% = 10 : Sum = 0

While i > 1

Sum = Sum + i

i = i - 1

Wend

Print Sum

A. 无显示

C. 显示54

参考答案：C

64. 执行下列程序段输出结果是（ x%=2

Do while x<8

Print “*”；

x=x+2

Loop

A.* B. ** C.***

参考答案：C

65. 设有程序段

Dim k%

D. 3

。

B. 显示10

D. 显示55

）。

D.****

）

k=5

Do until k=0

k=k-1

Loop

则该程序执行循环体的次数是（ ）。

A. 1次也不执行 B. 1次

C. 5次 D. 无限次

参考答案：C

66. 执行下列程序段输出结果是（ ）。

A=0:B=1

Do

A=A+B

B=B+1

Loop While A<10

Print A,B

A. 10 5 B. A B C. 0 1

参考答案：A

67. 运行如下程序段后，x的值是（ ）。

x=2

For i=1 to 8 step 2

x=x+i

next i

A. 2 B. 18 C. 27

参考答案：B

68. 下面程序段中循环语句的循环次数是（ ）。 For x=10 To 1 Step -3

Print x

Next x

A. 0 B. 4 C. 5 D. 10

参考答案：B

D. 10

D. 38

30

69. 执行语句For i=1 to 3: i=i+1 :Next i后变量i的值是（ ）。

A. 3 B. 4 C. 5 D. 6

参考答案：C

70. 下面程序段执行后输出结果是（ ）。

For i=1 To 2

s=1

For j=0 To i-1

s=s+s*j

Next j

Print s,

Next i

A. 1 1 B. 1 2 C. 2 1 D. 2 2

参考答案：B

71. 在For语句循环体内可以用( )语句强制退出For语句的执行。

A. Exit Do B. Exit For

C. Exit Function D. Exit Sub

参考答案：B

72. 任何控件都有（ ）属性。

A. Name B. Value C. Caption D. Text

参考答案：A

73. 以下对象中不可以作为父对象的是（ ）

A. Image图像框 B. PictureBox图片框

C. Form窗体 D. Frame框架

参考答案：A

74. 窗体标题栏的显示内容由窗体的（ ）属性决定。

A. Name B. Caption C. BackColor D. Enabled

参考答案：B

75. Width 和Height是窗体的（ ）。

A. 对象 B. 事件 C. 属性 D. 方法

参考答案：C

76. 下列能在窗体Form1的标题栏中显示“VB窗体”的语句是（ ）。

A. =“VB窗体” B. =“VB窗体”

C. Form1. Name =“VB窗体” D. Form1. Caption =“VB窗体”

参考答案：D

77. 在标签框上显示的内容由（ ）属性来实现。

A. Name B. Caption C. Text D. ForeColor

参考答案：B

78. 要使标题在标签框内居中显示，Alignment属性的取值应为（ ）。

A. 0 B. 1 C. 2 D. 3

参考答案：C

79. 若使标签框根据所显示内容自动调整其大小，则可以通过设置（ ）属性值为True来实现。

A. AutoSize B. Alignment C. Enabled D. Visible

参考答案：A

80. 文本框没有（ ）属性。

A. BackColor B. Enabled C. Visible D. Caption

参考答案：D

81. 如果设置文本框最多可以接受的字符数，则可以使用（ ）属性。

A. Length B. Multiline C. Max D.

MaxLength

参考答案：D

82. 在文本框中设置垂直滚动条，要使ScrollBars的值为（ ）。

A. 0 B. 1 C. 2 D. 3

参考答案：C

83. 在运行程序时，要使文本框获得焦点，则需使用（ ）方法。

A. Change B. SetFocus C. GotFocus D. Move

参考答案：B

84. 窗体上有文本框Txt1和Txt2，用户首先从Txt1输入第一个数据，然后单击Txt2准备输入第二个数据，此时，控件Txt1发生LostFocus事件,控件Txt2发生( )事件。

A. LostFocus B. GotFocus C. SetFocus D.

Move

参考答案：B

85. 当文本框的Text属性被修改时，会发生( )事件。

A. Change B. Click C. DblClick D.

GotFocus

参考答案：A

86. 命令按钮上的文本内容由（ ）属性来设置。

A. Text B. Caption C. Name D. Show

参考答案：B

87. 若将命令按钮设置为默认选择命令按钮，可以通过（ ）属性来实现。 A. Value B. Cancel C. Default D. Enabled

参考答案：C

88. 要使命令按钮失效，则可以设置（ ）属性的值为False来实现。

A. Value B. Enabled C. Visible D. Cancel

参考答案：B

89. 若使命令按钮在屏幕不可见，则可以通过修改（ ）属性实现。

A. Value B. Enabled C. Visible D. Cancel

参考答案：C

90. 当复选框Value属性值为（ ）表示该复选框被选中。

A. 0 B. 1 C. 2

参考答案：B

91. 对于单选按钮，下列叙述中( )是错误的。

A. 属于一个框架的一组单选按钮，只能其中选取一个

B. 属于一个图片框的一组单选按钮，只能选取一个

C. 同属一个父对象的一组单选按钮，只能选取一个

D. 显示在一个窗体中的所有单选按钮，只能选取其中一个

参考答案：D

D. 3

92. 当单选按钮的Visible属性被赋为False时，程序运行后，该控件( )。

A. 在屏幕上不可见，也不可以接受事件 B. 在屏幕上可见，但不可以接受事件

C. 在屏幕上不可见，但可以接受事件 D. 在屏幕上可见，也可以接受事件

参考答案：A

93. 改变控件的Tab顺序可以修改（ ）属性值。

A. Visible B. Enabled C. TabStop D. TabIndex

参考答案：B

94. 若使框架失效，则可以通过修改（ ）属性实现。

A. Value B. Enabled C. Default D. Cancel

参考答案：B

95. 要使列表框中的项目垂直滚动，应设置Columns属性值为（ ）。

A. 0 B. 1 C. 2 D. 3

参考答案：A

96. 若要得到列表框中项目的数目，可以访问（ ）属性。

A. List B. ListIndex C. ListCount D. Text

参考答案：C

97. 设置列表框的选择方式，应当使用（ ）属性。

A. Columns B. MultiSelect C. Style D. List

参考答案：B

98. 删除列表框中的某一个项目，需要使用（ ）方法。

A. Clear B. ReMove C. Move D. ReMoveItem

参考答案：D

99. 若要清除组合框的所有项目内容，可以使用（ ）方法。

A. AddItem B. ReMove C. Clear D. Print

参考答案：B

100. 若要获得滚动条的当前位置，可以通过访问（ ）属性来实现。

A. Value B. Max C. Min D.

LargeChange

参考答案：A

101. 设置计时器的时间间隔可以通过（ ）属性来实现。

A. Value B. Text C. Max D.

InterVal

参考答案：D

102. 有一个计时器Tmr1,每隔0.5秒会自动激发一次Timer事件,时间间隔设计可使用以下( )语句。

A. Tmr1=500 B. al=500

C. =50 D. al=50

参考答案：B

103. 暂时关闭计时器，需设置（ ）属性。

A. Visible B. Enabled C. Lock D. Cancel

参考答案：B

104. 下列控件中（ ）不能接受GetFocus和LostFocus事件。

A. 命令按钮 B. 组合框 C. 复选按钮 D. 计时器

参考答案：D

105. 下列一维数组说明语句错误的是（ ）。

b(100) AS Double

b(-5 To 0) AS Byte

b(-10 To ？20) AS Integer

b(5 To 5) AS String

参考答案：C

106. 若有数组说明语句为：Dim a(-3 To 8)， 则数组a包含元素的个数是（ ）。

A. 5 B. 8 C. 11 D. 12

参考答案：D

107. 以下属于VB合法的数组元素是（ ）。

A. x[5] B. x5 C. x(5) D. x{5}

参考答案：C

108. 设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（ ）是错误的。

A. c(i-1) B. c(5+0.5) C. c(0) D. c(10)

参考答案：C

109. 使用数组说明语句: Dim a(-1 To 5) AS Integer定义数组a后如下说法正确的是（ ）。

A. 数组a中的所有元素的值为0

B. 数组a中的所有元素的值不确定

C. 数组a中的所有元素的值为-1

D. 数组a中的所有元素的值为5值

参考答案：A

110. 以下程序段的执行结果是（ ）。

Dim A(5)

For I=1 To 5

A(I)=I*I

Next I

Print A(I-1)

A. 1 B. 25 C. 16 D. 4

参考答案：B

111. 下列数组说明语句中正确的是（ ）。

A. Dim a(-1 To 5,8)AS String

B. Dim a(n,n)AS Integer

C. Dim a(0 To 8,5 To ？1)AS Single

D. Dim a(10,-10)AS Double

参考答案：A

112. 设有数组说明语句：Dim b（-１To２，-２To２），则数组b中元素的个数是（ ）。

A. 12 B. 15 C. 16 D. 20

参考答案：D

113. 设有数组说明语句：Dim c（-１To１，１To５），则下列表示数组c的元素选项中（ ）是正确的。

A. c(i+j) B. c(i)(j) C. c(i+1,j-1) D. c(1,0)

参考答案：C

114. 152．以下程序段的执行结果是（ ）。

Dim A(3,4)

For I=1 To 3

For J=1 To 4

A(I,J)=(i-1)*2+J

Print A(I,J);

Next J

Print

Next I

A. 1 2 3 4 B. 8 7 6 5

3 4 5 6 6 5 4 3

5 6 7 8 4 3 2 1

C. 5 6 7 8 D. 4 3 2 1

3 4 5 6 6 5 4 3

1 2 3 4 8 7 6 5

参考答案：A

115. 若有数组说明语句：Dim a()AS Integer，则a被定义为（ ）。

A.定长数组 B.可调数组 C.静态数组 D.可变类型数组

参考答案：B

116. 若有以下说明语句

Type employee

num As Integer

salary As Single

End Type

Dim programmer As employee

则下面表示记录变量programmer的 成员Salary正确的是（ ）。

A. programmer→salary B. .salary

C. mmer D.

参考答案：D

117. 已知有说明语句

Type dat

year As Integer

month As Integer

day As Integer

End Type

Type emp

no As Integer

name As String？10

sex As String*1

birthday As dat

salary As single

End Type

Dim programmer As emp

并假设变量programmer所表示职工的出生日期是“1978年10月1日”，则下列正确的赋值语句是（ ）。

A. year=1978：month=10：day=1

B. =1978：=10： =1

C. =1978：=10 ：=1

D. =1978：=10：

=1

参考答案：D

118. 假设有说明语句:

Type dat

year As Integer

month As Integer

day As Integer

End Type

Type emp

no As Integer

name As String？10

sex As String*1

birthday As dat

salary As single

End Type

Dim programmer As emp

则下列With语句正确的是（ ）。

A. with progammer

no=1000：name= "张勇" ： sex= "男"

with birthday

year=1978 ：month=10 ：day=1

End with

salary=2800

End with

B. with programmer

.no=1000：.name= "张勇" ：.sex="男"

with .birthday

.year=1978 ：.month=10 ：.day=1

End with

.salary=2800

End with

C. with programmer

.no=1000 ：.name="张勇" ：.sex="男"

.=1978 ：.=10 ：.=1

.salary=2800

End with

D. with programmer,birthday

.no=1000：.name="张勇" ：.sex="男"

.year=1978 ：month.=10 ：day.=1

.salary=2800

End with

参考答案：C

119. 标准模块中的代码存放在以（ ）为扩展名的文件中。

参考答案：B

120. 窗体模块的扩展名为( )。

参考答案：A

121. （ ）不能在标准模块中定义。

A.事件过程 B.子过程 C.函数过程 D.公共过程

参考答案：A

122. 使用过程是为了( )。

A. 使程序模块化 B. 使程序易于阅读

C. 提高程序运行速度 D. 便于系统的编译

参考答案：A

123. 定义过程语句中<形式参数表列>的参数可以是( )。

A. 常量或变量名 B. 表达式或变量名

C. 数组元素或变量名 D. 变量名或数组名

参考答案：D

124. 设已定义子过程p，有3个数值型传值参数；设a为实型变量，调用该子过程的正确语句为（ ）。

A. p B. call p 0.5, a, 100

C. call p ( 0.5, cos(0.1), a+10 ) D. p ( 0.5, 1.2, 100 )

参考答案：C

125. 在过程体中退出子过程的语句是（ ）。

A. Exit Do B. Exit For

C. Exit Sub D. Exit Function

参考答案：C

126. 以关键字Function定义的过程是（ ）。

A. 子过程 B. 函数过程

C. 属性过程 D. 事件过程

参考答案：B

127. 以下是子过程或函数过程定义中的开始语句,错误的为( ) 。

A. Private Function f( x As String ) As Single

B. Private Function f( x As String )

C. Private Sub f( x As String ) As Single

D. Private Sub f( x As String )

参考答案：C

128. 设已定义函数过程f，它有三个实型传值参数；设a,b和c为实型变量，则调用该函数的正确语句为（ ）。

A. f B. f( a+b, b+c )

C. f ( a+b, b+c ,c+a ) D. f a+b, b+c, c+a

参考答案：C

129. 在过程的形式参数的前面加上关键字（ ），则该参数说明为传值参数。

A. Val B. ref C. Byref D. ByVal

参考答案：D

130. 在过程的形式参数的前面加上关键字（ ），则该参数说明为传址参数。

A. Val B. ref C. Byref D. ByVal

参考答案：C

131. 单击命令按钮Command1时，下列程序代码的执行结果为( )。

Public Sub Proc1 (n As Integer ,ByVal m As Integer)

n=n Mod 10

m=m Mod 10

End Sub

Private Sub Command1_Click( )

Dim x As Integer , y As Integer

x=12 : y=34

Call Proc1 (x,y)

Print x , y

End Sub

A. 12 34 B. 2 34 C. 2 3 D. 12 3

参考答案：B

132. 在窗体上画一个命令按钮Command1，然后输入下面程序:

Function Sarr ( x() As Integer )As Integer

s=0

For i=1 To 3

s=s+x(i)*x(i)

Next i

Sarr=s

End Sub

Private Sub Command1_Click()

Dim a(1 To 3) As Integer

For i=1 To 3

a(i)=i

Next i

Print Sarr(a())

End Sub

运行上面程序后，单击命令按钮Command1，输出结果为( )。

A. 1 B. 4 C. 9 D. 14

参考答案：D

133. 关于过程作用域，错误的描述是（ ）。

A. 全局级过程的作用域为整个工程。

B. 在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称。

C. 在不同模块中定义的模块级过程可以同名。

D. 模块级过程与工程级过程不能同名。

参考答案：D

134. 在一个窗体模块中所有过程前面使用Dim说明的变量的作用域为（ ）。

A. 整个程序 B. 该窗体模块

C. 程序中的某个过程 D. 程序中的标准模块

参考答案：B

135. 关于变量的作用域，正确的描述是（ ）。

A. 在模块内定义的变量，其作用域必定为所在模块。

B. 同一模块中不同级的变量不能同名。

C. 同一模块中所有在过程之外用Dim定义的变量为全局变量。

D. 不同模块中定义的变量名字可以相同。

参考答案：D

136. 在Visual Basic中按文件的编码方式不同，可以将文件分为( )。

A. 顺序文件和随机文件 B. 文本文件和数据文件

C. 数据文件和程序文件 D. ASCII文件和二进制文件

参考答案：D

137. 在Visual Basic中按文件的存取方式，可以将文件分为( )。

A. 顺序文件和随机文件 B. 文本文件和数据文件

C. 数据文件和可执行文件 D. ASCII文件和二进制文件

参考答案：A

138. 在Visual Basic中按文件的内容，可以将文件分为( )。

A. 顺序文件和随机文件 B. 文本文件和数据文件

C. 数据文件和程序文件 D. ASCII文件和二进制文件

参考答案：C

139. 若以读的方式打开顺序文件“d:”，则正确的语句是（ ）。

A. Open "d:" For Output As #1

B. Open "d:" For Input As #1

C. Open "d:" For Binary As #1

D. Open "d:" For Random As #1

参考答案：B

140. 在用Open语句打开文件时，如果省略了“For方式”，则打开文件的存取方式是(

A. 顺序输入方式 B. 顺序输出方式

C. 随机存取方式 D. 二进制方式

)。

参考答案：C

141. 读文件时，判别文件指针是否指向文件末尾要使用( )函数。

A. Seek B. EOF

C. LOF D. FreeFile

参考答案：B

142. 下列访问方式中，（ ）不能以不同的文件号打开当前未关闭的文件。

A. Output B. Input

C. Random D. Binary

参考答案：A

143. 下面叙述错误的是( )。

A. 对顺序文件中的数据操作只能按一定的顺序执行

B. 顺序文件结构简单

C. 能同时对顺序文件进行读写操作

D. 顺序文件的数据以字符(ASCII码)的形式存储

参考答案：C

144. 要进行顺序文件的读写，可使用( )。

A. Get#语句和Print#语句 B. Input#语句和Write#语句

C. Get#语句和Put#语句 D. Print#语句和Get#语句

参考答案：B

145. 要判别顺序文件中的数据是否读完，应使用（ ）函数。

A. LOF B. LOC

C. EOF D. FreeFile

参考答案：C

146. 在Visual Basic中，随机文件处理的单位是( )。

A. 记录 B. 字符 C. 字段 D. 文件

参考答案：A

147. 以下叙述中正确的是（ ）。

A. 随机文件中每个记录所包含的各个元素的数据类型必须相同

B. 使用Input# 语句可以从随机文件中读取数据

C. 随机文件中每个记录的长度是固定的

D. Open命令的作用是打开一个已经存在的文件

参考答案：C

148. 要进行随机文件的读写，可使用( )。

A. Line Input #语句和Print #语句 B. Input #语句和Write #语句

C. Get #语句和Put #语句 D. Input #语句和Print #语句

参考答案：C

149. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为( )。

A. Get 文件号，记录号，变量名 B. Get 文件号，变量名，记录号

C. Put 文件号，变量名，记录号 D. Put 文件号，记录号，变量名

参考答案：D

150. 若要从占用1号通道的随机文件中读取数据，使用的语句为（ ）。

A. Print #1,r B. Write #1,r

C. put #1, ,r D. Get #1, ,r

参考答案：D

151. 下列控件中，（ ）不是用于文件操作的控件。

A. List Box B. Drite List Box

C. Drectotry List D. File List Box

参考答案：A

152. 设置或返回程序运行时要操作的驱动器，使用驱动器列表框DriveListBox的（ ）属性。

A. Value B. List

C. Drive D. pattern

参考答案：C

153. 改变驱动器列表框的Drive属性将引发（ ）事件。

A. Load B. Click

C. Pattern change D. Change

参考答案：D

154. 目录列表框和文件列表框都有（ ）属性。

A. List B. value

C. Path D. Pattern

参考答案：C

155. 文件列表框FileListBox用于设置或返回文件类型的属性是（ A. Drive B. Path

C. Pattern D FileTitle

参考答案：C

156. 逻辑表达式：Not 7-3 <= 4 Or True的值为（ ）。

A. True B. False C. T D. F

。 ）

参考答案：A

157. 不能把图片框Picture1中的图形清除的语句是（ ）。

A. B. Picture1. Picture=LoadPicture("")

C. Picture1. Picture= LoadPicture( ) D. Picture1. Picture=Nothing

参考答案：A

158. 把源程序代码翻译为目标程序代码可以使用的翻译方式为( )。

A. 嵌入方式 B. 运行程序方式 C. 解释方式 D. 编译方式

答题： A. B. C. D. E. F. >> （已提交）

参考答案：CD

159. 编译程序时出现的错误为( ) 错误。

A. 编译 B. 运行 C. 逻辑 D. 语法

答题： A. B. C. D. E. F. >> （已提交）

参考答案：AD

160. 表达式: X+Y>=1 是（ ）。

A. 数值表达式 B. 字符串表达式

C. 逻辑表达式 D. 关系表达式

答题： A. B. C. D. E. F. >> （已提交）

参考答案：CD

161. 下面描述中错误的是（ ）。

A. 执行Do until„loop语句中，当循环条件为false时，结束循环体的执行。

B. 执行While„Wend语句时，循环体可能一次也不执行。

C. Do „loop While语句的循环体可能一次也不执行。

D.执行Do „loop Until语句中，当循环条件为true时，结束循环体的执行。

答题： A. B. C. D. E. F. >> （已提交）

参考答案：AC

162. 当窗体被装入内存时，系统将自动执行（ ）事件过程。

A. Load te nload

答题： A. B. C. D. E. F. >> （已提交）

参考答案：AB

163. 下列控件中，没有AutoSize属性的是（ ）。

A. 标签 B. 文本框 C. 图片框 D. 图像框

答题： A. B. C. D. E. F. >> （已提交）

参考答案：BD

164. 当用鼠标拖动滚动块时触发（ ）事件。

A. Move B. Change C. Scroll D. GotFocus

答题： A. B. C. D. E. F. >> （已提交）

参考答案：BC

165. 存储数据不属于数据处理功能。

参考答案：×

166. VB把一个应用程序称为一个工程，它包含各种文件。

参考答案：√

167. 当事件触发时，对象会感受到该事件并对该事件作出响应，响应某个事件后所执行的程序称为事件驱动程序，该程序有时也称为事件过程。

参考答案：√

168. 在程序设计语言系统中具有固定语法含义的符号串称为标识符。

参考答案：×

169. print_56 和学校$ 是正确的变量名。

参考答案：√

170. 符号常量在某一过程中说明，则该符号常量只能在该过程内有效。

参考答案：√

171. 在VB中，50% 表示50/100。

参考答案：×

172. 若一个整型变量说明了之后没有给它赋值，则它的值为0。

参考答案：√

173. 条件: i 整除j,用关系表达式表示为:i Mod j=0。

参考答案：×

174. 设X为数值变量，求X的常用对数可使用的表达式是:Log(X)/Log(10)。

参考答案：√

175. 要在立即窗口输出字符串“Visual BASIC 6.0”使用的语句是:

Print “Visual BASIC 6.0”。

参考答案：×

176. 在使用Print方法时，若用分号分隔，则按紧凑格式输出各表达式的值。

参考答案：√

177. 把a, b之中的最大值存放于max，使用的语句为:

If a>b Then max=a Else max=b End If

参考答案：×

178. 判别a是否等于b，若a=b，则输出字符串 “a is equal to b”的块结构条件语句为：a=b Then

Print “a is equal to b”

End

参考答案：√

179. 窗体的“名称”（Name）属性只能在属性窗口中设置。

参考答案：√

180. 窗体的Unload事件是在QueryUnload事件发生之后发生。

参考答案：×

181. 窗体的事件只能由人工触发。

参考答案：×

182. 若使文本框有边框，需设置BorderStyle属性的值为0。

参考答案：×

If

183. 在程序运行期间，用户可以用文本框显示信息。文本框接受输入的内容的属性是Text。

参考答案：√

184. 除了在程序使用LoadPicture函数装载图形外，还可以在属性窗口通过修改Picture属性装载图形。

参考答案：√

185. 设置框架Frame上的文本内容需要使用Text属性。

参考答案：×

186. 列表框ListBox中项目的序号从1开始到Listcount结束。

参考答案：×

187. 要显示列表框List1中序号为3项目内容，语句为：Print (3)。

参考答案：√

188. 向组合框Combo2添加第5项的内容为“计算机学院”的项目，使用的语句为：m “计算机学院”，5

参考答案：×

189. 要删除组合框Combo1序号为3的项目，使用的语句为：Item 3。

参考答案：√

190. 若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为：Dim s$(1 To 10) 。

参考答案：√

191. 定义一个包含n个元素的一维数组a，使用的语句为：

n=InputBox("Input n")

Dim s$(1 To n) 。

参考答案：×

192. 如果数组元素的下标值为实数，则VB系统会按四舍五入原则进行处理。

参考答案：√

193. 数组中元素的个数可以改变的数组称为可变类型数组。

参考答案：×

194. 输入记录变量的值就是输入该变量的各个元素的值。

参考答案：√

195. 一个VB应用程序可以包括窗体模块和标准模块,但不能包括类模块。

参考答案：×

196. 函数过程定义中至少有一个赋值语句把表达式的值赋给函数过程名。

参考答案：√

197. 若模块中以关键字public定义子过程，则只能在该模块中都可以调用该过程。

参考答案：×

198. 若窗体模块或标准模块中以关键字private定义函数过程，则该函数过程只能在该窗体模块或标准模块中使用。

参考答案：×

199. 对顺序文件的写操作有标准格式和自定义格式。标准格式的写语句是Print#语句，自定义格式的写语句是Write#语句。

参考答案：×

200. 单击命令按钮是命令按钮控件的一个方法。

A.对象 B.事件 C.属性 D.方法

参考答案：B