题目内容
（请给出正确答案）
运行下列程序：
Private Sub form_Click()
For i = 1 To 2
x = 1
For j = 1 To 3
x = 5
For k = 1 To 4
x = x + 2
Next k
Next j
Next i
Print x
End Sub
单击窗体后，则输出结果是()。
A.5
B.13
C.25
D.48
如果结果不匹配，请 联系老师 获取答案
更多“运行下列程序：Private Sub form_Click（…”相关的问题
下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub
（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox(" 请输入 :")
If Flag Then
Print f(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 ）无任何输出
设有如下程序： 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
A．0
B．5
C．15
D．无任何输出
在窗体上画一个名称为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
在窗体上画一个命令按钮，然后编写如下事件过程： 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
在窗体上添加—个文本框，名为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．出错
阅读程序： Function Fun(a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click() Dim a As Integer a=2 For i = 1 To 2 Print Fun (a); Next End Sub 运行上面的程序，单击命令按钮，输出结果为
A．8 16
B．9 18
C．10 20
D．7 14
在窗体上画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．无任何输出
阅读程序：
Function Fun(a As Integer)
Static c，
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 2
Print Fun(A)；
Next
End Sub
运行上面的程序，单击命令按钮，输出结果为
A．8 16
B．9 18
C．10 20
D．7 14
运行下列程序：
Private Sub form_Click()
For i = 1 To 4
t = t * 10 + i
s = s + t
Next i
Print s
End Sub
单击窗体后，则输出结果是()。
A.1234
B.4321
C.1370
D.4444
