更多"在窗体中有一个命令按钮Command1,对应的事件代码如下: Pri"的相关试题:
[单项选择]在窗体中有一个命令按钮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个数据分别统计有几个是奇数,有几个是偶数
[填空题]在窗体上有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1_Click( )
Dim a(10),P(3) As Integer
k=5
For i=1 To 10
a(i)=i * i
Next i
For i=1 To 3
P(i)=a(i * i)
Next i
For i=1 To 3
k=k+p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是______。
[填空题]在窗体上画一个命令按钮Command1,然后编写如下程序:
Private Sub Command1_Click( )
Dim arr( ) As Integer
ReDim arr(3)
For i=0 To 3
art(i)=i
Next i
x=InputBol("请输入一个数字:")
If Val(x)>4 Then
ReDim arr(4)
art(4)=x
End If
Me.Print (arr(4)-arr(3))
End Sub
程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为 【10】 。
[单项选择]在窗体中有一个命令按钮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
[填空题]窗体中有一个命令按钮,然后编写下列事件过程:
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,对应的事件代码如下:
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个数据分别统计有几个是奇数,有几个是偶数