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 End Function
在调试时发现函数是错误的，为使函数能产生正确的返回值，应做的修改是 D）把While a>b改为While a>=b
（30）下列关于通用对话框CommonDialog1的叙述中，错误的是
A）只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开 （31）在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为
B）退出(&X)
（32）在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) <> \ End Sub
Private Sub Command1_Click()