Unit11. 对象是类的实例，对象的三要素不包含_____B____。

A. 属性B. 过程C. 方法D. 事件2. 在中，对象名、过程名、变量名等应遵循标识符命名规则。

下列合法的变量名是_____D____ 。

A. πB. 23aC. Pi.rD. a_233. 对于，下列说法不正确的是______A__。

A. 仅能开发Windows窗体应用程序B. .NET的核心是.NET框架C. 是面向对象的程序设计语言D. 事件驱动的编程机制4. 要使窗体的标题为“走马灯程序”，应修改窗体的____D___属性。

A. CaptionB. ItemsC. TipD. Text5. 运行程序时，系统自动执行窗体的__C_____事件过程。

A. ClickB. ClosedC. LoadD. GotFocus6. 标签控件的作用是____B___。

A. 输入文本信息B. 显示或输出文本信息C. 编辑文本信息D. 相当于文本编辑器7. 对于文本框控件，如果要能够多行显示，应修改文本框控件的__C_____属性值为True。

A. MaxLineB. MaxLengthC. MultiLineD. SelLength8. 要使文本框成为密码输入框，一般应修改文本框的___B____属性。

A. PasswordChar属性和MaxLength属性B. PasswordChar属性C. PasswordChar属性和MultiLine属性D. PasswordChar属性和Lines属性Unit 21. 以下定义常量正确的语句是 B 。

A. Const Num$ = #V# B. Const C As String=""C. Const str$ = D. Const a As Long = ""2. 在下列运算符中，优先级最高的是 A 。

A. 乘、除（*、/）B. 整除（\）C. 求余（Mod）D. 加、减（+、-）3. 表达式123 + "100" & 100 的值为 A 。

A. 223100B. 123100100C. 323D. 1232004. 要使变量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表示成正确的表达式为 B 。

A. 3<=x<10B. 3<=x AND x<10C. x>=3 OR x<10D. 3<=x AND <106. 以下关系表达式中，其值为False的是 A 。

A. "HELLO " > "HeLLO "B. "黄" > "红"C. "HELLO" = UCASE("hello")D. "23" < "3"7. 已知A$= "12345678 " ，则表达式Val( Mid(A, 4, 3) + "123" )的值为 A 。

A. 456123B. "456123"C. 579D. 68. 执行以下语句后显示结果为 C 。

Dim x%If x Then Label1.text = x else Label1.text = x + 1A．-1 B．0 C．1 D．不确定Unit 31.下列赋值语句 A 是有效的。

A. sum = sum –sumB. x+2 = x + 2C. x + y = sumD. last = y / 02. 设有以下循环结构，则以下叙述中正确的是 B 。

Do循环体Loop Until <条件>A. 若"条件"是一个为0的常数，则一次也不执行循环体B. "条件"可以是关系表达式、逻辑表达式或常数C. 循环体中必须使用Exit Do语句D. 如果"条件"总是为True，则不停地执行循环体3. 下列 B 语句可以将变量A、B的值互换。

A. A=B : B=AB. C=A : A=B : B=CC. A=C : C=B : C=AD. B=A : A=B4. 程序段如下，上段程序显示的结果是 D 。

Dim x% = Int(Rnd( ))+2If x > 4 ThenMsgBox("Level A")ElseIf x > 3 ThenMsgBox("Level B")ElseIf x > 2 ThenMsgBox("Level C")ElseMsgBox("Level D")End IfA. Level AB. Level BC. Level CD. Level D5.下面程序段求两个数中大数， D 是错误的。

A. Max = IIF( x > y, x, y )B. If x > y Then Max = x Else Max = yC. Max = xD. If y >= x Then Max = yIf y >= x Then Max = y Max = x6. 程序代码段如下，上述代码执行过程中，语句30和语句40执行的次数分别是A 。

10: Dim i%, j%20: For i = 1 To 5 Step 230: For j = 3 To 9 Step 240: n = n + 150: Next60: NextA. 3 12B. 12 12C. 3 4D. 4 47. 程序代码段如下，上述代码执行完毕后，在消息框中显示的消息是 D 。

Dim k as integerFor k = 1 To 5 Step 2k = k + 3NextMsgBox(k)A. 3B. 4C. 5D. 6Unit 41. 若使用Dim A%(10), B%(20) 语句声明了数组A和数组B，用Dim i%=15语句声明了变量i，则下列引用错误的是 B 。

A. A(10) = B(10) * iB. A(i) = B(1) + B(2)C. B(10) = A(10) * iD. B(i) = A(1) + A(2)2. 数组的 C 方法可以用来获得指定维度的大小。

A. GetLengthB. CountC. GetUpperBoundD. Length3. 如下数组声明语句，正确的是 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 –is += a(i)NextReDim Preserve a%(6)a(i) = sA. 10, 9, 8, 7, 6, 5B. 0, 9, 8, 7, 6, 5C. 10, 9, 8, 7, 6, 5, 45D. 0, 9, 8, 7, 6, 5, 35Unit 51. 在过程内部定义的局部变量，仅在声明它的 B 中有效。

A. 方法B. 过程C. 属性D. 对象2.用于声明应用程序所有模块中都能使用的变量的语句是 A 。

A. PublicB. PrivateC. DimD. Static3. A 关键字声明的局部变量在整个程序运行中一直存在。

A. StaticB. PrivateC. DimD. Public4. 要想从子过程调用后，返回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.ClickDim s%, d%s = 100 : d = 10Call Static(100, 10, s, d)MsgBox(s & ““& d)End SubSub Static(Byval x%, Byval y%, Byval Sum%, ByRef Differ%)Sum = x + yDiffer = x - yEnd SubA. 100 10B. 100 90C. 110 90D. 110 10Unit 61.下列叙述正确的是 A 。

A. 可以通过将interval赋值为0，以使得计时器停止工作B. 可以通过将计时器的Enabled属性设置为True，以使得计时器停止工作C. 要计时器定时触发tick事件，只需将interval属性设置为TrueD. 将计时器的Enabled属性设置为True，计时器就能定时触发tick事件。

2. 单选按钮是否被选中，是由其 A 属性决定的。

A．Checked B．V alue C．Enabled D．Selected3. 将数据项“China”添加到列表框List1中，成为排在最前面的第1项，语句为A 。

A. List1.Items.Insert(0, "china")B. List1.Items.Insert("china", 0)C. List1.Items.add(0, "china")D. List1.Items.add("china", 0)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)。