有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【 】。
Private Sub Command1_Click()
Ind 2
有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) 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 * #B．1 1 * #C．1 1 * # 1 1 * # 1 2 * #D．1 1 * # 1 1 * ## 1 2 * ##
点击查看答案
有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。A．12B．24C．36D．48
在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command12_Click() Tt 3 End Sub Sub Tt(a As Integer) Static X As Integer X=X * a + 1 Print x； End Sub 连续三次单击命令按钮，输出的结果是A．1 5 8B．1 4 13C．3 7 4D．2 4 8
执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click()Print "Click"；End SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print "Donw"End SubPrivate Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)Print "Up"End SubA．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownCliek
标准模块中有如下程序代码： 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 运行程序后单击命令按钮，窗体上显示的是（ ）。A.100 100B.100 120C.110 100D.110 120
有如下事件过程： Private Sub Commaild1_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 * ##
在窗体上画一个名称为Command1的命令按钮，并编写如下过程： Private Sub Command1_Click() Dim x AS Integer Static y As Integer x=10 y=5 Call f1(x, y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．10 5B．12 5C．10 7D．12 7
