更多"在窗体中有一个命令按钮command1，编写事件代码如下： Priv"的相关试题:
[单项选择]在窗体中有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click（ ）
Dim s As Integer
s=P(1)+P(2)+P(3)+P(4)
debugPrint s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是( )。
A. 15
B. 20
C. 25
D. 35
[单项选择]在窗体中有一个命令按钮command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim s As Integer
s=P(1)+P(2)+P(3)+P(4)
Debug.Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+1
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出的结果是
A. 15
B. 20
C. 25
D. 35
[单项选择]
在窗体中有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim s As Integer
s = p(1) + p(2) + p(3) + p(4)
debug.Print s
End Sub
Public Function p (N As Integer)
Dim Sum As Integer
Sum = 0
For i = 1 To N
Sum = Sum + 1
Next i
P = Sum
End Function
打开窗体运行后，单击命令按钮，输出的结果是（）
A. 15
B. 20
C. 25
D. 35
[单项选择]在窗体上画一个命令按钮，名称为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，对应的事件代码如下：
Private Sub Command1_Enter（ ）
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox("请输入数据："，"输入"，1)
If Int(num/2)＝num/2 Then
a＝a+1
Else
b＝b+1
End If
Next i
MsgBox("运行结果：a＝"& Str(
A. &:",b＝"& Str(
B. )
C. 对输入的10个数据分别统计有几个是整数，有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数
[单项选择]在窗体中有一个命令按钮Command1，对应的事件代码如下：
Private Sub Command1_Enter（ ）
Dim num AS Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据："，"输入"，1)
If Int(num/2)=num/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox("运行结果：a="&Str(a)&："，b="&Str(b))
End Sub
运行以上事件所完成的功能是( )。
A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数，然后再进行累加
C. 对输入的10个数据分别统计有几个是整数，有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数
[填空题]窗体中有一个命令按钮，然后编写下列事件过程：
Private Sub Command1_Click（ ）
x=0
Do Untilx=-1
a=InputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8,-1，输出的结果是______。
[填空题]窗体中有一个命令按钮，然后编写下列事件过程：Private Sub Command1_Click（ ） x=0 Do Untilx=-1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8,-1，输出的结果是（）。
[单项选择]在窗体中有一个名为Command1的命令按钮，Click事件代码如下。
Private Sub Command1_Click（ ）
f=0
for n=1 To 10 Step 2
f=f+n
Next n
Me!Lb1.Caption=f
End Sub
单击命令按钮后，标签显示结果是( )。
A. 16
B. 14
C. 26
D. 25
[单项选择]在窗体上有一个命令按钮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的命令按钮，Click事件的代码如下：
Private Sub Command1_Click（ ）
f=0
For n = 1 To 10 Step 2
f = f+n
Next n
Me!Lb1.Caption = f
End Sub
单击命令按钮后，标签显示的结果是（）。
[填空题]在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
Private Sub(20mnlan d1_Click（ ）
f=0
For n=1 to 10 Step 2
f=f+n
Next n
Me!lb1.Caption=f
End Sub
单击命令按钮后，标签显示的结果是______。
