更多"窗体上有名称为Command1的命令按钮事件过程及2个函数过程如下： "的相关试题:
[填空题]窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
S=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为______。
[填空题]窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为【 】。
[填空题]窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为 【7】 。
[填空题]
窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为（）。
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click（ ）
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[单项选择]在窗体上画一个命令按钮，名称为Command1。
Private Sub Command1 Click（ ）
Dim x As Integer，y As Integer
x=10:y:0
Do
x=x+2:y=y+x
Print "x=", x; "y=",y
If y＞20 Then Exit Do
Loop Until x=18
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ______。
A. x=12y=12
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[单项选择]窗体有命令按钮Command1和文本框Text1，对应的事件代码如下：
Private Sub Command1_Click（ ）
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1.Value=Str(x)
End Sub
运行以上事件过程，文本框中的输出是______。
A. 6
B. 12
C. 18
D. 21
[单项选择]
窗体上有一名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*（j/i）
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是（）。
A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5
[单项选择]在窗体上有一个命令按钮Command1，编写下列程序：
Private Sub Command1_Click（ ）
Print pp1(3,7)
End Sub
Public Function pp1(x As Single,n As Integer)As Single
If n=0 Then
pp1=1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮Command1，编写如下程序：
Private Sub Command1_Click（ ）
Print pp1(3, 7)
End Sub
Public Function pp1(x As Single, n As Integer) As Single
If n = 0 Then
pp1 = 1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click（ ）
Dim Arr1(10) As Integer, Arr2(10)As Integer
n=3
For i = 1 To 5
Arr1 (i)=i
Arr2(n)=2 * n+i
Next i
Print Arr2(n); Art1 (n)
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 11 3
B. 3 11
C. 13 3
D. 3 13
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ）As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox(“请输入一个数学”)
If Val(x)＞4 Then
ReDim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer
x=12:y=32
Call Proc(x，y)
Debug.Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
打开窗体运行后，单击命令按钮，窗口上立即输出的结果是______。
A. 2 32
B. 12 3
C. 2 2
D. 12 32
