9、表达式A+B+C<D AND A>=3 OR NOT C<0 OR D>0，当A=3,B=4,C=-5,D=6时的运算结果是（）
A、0
B、1
C、TRUE
D、FALSE
10、在循环语句For x=1 to 100 step 2……Next x中，x能达到的最大值是（）
A、100
B、99
C、98
D、97
11、在下列选项中，不属于VB的对象的是（）
A、窗体的背景颜色
B、命令按钮
C、文本框
D、标签
12、在调试程序的时候，经常要设置断点，设置断点的快捷键是（）
A、F1
B、F8
C、F9
D、F12
13、下面哪些方法不可以描述“闰年问题”的算法（）
A、自然语言
B、流程图
C、伪代码
D、机器语言
14、以下不属于非法用户自定义标识符（常量和变量命名）的是（）
A、8ad
B、ad8
C、_a8d
D、const
15、已知A，B，C，D是整型变量，且都已有互不相同的值，执行语句B=0；A=C；D=A；D=B；后，其值相等的变量是（）
A、A，D
B、A，C
C、C，B
D、B，A
16、要交换变量A和B的值，应使用的语句组是( )
A、A=B；B=C；C=A
B、C=A；A=B；B=C
C、A=B；B=A
D、C=A；B=A；B=C
17、Visual Basic中以单引号开头一行文字称为注释，它对程序的运行（）
A、起一定作用
B、有时候起作用
C、不起任何作用，但是必须的
D、不起任何作用，但能增加程序的可阅读性
18、要使一个命令按钮显示文字“确定”，正确的设置是把该命令按钮的（）。

A、属性Font设置为“确定”
B、属性.ForeColor设置为“确定”
C、属性Caption设置为“确定”
D、属性BorderStyle设置为“确定”
19、要从文本框TXTShowOut中输出"中国您好！"，代码为( )
A、TextBox.text="中国您好！"
B、TxtShowOut.Text="中国您好！"
C、bel="中国您好！"
D、Val(TxtShowOut.Text)=“中国您好！”
20、下列Visual Basic程序段运行后，变量max的值为（）。

a=11 ; b=15 ; max=a
IF b>max Then max = b
A、15
B、11
C、15或11都有可能
D、以上都不是
二、阅读程序写结果（第1～2小题每题5分，第3小题10分，共20分）
21、Private Sub Form_Load()
N=InputBox("请输入N的值：", "输入")
S=1
For i=1 to N
S=S*i
Next i
MsgBox "S="+Str(s),0, "计算结果"
End Sub
当N=5时，运行的结果是_______ ___________。

22、Private Sub Command1_Click()
Dim X as integer, X1 as integer, X2 as integer
Dim X3 as integer, Y as integer
X=InputBox("X=", "输入")
X1=X\100
X2=(X-X1*100)\10
X3=X-X1*100-X2*10
Y=X3*100+X2*10+X1
Print "Y="; Y
End Sub
当X=258时，运行的结果是________________。

23、Private Sub Command1_Click()
Dim A as Integer, B as Integer, C as Single
Dim D as String
N=InputBox("请输入N的值：")
F=N MOD 5
A=N+1
B=ABS(N)
Select Case F
Case 1:C=A+B:D="+"
Case 2:C=A-B:D="-"
Case 3:C=A*B:D="*"
Case 4:C=A/B:D="/"
Case else:End
End Select
Print A;D;B; "=";C
End Sub
当N=13时，运行的结果是_____________。

三、程序填空（每小题10分，2小题，共20分）
24、下面的程序是求100以内奇数和S的值（S=1+3+5+7...+99），请把空缺的地方填写完整。

Private Sub Command1_Click()
Dim S As Integer
Dim I As Integer
S=__（1）__
For I=1 to 100 Step __（2）__
S=S+I
Next __（3）__
Label1.____（4）______=___（5）___(S)
End Sub
（1）____（2）_____（3）_____（4）__ __（5）__ __
25、某旅行团共有30个人，其中有男人、女人和小孩，他们在一家餐厅吃自助餐花去500元。

已知自助餐的价格是每个男人30元，每个女人20元，每个小孩10元。

问：男人、女人、小孩各为多少人。

下面是解决该问题的VB程序，请在空缺的地方填写完整。

Private Sub Command1_Click()
Dim Man As Integer, Woman As Integer, Child As Integer
Dim Money As Integer, Count As Integer
Count=0 '用来记录符合条件的组合数。