题目内容
（请给出正确答案）
有如下事件过程：
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 * ##
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“有如下事件过程： PrivateSubCommand1_Click（） DimiAsInteger Fori=1To2 DC Nexti EndSu”相关的问题
有如下事件过程： Prirate Sub Form_Click() A$="123": B$="456" x=Val(A$)+Val(B$) Print x\100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是______。
A．123
B．3
C．5
D．579
若在某窗体模块中有如下事件过程： Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。
A．此事件过程与不带参数的事件过程没有区别
B．有—个名称为Command1的窗体，单击此窗体则执行此事件过程
C．有一个名称为Command1的控件数组，数组中有多个不同类型控件
D．有—今名称为Command1的控件数组，数组中有多个相同类型控件
若在某窗体模块中有如下事件过程
Private Sub Command1_Click（Index AS Integer）
……
End Sub
则以下叙述中正确的是（）。
A． 此事件过程与不带参数的事件过程没有区别
B． 有1个名称为Command1的窗体,单击此窗体则执行此事件过程
C． 有1个名称为Command1的空件数组,数组中有多个不同类型控件
D． 有1个名称为Command1的空件数组,数组中有多个相同类型控件
有如下事件过程：
Sub ABD（x%, y%, z%）
z%=x% + y%
End Sub
Private Sub Command1_Click（）
a%=30: b%=40
Call ABD（a%, b%, c%）
Print c%
End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
A．70
B．70.0
C．7.0E+1
D．显示错误信息
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为()。
A．6000
B．-10
C．200
D．-6000
有如下事件过程。
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If (Button And 3)=3 Then
Print "OK"
End If
End Sub
程序运行后,为了在窗体上输出"OK",应当按下的鼠标键是
A．左键
B．右键
C．同时按下左键和右键
D．按什么都不显示
有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是
A．左键
B．右键
C．同时按下左键和右键
D．按什么键都不显示
有如下Sub过程： Sub Sun(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上的命令按钮Command1中，编写如下事件过程，执行该事件过程调用Sun过程，结果为()。 Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a, b Print a; b End Sub
A．1.25 1
B．5 4
C．4 5
D．1 1.25
有如下函数过程： FunctiOngyS(By Val X As Integer，ByValy As Integer)As Integer DOWhiley＜＞0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程，该程序的运行结果是，()。 PriVate Sub Command7_Click() Dim
A．0
B．25
C．50
D．100
有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(A) b=InputBox(“请输入b的值”) b=Val(B) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为()。
A．6000
B．-10
C．200
D．-6000
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
