Unit1
1. 对象是类的实例，对象的三要素不包含_____B____。
A. 属性 B. 过程 C. 方法 D. 事件
2. 在VB.NET中，对象名、过程名、变量名等应遵循标识符命名规则。下列合法的变量名是_____D____ 。
A. π B. 23a C. Pi.r D. a_23 3. 对于VB.NET，下列说法不正确的是______A__。
A. 仅能开发Windows窗体应用程序 B. .NET的核心是.NET框架 C. VB.NET是面向对象的程序设计语言 D. 事件驱动的编程机制 4. 要使窗体的标题为“走马灯程序”，应修改窗体的____D___属性。 A. Caption B. Items C. Tip D. Text 5. 运行程序时，系统自动执行窗体的__C_____事件过程。
A. Click B. Closed C. Load D. GotFocus 6. 标签控件的作用是____B___。
A. 输入文本信息 B. 显示或输出文本信息 C. 编辑文本信息 D. 相当于文本编辑器 7. 对于文本框控件，如果要能够多行显示，应修改文本框控件的__C_____属性值为True。 A. MaxLine B. MaxLength C. MultiLine D. SelLength 8. 要使文本框成为密码输入框，一般应修改文本框的___B____属性。 A. PasswordChar属性和MaxLength属性 B. PasswordChar属性
C. PasswordChar属性和MultiLine属性 D. PasswordChar属性和Lines属性 Unit 2
1. 以下定义常量正确的语句是 B 。
A. Const Num$ = #VB.NET# B. Const C As String=\
C. Const str$ = VB.NET D. Const a As Long = \2. 在下列运算符中，优先级最高的是 A 。
A. 乘、除（*、/） B. 整除（\\） C. 求余（Mod） D. 加、减（+、-） 3. 表达式 123 + \的值为 A 。
A. 223100 B. 123100100 C. 323 D. 123200
4. 要使变量x赋值为1～100间（含1，不含100）的一个随机整数，正确的语句是 D 。
A. x = Int(100*Rnd) B. x = Int(101*Rnd) C. x = 1 + Int(100*Rnd) D. x = 1 + Int(99*Rnd)
5. 数学关系表达式３≤x＜10表示成正确的VB.NET表达式为 B 。 A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND <10
6. 以下关系表达式中，其值为False的是 A 。
A. \ B. \黄\红\ C. \ D. \
7. 已知A$= \，则表达式Val( Mid(A, 4, 3) + \的值为 A 。
A. 456123 B. \ C. 579 D. 6 8. 执行以下语句后显示结果为 C 。 Dim x%
If x Then Label1.text = x else Label1.text = x + 1
A．-1 B．0 C．1 D．不确定
Unit 3
1.下列赋值语句 A 是有效的。
A. sum = sum –sum B. x+2 = x + 2 C. x + y = sum D. last = y / 0
2. 设有以下循环结构，则以下叙述中正确的是 B 。 Do
循环体
Loop Until <条件>
A. 若\条件\是一个为0的常数，则一次也不执行循环体 B. \条件\可以是关系表达式、逻辑表达式或常数 C. 循环体中必须使用Exit Do语句
D. 如果\条件\总是为True，则不停地执行循环体 3. 下列 B 语句可以将变量A、B的值互换。
A. A=B : B=A B. C=A : A=B : B=C C. A=C : C=B : C=A D. B=A : A=B 4. 程序段如下，上段程序显示的结果是 D 。 Dim x% = Int(Rnd( ))+2 If x > 4 Then
MsgBox(\ A\ ElseIf x > 3 Then
MsgBox(\ B\ ElseIf x > 2 Then
MsgBox(\ C\ Else
MsgBox(\ D\ End If
A. Level A B. Level B C. Level C D. Level D 5.下面程序段求两个数中大数， D 是错误的。
A. Max = IIF( x > y, x, y ) B. If x > y Then Max = x Else Max = y
C. Max = x D. If y >= x Then Max = y If y >= x Then Max = y Max = x
6. 程序代码段如下，上述代码执行过程中，语句30和语句40执行的次数分别是 A 。
10: Dim i%, j%
20: For i = 1 To 5 Step 2
30: For j = 3 To 9 Step 2 40: n = n + 1 50: Next 60: Next
A. 3 12 B. 12 12 C. 3 4 D. 4 4
7. 程序代码段如下，上述代码执行完毕后，在消息框中显示的消息 是 D 。
Dim k as integer
For k = 1 To 5 Step 2 k = k + 3 Next
MsgBox(k)
A. 3 B. 4 C. 5 D. 6 Unit 4
1. 若使用 Dim A%(10), B%(20) 语句声明了数组A和数组B，用Dim i%=15语句声明了变量i，则下列引用错误的是 B 。
A. A(10) = B(10) * i B. A(i) = B(1) + B(2) C. B(10) = A(10) * i D. B(i) = A(1) + A(2) 2. 数组的 C 方法可以用来获得指定维度的大小。
A. GetLength B. Count C. GetUpperBound D. Length 3. 如下数组声明语句，正确的是 C 。 A. Dim a%( ) = {“1”, “2”, 3, 4, 5} B. Dim b%(4) = {1, 2, 3, 4, 5} C. Dim c%( ) = {1, 2, 3, 4, 5} D. Dim d%( , ) = {1, 2, 3, 4, 5}
4. 有如下代码段，执行下列的代码后，数组元素的值分别为 D 。 Dim a%(5), i%, s%
For i = 1 To a. GetUpperBound(0) a(i) = 10 – i s += a(i) Next
ReDim Preserve a%(6) a(i) = s
A. 10, 9, 8, 7, 6, 5 B. 0, 9, 8, 7, 6, 5 C. 10, 9, 8, 7, 6, 5, 45 D. 0, 9, 8, 7, 6, 5, 35 Unit 5
1. 在过程内部定义的局部变量，仅在声明它的 B 中有效。 A. 方法 B. 过程 C. 属性 D. 对象 2.用于声明应用程序所有模块中都能使用的变量的语句是 A 。 A. Public B. Private C. Dim D. Static
3. A 关键字声明的局部变量在整个程序运行中一直存在。 A. Static B. Private C. Dim D. Public
4. 要想从子过程调用后，返回3个结果，下面子语句说明符合要求的是 D 。 A. sub f1(ByVal a%, ByVal b%, ByVal c%) B. sub f1(ByRef a%, ByVal b%, ByVal c%)
C. sub f1(ByRef a%, ByRef b%, ByVal c%)
D. sub f1(ByRef a%, ByRef b%, ByRef c%)
5. 过程代码段如下，单击Button1后，消息框中显示的消息为 B 。 Private Sub Button1_Click(?)Handles Button1.Click Dim s%, d%
s = 100 : d = 10 Call Static(100, 10, s, d)
MsgBox(s & “ “ & d) End Sub
Sub Static(Byval x%, Byval y%, Byval Sum%, ByRef Differ%) Sum = x + y Differ = x - y End Sub
A. 100 10 B. 100 90 C. 110 90 D. 110 10 Unit 6
1.下列叙述正确的是 A 。
A. 可以通过将interval赋值为0，以使得计时器停止工作
B. 可以通过将计时器的Enabled属性设置为True，以使得计时器停止工作 C. 要计时器定时触发tick事件，只需将interval属性设置为True
D. 将计时器的Enabled属性设置为True，计时器就能定时触发tick事件。 2. 单选按钮是否被选中，是由其 A 属性决定的。
A．Checked B．Value C．Enabled D．Selected
3. 将数据项“China”添加到列表框List1中，成为排在最前面的第1项，语句为 A 。
A. List1.Items.Insert(0, \ B. List1.Items.Insert(\ C. List1.Items.add(0, \ D. List1.Items.add(\
4. 列表框Listbox1中有4个项目，能删除最后一个项目的语句是 C 。 A. Listbox1.Items.RemoveAt(0) B. Listbox1.Items.RemoveAt(4)
C. Listbox1.Items.RemoveAt(ListBox1.Items.Count-1) D. Listbox1.Items.Remove(3)