运行以上程序，单击命令按钮后
B）文本框中显示的是“等级考试”，且焦点在文本框中
（20）设窗体上有名称为Option1的单选按钮，且程序中有语句： If Option.Value=True Then 下面语句中与该语句不等价的是 C）If Value=True Then
（21）设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100，下面叙述中正确的是
A）程序运行时，若使滚动条向左移动，滚动条的Value属性值就增加 （22）有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 Print numa; numb End Sub
连续3次调用var_dim过程，第3次调用时的输出是 C）6 1
（23）在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() For i = 5 To 1 Step -0.8
Print Int(i); Next i End Sub
运行程序，单击命令按钮，窗体上显示的内容为 A）5 4 3 2 1 1
（24）在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a(3, 3) For m = 1 To 3 For n = 1 To 3
If n = m Or n = 4 - m Then a(m, n) = m + n Else a(m, n) = 0 End If Print a(m, n); Next n Print Next m End Sub B）2 0 4
0 4 0 4 0 6
（25）设有如下函数过程：
Function fun(a As Integer, b As Integer) Dim c As Integer If a < b Then c = a: a = b: b = c End If c = 0 Do c = c + a
Loop Until c Mod b = 0 fun = c End Function
若调用函数fun时的实际参数都是自然数，则函数返回的是 B）a、b的最小公倍数
（26）窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer() Static flag As Integer If flag = 0 Then flag = 1
flag = -flag If flag = -1 Then
Text1.ForeColor = &HFF& '&HFF&为红色 Else
Text1.ForeColor = &HC000& '&HC000&为绿色 End If End Sub
以下叙述中正确的是
C）程序执行后，文本框的文字每5秒改变一次颜色
（27）为计算1+2+2^2+2^3+2^4+…+2^10的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click() Dim a%, s%, k% s = 1 a = 2
For k = 2 To 10 a = a * 2 s = s + a Next k Text1.Text = s End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是
D）同时进行B）、C）两种修改 （28）标准模块中有如下程序代码： Public x As Integer, y As Integer Sub var_pub() x = 10: y = 20 End Sub
在窗体上有1个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x = x + 100 y = y + 100 Print x; y End Sub B）100 120
（29）设a，b都是自然数，为求a除以b的余数，默认编写了以下函数： Function fun(a As Integer, b As Integer) While a > b a = a - b Wend fun = a