有如下事件过程：Private Sub Command1_Click（）Dim i As IntegerFor i=1 To 2DCNext iEnd SubSub DC（）Dim x As Integer, m As StringStatic y, nx=x + 1y=y + 1m=m "*": n=n "#"Print x, y, m, nEnd Sub程序运行后，输出的结果是（ ）。A．1 1 * #1 1 * #B．1 1 * #1 2 * #C．1 1 * #1 1 * ##D．1 1 * #1 2 * ##
有如下事件过程：
Private Sub Command1_Click（）
Dim i As Integer
For i=1 To 2
DC
Next i
End Sub
Sub DC（）
Dim x As Integer, m As String
Static y, n
x=x + 1
y=y + 1
m=m &"*": n=n & "#"
Print x, y, m, n
End Sub
程序运行后，输出的结果是（ ）。
A．1 1 * #
1 1 * #
B．1 1 * #
1 2 * #
C．1 1 * #
1 1 * ##
D．1 1 * #
1 2 * ##
相关考题：
有一过程如下:Sub Sub1(m As Integer,total As Long)Dim i As Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下:Private Sub Command1_Click()Dim tot As Long,a As Integera=Val(InputBox("请输入数据"))Call Sub1(a,tot)Print totEnd Sub则输入数据5,运行结果为【 】。
在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Sum =0For i=3 T0 7Sum =i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As Integern=0For i=0 To 50i=i+3n=n+1If i＞10 Then Exit ForNext iText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是______。
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为A．120B．60C．80D．100
在窗体上添加十个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()sum＝0For i＝3 To 7sum＝i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。A．100B．120C．200D．50
在窗体上画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 1B.5 4 3 2 1C.4 3 2 1 1D.4 4 3 2 1 1
在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End SubA．2B．3C．4D．5
若有如下程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i = 1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6
有如下程序： For i=10 To 1 Step 0 k=k+1 Next i 循环体的执行次数为（）。