更多"在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如"的相关试题:
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click( ) Dim city As Variant city=Array(“北京”，“上海”，“天津”，“重庆”) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 空白
B. 错误提示
C. 北京
D. 上海
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click（ ） Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A. 空白
B. 错误提示
C. 北京
D. 上海
[单项选择]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click（ ） a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮，名称为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
[单项选择]在窗体上画一个命令按钮，名称为Comraandl。单击该命令按钮时，执行如下事件过程： Private Sub Command1_Click（ ） a$="software and hardware" b$=Right(a$, 8) c$=Mid(a$, 1, 8)+b$ MsgSox a$, 1, b$ End Sub 则在弹出的消息框的标题栏中显示的信息是______。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮，命名为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
[单项选择]在窗体上画一个命令按钮，然后编写如下程序
Private Sub Command4 Click（ ）
Dim a As Integer，b As Integer
a=1
b=2
Print N(a，b)
End Sub
Function N(x As Integer，y As Integer)As Integer
N=IIf(x＞y，x，y)
End Function
程序运行后，单击命令按钮，输出结果为（ ）。
A. l
B. 2
C. 5
D. 8
[单项选择]在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. Private Sub Command1_Click( ) x=Input Box("请输入整数") a=F1(Val() Print a End Sub Function Fl(ByRef b As Intege If b Mod2=0 Then Return0 Else Return 1 End lf End Function
B. Private Sub Command1_Click( ) x=Input Box(“请输入整数”) a=Fl(Val() Print a End Sub Function Fl(ByRef b As Intege lf b Mod 2=0 Then Fl=0 Else Fl=1 End lf End Function
C. Private Sub Command1 Click() x= Input Box(“请输入整数”) F1(Val() Print a Enb Sub Function Fl(ByRef b As Intege If b Mod2=0 Then Fl=1 Else Fl=0 End lf End Function
D. Private Sub Command1_Click( ) x=Input Box(“请输入整数”) F1(Val() Print a End Sub Function Fl(ByRef b As Intege lf b Mod2=0 Then Return 0 Else Return1 End lf End Function
