更多"在窗体上画一个命令按钮，名称为Comraandl。单击该命令按钮时，执"的相关试题:
[单项选择]在窗体上画一个命令按钮，名称为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 x = 14 y = 16 x=16 y=18
B. x=12 y=12 x= 16 y =28 x= 18 y=24
C. x=12 y=12 x= 14 y=44
D. x= 12 y=12 x= 14 y=26
[单项选择]在窗体上画一个命令按钮，名称为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
[单项选择]在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序： Private Sub Command1_Ctick（ ） For I=1 TO 2 For J=1 TO I Print String(I，"Hello")； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. H HH HH
B. H HHHH
C. HHHHH
D. H HH HHHH
[单项选择]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： 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（ ）
For i=1 To 2
For j=1 To i
Print String(i,"Hello")
Next j
Print
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click（ ） For i = 1 To 2 For j = 1 To i Print String(i, "Hello") Next j Print Next i End Sub
A. H HH HH
B. H HHHH
C. HHHHH HH HHHH
D. H
[单项选择]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Prirate Sub Commandl_click（ ） a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。
A. software andhardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click（ ） Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是( )。
A. 11
B. 1
C. 16
D. 7
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a（ ）
a＝Array("机床"，"车床"，"钻床"，"轴承")
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A. 机床
B. 车床
C. 钻床
D. 轴承
[单项选择]在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click（ ） Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )
A. 0
B. 1
C. 2
D. 3
[单项选择]在窗体上画一个命令按钮，名称为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（ ）Dim a As Integer, y As Integera =10: y = 0do a=a+2:y=y+ a Print "a="; a; "y=", y if y＞20 then exit doLoop until a＞14End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A. a=12 y=12 a=14 y=16 a=16 y=20
B. a=12 y=12 a=16 y=28 a=14 y=24
C. a=12 y=12 a=14 y=26
D. a=12 y=12 a=14 y=44
[单项选择]在窗体上画一个命令按钮，名称为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
[单项选择]在窗体上画一个命令按钮，名称为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
