50.关于复选框和单选按钮的比较正确的是。（ ）
A.复选框和单选按钮都只能在多个选项中选定一项B.复选框和单选按钮的Click事件能让Value属性变成True
C.单选按钮和复选框都支持DblClick事件D.让复选框不可用，可设置其Enabled属性为False或设置Value属性为3
51. 控件的行为具有Boolean类型。（ ）
A.单选按钮、命令按钮 B.复选框、标签 C.单选按钮、复选框 D.列表框、组合框52.在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为M1，设窗体Form1标题为“MyForm1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码：
Private Sub M1_Click(Index As Integer)
Form1.Caption=”Myform2”
End Sub
运行时，单击控件数组中的第一个按钮，则窗体标题为。（ ）
C.Myform1
D.Myform253.下面语句声明的数组不是动态数组。（ ）
A.DimX() B.DimX(5) C.ReDimX(10) D.以上都不是54.建立一个俱乐部会员信息输入界面，要求选择会员的性别、职业(工程师、公务员、教师、医生、其他)及爱好(共10种，如一个人既喜欢足球，又喜欢旅游)。应如何在窗体上如何实现。（ ）
A.用一组17个复选框来实现B.将10种爱好用一组10个复选框来实现，性别和职业用7个单选按钮来实现
C.将10种爱好用一组10个单选按钮来实现，性别和职业用7个复选框来实现D.将10种爱好用一组10个复选框来实现，性别用2个单选按钮来实现，职业用一个框架和5个单选按钮来实现
>55.可以同时删除字符串前导和尾部空白的函数是。（ ）
A.LTrim B.RTrim C.Trim D.A和C56.A=”Visual Basic”,下面是B=“Basic”的语句是。（ ）
A.B=Left(A,8,12)B.B=Mid(A,8,5)
C.B=Right(A,5,8) D.B=Left(A,8,5)57.For/Next语句中，循环控制变量只能是整形变量。（ ）
A.对 B.错58.For I=5 to 10 ? Next I循环体中没有Exit For语句，也没有更改I值，循环结束后，控制变量I的当前值等于终值10。（ ）
A.对 B.错59.整型变量有Byte、Integer、Long三种数据类型。（ ）
A.对 B.错60.过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。（ ）
A.对 B.错61.对象是将数据和操作封装起来的逻辑实体。（ ）
A.对 B.错62.标签(Label)控件的AutoSize属性值为True时，标签的宽度、高度会自动调整以显示标签中所有的内容。（ ）
A.对 B.错63.不能用Do循环设计出预先知道循环次数的循环。（ ）
A.对 B.错64.For I=5 to 10 ? Next I循环体中没有Exit For语句，也没有更改I值，循环结束后，控制变量I的当前值等于终值11。（ ）
A.对 B.错65.方法是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。（ ）
A.对 B.错
66.Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性。（ ）
A.对 >B.错67.在默认状态下，Visual Basic窗体设计器中布满了网格点，主要是方便用户布局。（ ）
A.对 B.错68.函数MsgBox的3个参数分别是输入对话框的提示信息、默认值以及标题。（ ）
A.对 B.错69.将变量声明放在标准模块的通用声明段，并使用Public关键字就可以声明一个全局变量。（ ）
A.对 B.错70.使用单选按钮控件数组时，它们响应同一个Click事件，由Index值来区分不同的按钮。（ ）
A.对 B.错71.决定对象是否可见的属性是Enabled属性，决定对象可用性的属性是Visible属性。（ ）
A.对 >B.错72.在Do循环结构中，While和Until关键字的作用是相反的。（ ）
A.对 B.错73.在程序运行中，标签和文本框都可以用来输出数据。（ ）
A.对 B.错>74.窗体Form的Enabled属性为False时，窗体上的按钮、列表框、文本框等控件不会对用户的操作做出反应。（ ）
A.对 >B.错75.函数过程与SUB过程必须用关键字Private或Public声明。（ ）
A.对 B.错76.一个VB工程文件包含窗体文件、标准模块文件、类模块文件等。（ ）
A.对 错二、多选题（每题6分，共4题）
1.输入10个整数，将绝对值大于100的数值求和，请将程序补充完整。
Private Sub Command1_Click()
Dim i As Integer,Num As Integer,Sum As Long
Sum= _______1_______
For i=1 to 10
Num =Val(InputBox("Enter Number:"))
Sum=Sum+ _____2_____
Next i
Print "Sum=";Sum
End Sub
Private Function Abs1(ByVal m As Integer) As Integer
If m < 0 Then m=-m
If m > _____3_____ Then
m = m
_____4_____
End If
End Function（ ）
M.m:abs1=m
N.abs=m O.abs(m) P.abs1=m2.编程实现：利用输入对话框不断输入数字，直到输入-1结束，然后显示它们的总和。程序代码如下，请在空白处选择最佳答案。
Private Sub Form_Load()
Dim value
Dim sum As Integer
___1___
Do
Value=InputBox(“输入数字：”)
If IsNumeric(value) Then
Value=CInt(value)
___2___
End If
Loop ___3___
___4___
MsgBox“总和是：”& sum
End Sub（ ）
E. value= sum