1、以下（）语句可表示[50,100]之间的随机整数。
A、 Int(Rnd*51)+49 C、 Int(Rnd*50)+50 B、 Int(Rnd*51+50) D、 Int(Rnd*50+50) 2、设a=”39级台阶”，使b＝”台阶”的语句是（）。
C、 Left(a,5,4) A、 Right（a，4）
D、 Mid(a,4,2) B、 Instr（a，5，4） 3、下列语句合法的是（）。
A、 x+y＝2 B、 x>y=2
C、 x=y>2 D、 x=y++
4、定义变量时如不指定类型，该变量为（）类型。
A、 Integer C、 Variant B、 String D、 Single
5、设a＝6，b＝5，c＝－2；执行语句Print a>b>c后，窗体上显示的是（）。 A、 1 D、 出错信息 B、 True C、 False 6、下列语句组：
a$=\
b$=Right(a$,8):c$=Left(a$,5) msgbox a$,,b$,c$,5
执行后消息框的标题是()。 A、 Today B、 Tomorrow
C、 Today And Tomorrow
D、 1
7、如果x小于y的平方，则在窗体上输出”OK”。完成该要求的条件语句是（）。
A、 If x< y ^ 2 Then \C、 If x< y ^ 2 Then Print \B、 If x< y ^ 2 Then Show \D、 If x< y ^ 2 Then Put \8、表达式Len（”幸运52”）的值是（）。 A、 0 B、 4 9、错误使用Print方法的是（）。
A、 Picture1.Print B、 Form1.Print
C、 6 D、 8
C、 Debug.Print D、 Text1.Print
10、 执行x = MsgBox(\数据类型不匹配\出错提示！\，然后单击消息框的
“取消“按钮，x的值是（）。 A、 True C、 1 B、 False D、 2 11、 下列为字符串变量的是（）。 A、 x！ B、 x＃ 12、 下列正确的赋值语句是（）。
A、 i＝j＝0 B、 i＝0：j＝0
C、 x％ D、 x$ C、 i＝0，j＝0 D、 i＝0；j＝0
13、 除去字符串左侧空格的函数是（）。
A、 Left（） B、 Trim()
C、 Ltrim() D、 LeftTrim()
14、 VB表达式Format（Cint（”3.14”）,”00.00’）的值是（）。
A、 03.00 C、 3.14 B、 03.14 D、 3
15、 执行x = MsgBox(\数据类型不匹配\出错提示！\，然后按回车，x的值是（）。 A、 0 C、 True B、 1 D、 False 16、 能清除文本框Text1中内容的语句是（）。 A、 Text1=”” C、 Text1.clear B、 Text1.text=”” D、 Text1.cls 17、 有语句If X＝0 Then Y＝0，下列叙述中正确的是（）。 A、 X＝0 和Y＝0均为赋值语句 B、 X＝0 和Y＝0均为关系表达式
C、 X＝0 为关系表达式，Y＝0为赋值语句 D、 X＝0 为赋值语句，Y＝0为关系表达式 18、 设有语句组： Dim s1 as string*5 S1=”vb test” 则s1的值为（）。 A、 vb test B、 vb te
C、 vbtes D、 btest
19、 设a＝6，b＝－3，则以下表达式值为True的是（）。
A、 a<0 or b>0 C、 a>0 and b>0 B、 a<0 and b>0 D、 a<0 eqv b>0
20、 执行X = InputBox(\请输入半径\求面积\，在输入框中输入3后回车，则下列叙述中，正确的是（）。 A、 X的值是数值3 C、 0是默认值 B、 X的值是字符”3” D、 对话框标题是”求面积” 21、 下列叙述中错误的是（）。 A、 不允许使用行号与标号 B、 单条语句可分行书写
C、 同一行上可以书写多条语句 D、 VB代码不区分字母的大小写
22、 下列叙述中错误的是（）。
A、 窗体的Load事件在加载窗体时发生
B、 窗体的Height、Width属性用于设置窗体的高和宽
C、 执行Unload Form1语句后，窗体仍在内存中，但不可见 D、 当窗体的Enabled属性为False时，对窗体的操作都被禁止 23、 由（）关键字声名的局部变量在整个程序运行时一直存在。 A、 Dim C、 Static B、 Public D、 Private 24、 下列逻辑表达式的值为True的是（）。 A、 “A”<”9”
B、 “A”>”a”
C、 “a”>”AT” D、 “AT”<”AND”
25、 当x=-1时，函数IIF（x>0,1, IIF(x<0,-1,0)）的返回值是（）。
A、 0 D、 出错 B、 1 C、 -1 26、 正确使用Cls方法的是（）。
A、 Text1.Cls B、 Picture1.Cls 27、 下列语句正确的是（）。
A、 MsgBox Vbokonly，”Error” B、 MsgBox ”Error”, Vbokonly
C、 List1.Cls D、 Image1.Cls
C、 MsgBox( Vbokonly，”Error”) D、 MsgBox (”Error”,Vbokonly)
28、 使用（）方法可以隐藏窗体,但不从内存中释放。
A、 Show C、 Hide B、 Load D、 Unload 29、 下列哪一个是日期型常量（）。 A、 “06／08／04” B、 ＃06／08／04＃
C、 06／08／04 D、 ｛06／08／04｝
30、 如果vb语句超过一行，可以用空格加（）续行。
A、 _ D、 － B、 ＋ C、 ；
31、 下列程序运行时，消息框显示的内容是（）。
Private Sub Command1_Click()
MsgBox CStr(123 + 321) End Sub A、 444 D、 显示出错信息 B、 123321 C、 123＋321
32、 运行时，单击窗体不能将窗体的背景色设置为红色的事件过程是（）。
A、 Private Sub Form_Click() C、 Private Sub Form_Click()
Me.BackColor = vbRed This.BackColor = vbRed End Sub End Sub B、 Private Sub Form_Click() D、 Private Sub Form_Click()
Form1.BackColor = vbRed BackColor = vbRed End Sub End Sub 33、 使文本框能显示多行文本，需设置（）。 A、 Autosize属性为True B、 Multiline属性为True
C、 Singleline属性为False D、 Maxlines属性大于1
34、 表达式instr(3,”文件系统控件”，‘“控件”)的值是（）。
A、 2 C、 5 B、 3 D、 6 35、 下列语句错误的是（）。 A、 Me.Cls B、 Picture1.Cls
C、 Text1.Cls D、 Form1.Cls
36、 执行MsgBox\除数不能为0\数据出错！\，在弹出的消息框中显示的图标是（）。 A、 停止图标 C、 感叹号 B、 问号图标 D、 消息图标 37、 下列求两数中最小数的程序段不正确的是（）。 A、 If a
C、 If b>=a Then Min=a else Min=b D、 Min=b : If b>=a Then Min=a
38、 执行Print Len(InputBox(\请输入编号：\，在输入框中输入“神州1号”后回车，结果为（）。 A、 4 D、 出错 B、 7 C、 0 39、 执行n＝InPutBox（“n＝”，0，“n！”），在输入框中输入5后回车，则下列叙述中正确的是（）。 A、 0是默认值 C、 n等于数值5 B、 输入框标题是“n＝” D、 n的值为字符“5” 40、 下列为单精度变量的是（）。 A、 X！ B、 X＃
41、 判断整型变量x是奇数的表达式是（）。
A、 X mod 2<>0 B、 X mod 2!=0
C、 X％ D、 X$ C、 X mod 2≠0 D、 X mod 2=0
42、 表达式fix（5.6）+int（－5.6）的值是（）。
A、 0 C、 1 B、 －1 D、 以上都不对
43、 窗体上有一个命令按钮command1，编写如下事件过程： Private Sub Command1_Click()
x = InputBox(\y = InputBox(\Print x + y End Sub
运行后单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是（）。
A、 444 D、 出错信息 B、 123321 C、 123+321 44、 日期常量用（）作为界定符。
A、 “ B、 %
C、 # D、 &
45、 表示x大于0且小于10的vb表达式是（）。
A、 0
表达式instr（2，”文本文件”，”文”）的值是（）。