（D）2 4 6 8
108.在按钮的单击事件中有下面一句命令，4次单击按钮后输出的值是下面哪一个种？
Private Sub Command1_Click() Static m m=m+3 Print m; End Sub （A）0 3 6 9 （B）0 0 0 0 （C）3 3 3 3 （D）3 6 9 12
109.在按钮的单击事件中有下面一句命令，4次单击按钮后输出的值是下面哪一个种？
Dim m
Private Sub Command1_Click() m=m+4 Print m; End Sub （A）0 4 8 12 （B）0 0 0 0 （C）4 4 4 4 （D）4 8 12 16
110.在按钮的单击事件中有下面一句命令，4次单击按钮后输出的值是下面哪一个种？
Private m
Private Sub Command1_Click() m=m+1 Print m; End Sub （A）0 1 2 3 （B）0 0 0 0 （C）1 1 1 1 （D）1 2 3 4
答案：101—105 CDBDB 106—110 ACDDD
111.在按钮的单击事件中有下面一句命令，4次单击按钮后输出的值是下面哪一个种？
Dim m
Private Sub Command1_Click() Dim m m=m+1 Print m; End Sub （A）0 1 2 3 （B）0 0 0 0 （C）1 1 1 1 （D）1 2 3 4
112.下面哪个命令能够打印今天星期几？
（A）Print WeekDay(Date) （B）Print Weekday(Now) （C）Print Weekday(Now)-1 （D）Print Weekday(Now)+1
113.下面哪个命令能够打印现在几点几分几秒？ （A）Print time
（B）Print time(Now) （C）Print date(Now) （D）Print hour(Now)
114.下面哪个表达式的结果是一个40到50之间的随机整数？ （A）Int(Rnd*40) （B）Int(Rnd*50) （C）Int(Rnd*10)+40 （D）Int(Rnd*40)+10
115.下面哪个表达式的结果是一个-40到40之间的随机整数？ （A）INT(Rnd*40)*(-1) （B）Int(Rnd*40) （C）Int(Rnd*80)-40 （D）Int(Rnd*80)
116.下面哪个表达式的结果是一个0到0.5之间的随机数？ （A）Rnd*0.5 （B）Rnd+0.5 （C）Rnd-1
（D）(Rnd+5)/10
117.变量a1中存放的是实领工资金额数值，在标签框中输出工资，选项中哪句是正确的？
Dim a1 As Single a1 = 1256.85
（A）\实发工资为\元\
（B）\实发工资为\元\（C）\实发工资为\元\（D）\实发工资为\元\
118.变量a1中存放的是学号（字符型），在标签框中输出年级，选项中哪句是正确的？
Dim a1 As String a1 = \
（A）\此学生为\级学生。\（B）\此学生为\级学生。\（C）\此学生为\级学生。\（D）\此学生为\级学生。\
119.测试用户输入在文本框的数据中有没有\不区分大小写)，如果有，给变量a赋值\所在位置，否则，变量a赋值0。下面哪个语句正确？ （A）\（B）\
（C）\
a=n Else
a=0
End If\
（D）\
a=n Else a=0
End If\
120.当变量运行了下面赋值语句，想打印出“2001级法学院学生”，应该选择选项的哪句命令运行？ a=\\法学院 \
（A）\级\（B）\级\
（C）\级\（D）\级\
答案：111—115 CCACC 116—120 ABBBA
121.设a=\程序设计\，下面能使b的值为\的选项是哪个？ （A）\（B）\（C）\（D）\
122.下面语句的执行完毕后，变量a1的值是多少？
A1=103 Mod 50 （A）2 （B）3 （C）153 （D）53
123.下面语句的执行完毕后，变量a1的值是多少？
A1=103 \\ 50 （A）2 （B）3 （C）153 （D）53
124.运行下面两条命令后，x的结果为：
x=#12/23/2001# x=x+3 （A）不能加
（B）#12/23/2004# （C）#12/26/2001# （D）#03/26/2001#
125.运行下面两条命令后，x的结果为：
y=100 x=y\\3
（A）33.33333 （B）33 （C）1
（D）0
126.运行下面两条命令后，x的结果为：
y=100 x=y＞100 （A）真 （B）假 （C）100 （D）1
127.下列（ ）是日期型常量。 （A）\（B）'山西太原' （C）#02/25/2000# （D）123#
128.下列（ ）是字符型常量。 （A）\（B）'山西太原' （C）#02/25/2000# （D）123#
129.下面符号常量的声明中不合法的是 （A）Const a =1.1 （B）Const a =12
（C）Const a =5*year(now) （D）\
130.以下（ ）是合法的VB变量名。 （A）_5a （B）m_ab （C）5name （D）use&dasf
答案：121—125 BBACB 126—130 BCACB
131.设a=3,b=5则以下表达式值为True的是 （A）a＞=b And b＞10 （B）(a＞b) Or (b＞0) （C）(a＜0) Eqv (b＞0) （D）(-3+5＞a) And (b＞0) 132.下列程序的执行结果是
a=\b=\Print a＞b （A）True （B）1 （C）0 （D）Flash
133.在窗体上画一个命令按钮，其名称为Command1，编写如下事件过程：
Private Sub Command1_Click()
Static a As Integer Dim b As Integer a = a + 1 b = b + 1 Print a; b; End Sub
程序运行时，单击命令按钮两次后，在窗体上显示的信息是： （A）1 1 2 1 （B）1 1 1 1 （C）1 1 2 2 （D）1 2 1 2
134.命令按钮Command1，事件过程如下：
Private Sub Command1_Click() Dim x As Integer Dim y As Integer x = 4 y = 5
Print x \\ y; x Mod y End Sub
程序运行后，单击命令按钮Command1，窗体显示结果是： （A）0 4 （B）0.8 4 （C）0 1 （D）0.8 1
135.下列语句能声明全局变量的是： （A）Private （B）Dim （C）Public （D）Static
136.只删除字符串尾部空白的函数是： （A）Trim （B）Ltrim （C）Rtrim （D）Mid
137.在窗体上画一个命令按钮，其名称为Command1，编写如下事件过程：
Private Sub Command1_Click() Static x As Integer Dim y As Integer x = x + 100 y = y - 200
Text1.Text=Str(x+y) End Sub
程序运行时，单击命令按钮三次后，在文本框显示的信息是： （A）-300 （B）300 （C）-100