更多"如果需要单击命令按钮,隐藏标签Labell中的文字显示,则其命令按钮的"的相关试题:
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是 Private Sub Command1_Click( ) Dim a a = Array(1,2,3,4,5) For k = 1 To4 s=s+a(k) Next Print S End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上画一个命令按钮,命名为CommandI。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程 F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。 能够正确实现上述功能的代码是
A. Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B. Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C. Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D. Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
[单项选择]在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是( )。
A. Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Funcfion
B. Privae Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C. Private Sub Command1_Click() x=InputBox("请输入整数") F1(Va(x)) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Funcfion
D. Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByrRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
[单项选择]窗体上有一个命令桉钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。
Private Sub Command1_click( )
Dim a
a=Array(1,2,3,4,5)
Fork=1 To 4
S=S+a(k)
Next k
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为“New File”的事件过程是______。
A. Private Sub Command1_Click() CommonDialog DialoqTitle="New File" CommonDialog ShowPrinter End Sub
B. Private Sub ComJRandl_Click() CommonDialog DialogTitle="New File" CommonDialog ShowFont End Sub
C. Private Sub Command1_Click() CommonDialog DialogTitle="New File" CommonDialog ShowOpen End Sub
D. Private Sub Command1_Click() CommonDialog DialogTitle="New File" CommonDialog ShowColor End Sub
[单项选择]假定通用对话框的名称为CommonDialog1,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为“New Title”的事件过程是()。
A. Private Sub Commandl_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowPrinter End Sub
B. Private Sub Command1_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowFont End Sub
C. Private Sub Commslld1_CUck() CommonDialog1.DialogTifie="NewTitle" CommonDialog1.ShowOpen End Sub
D. PrivateSubCommand1_Click() CommonDialog1.DialogTitle”NewTitle” CommonDialog1.ShowColor End Sub
[单项选择]在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click( ) a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox aS,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮,然后编写如下程序。运行后,单击命令按钮,输出结果为 ( )。
Private Sub Command4_Click( )
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x>y,x,y)
End Funcfion
[单项选择]在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果为 ( )。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i, "*") Print x Next i End Sub Private Sub Command1_Click( ) p1 (3) End Sub
A. * * * * * *
B. * * * * * *
C. * * *
D. * * * * * *
[单项选择]在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果是( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click( )
p1(3)
End Sub