题目内容
（请给出正确答案）
有如下程序:
Private Sub Form_Click()
Dim i As Integer, Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A．12
B．30
C．24
D．18
如果结果不匹配，请 联系老师 获取答案
更多“有如下程序: Private Sub Form_Click（…”相关的问题
设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：
Private Sub Command1_Click()
Static x as integer
X=f(x+5)
Cls
Print x
End Sub
Private function f(x as integer)as integer
F=x+x
End function
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是
A)10
B)30
C)60
D)70
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="321"：b$="abc" For j=1 To 5 Print Mid$(a$，6 -j，1)+Mid$(b$，j，1)； Next i End Sub 程序运行后，输出的结果是；
A．a1b2c3
B．ab1c23
C．c1b2a3
D．a12bc1
设有如下程序： Option Base 1 Private Sub Form. Click（） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（）。
A.程序有错，因为在过程f的定义中数组参数格式不正确
B.程序可正常运行，输出内容的第一行是一个字母“A”
C.程序可正常运行，输出内容的第一行是一个字母“B”
D.程序可正常运行，输出内容的第一行是数字65
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A．15
B．18
C．21
D．24
A．0
B．5
C．15
D．无任何输出
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入：") If Flag Then Printf(intNum) End If End Sub Function f(x As Integer)As Integer If X＜10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为()。
A．0
B．5
C．15
D．无任何输出
在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub
A．在文本框中显示120
B．文本框仍为空
C．在文本框中显示480
D．出错
有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 ＜＞And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f（m As Integer）
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click（）
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f（i）
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是（）。
A．11
B．10
C．9
D．8
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程； Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。
A．10 5
B．20 5
C．20 40
D．10 40
在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub Filel_DblClick() x=Shell(Filel. FileName, 1) End Sub 以下关于该程序的叙述中，错误的是______。
A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel. FileName, 1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过Filel. FileName指定
D．Filel中显示的是当前驱动器、当前目录下的文件
