更多"窗体中有命令按钮Command1，事件过程如下： Public Fu"的相关试题:
[单项选择]窗体中有命令按钮Command1，事件过程如下：
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click（ ）
Dim y As Integer
Static x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是______。
A. 10 5
B. 10 40
C. 20 5
D. 20 40
[单项选择]窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click（ ）
x=Val(InputBox("请输入一个整数"))
If【】Then
Text1=Str(x)＆"是偶数."
Else
Text1=Str(x)＆"是奇数."
End If
End Sub
运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的括号内应填写______。
A. NOT result(x)
B. result(x)
C. result(x)=“奇数”
D. result(x)=“偶数”
[单项选择]在窗体上面一个命令按钮，其名称为Command1，然后编写如下程序： Function Func(ByVal x As Integer，y As Integer) y=x*y If y＞0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click（ ） Dim a As Integer，b As Integer a=3 b=4 c=Func(a，B) Print"a="；a Print"b="；b Print”c="；c End Sub 程序运行后，单击命令按钮，其输出结果为： ______。
A. a=3 b=12 c=3
B. a=3 b=4 c=3
C. a=3 b=4 c=12
D. a=13 b=12 c=12
[单项选择]窗体中有命令按钮run34，对应的事件代码如下：
Private Sub runS4_Enter（ ）
Dim num As Integer,a As Integer,b As Integer,i As Integer
For i=1 To 10
Bum=InputBox("请输入数据:","输入")
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个数据分别统计整数和非整数的个数
[单项选择]窗体中有命令按钮run34，对应的事件代码如下：
Private Sub run34_Enter（ ）
Dim num As Integer，a As Integer，b As Integer，i As Integer
For i=1 To 10
num=InputBox("请输入数据:"，"输入")
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个数据分别统计整数和非整数的个数
[单项选择]窗体中有·命令按钮，名称为Commandl。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是（ ）。
A. Commandl．FontUnderLi he--true
B. Commandl．Fontltalic=tne
C. Commandl．FontBold=true
D. Commandl．FontName=true
[填空题]窗体中有一命令按钮，名称为Commandl。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是______。
[单项选择]若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为（）。
A. Form_Click()和Command1_Click()
B. Frm1_Click()和Command1_Click()
C. Form_Click()和Cmd1_Click()
D. Frm1_Click()和Cmd1_Click()
[单项选择]若窗体Frml中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为______。
A. Form_Click()和Command1_Click()
B. Frm1_Click()和Commamd1_Click()
C. Form_Click()和Cmd1_Click()
D. Frm1_Click()和Cmd1_Click()
[单项选择]某窗体中有一命令按钮，名称为Commandl。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色变为棕色(棕色代码为128)，实现该操作的VBA语句是（ ）。
A. Commandl．ForeColor=128
B. Commandl．BackColor=128
C. Commandl．DisableColor=128
D. Commandl．Color=128
[填空题]窗体中有一命令按钮，名称为Command1。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是______。
