-
应用程序窗体的名称属性为Frm1,窗体上有一个命令按钮,其名称属性为Cmd1,窗体和命令按钮的Click事件过程名分别为()
A . Frm1_Click()Cmd1_Click()
B . Form_Click()Command1_Click()
C . Frm1_Click()Command1_Click()
D . Form_Click()Cmd1_Click()
-
窗体上有一个名称为Commad1的命令按钮,其事件过程如下:Private Sub Command1_Click()x = VisualBasicProgramminga = Right(x, 11)b = Mid(x, 7, 5)c = MsgBox(a, , b)End Sub运行程序后单击命令按钮。以下叙述中错误的是(2008年4月)
-
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是_____。
-
窗体上有一命令按钮Command1,编写以下事件过程:PrivateSubCommand1_Click()a=100:b=150:c=2000:d=2000ClsLine(a,b)-(c,d),,BEndSub运行时,单击命令按钮窗体上显示()。
-
窗体上有一个命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click()Fori=1to4Forj=4to8sum=sum+1NextjNextiPrintsumEndSub运行时,单击按钮,输出结果是()。
-
在窗体中有一个标签 Label0 ,标题为 “ 测试进行中 ” ;有一个命令按钮 Command1 ,事件代码如下:
Private Sub Command1_Click()
Label0.Caption=" 标签 "
End Sub
Private Sub Form_Load()
Form.Caption=" 举例 "
Command1.Caption=" 移动 "
End Sub
打开窗体后单击命令按钮,屏幕显示
A
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/03d044515e2c611828c7c48ea048090c.gif' />
B
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/0572d539b702134a8b7b6e97360a70af.gif' />
C
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/f7af594a09ec6b17b2ade14152fbd759.gif' />
D
<img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/38392fa317c8b848bb29c0b373d15549.gif' />
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()X=0Do Until x=-1 a
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() X=0 Do Until x=-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、3、2、1、-1,则输出结果为 ______。
A.2
B.3
C.14
D.15
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click(
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() s= "ABBACDDCAB" For i=6 To 2 Step -2 x=Mid(s,i,i) y=Left(s,i) z=x&y Next i MsgBox z End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.AABA
B.ABBA
C.BABBA
D.BBAB
-
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框,事件代码如下: Private Sub Command1_Click Dim a(10)As Integer,b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体,单击命令按钮,文本框Text1中显示的内容是()。
A.13
B.14
C.15
D.16
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;Private Sub Command1_Click()a $
在窗体上画一个命令按钮,名称为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和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click()
A.5
B.8
C.9
D.10
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = Trim(Str(C)) For i = 1 To 4 Print_____ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0Do Until x=-1a=InputBox("请输入A的值")a=Val(
A.
b=InputBox("请输入B的值")
b=Val(
B.
C.14
D.15
-
在窗体中有一个标签Label0,标题为“显示标签”;并存在一个标题为bOK的命令按钮Command1,其事件代码如下所示:
Private Sub Command1_Click()
a=95
If a>50 Then
k=1
Elself a>60 Then
k=2
Elself a>70 Then
k=3
Elself a>80 Then
k=4
Endlf
Label0.Caption=k
End Sub
Private Sub Form_Load()
Form.Caption=
A.
B.
C.
D.
-
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK(
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK() A =75 IF A >60 THEN K=1 ELSEIF A > 70 THEN K=2 ELSEIF A > 80 THEN K=3 ELSEIF A >90 THEN K=4 ENDIF MSGBOX K END SUB 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() A=75 If A>60 Then I=1 If A>70 Then 1=2 If A>80 Then 1=3 If A>90 Then 1=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then in=m+n/3 Next Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是
A.15
B.18
C.21
D.24
-
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
<img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/06618ed14e1342af407ef4550c1f28b1.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/1ebfd75144eb824dfe338ddda7667206.jpg' />程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为()。
A.20是一个奇数
B.20
C.20是一个偶数
D.2
-
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_click() Di
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容,是 ______。
A.79
B.340
C.97
D.死循环
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c=
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=“ABCD” For n=l to 4 Print______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在______处应填入的内容为
A.Left(c,n)
B.Right(c,n)
C.Mid(c,n,1)
D.Mid(c,n,n)
-
已知一窗体上命令按钮Command1的Click事件代码如下,则单击Command1后,文本显示的文字为()。
PrivateSubCommand1_Click()
Text1.Text="湖南省"&"计算机"+"等级考试"
Text1.ForeColor=vbRed
Text1.BackColor=vbGreen
Text1.FontBold=True
EndSub
A. 湖南省计算机等级考试
B. 计算机
C. 等级考试
D. 计算机等级考试
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivatSuCommand1_Click()。程序运行时,单击Command1,则在窗体上输出的结果是()
A.分支1
B.分支2
C.分支3
D.无任何输出
-
在窗体中有一个名为Command1的命令按钮,Click事件代码如下:单击命令按钮后,标签显示结果是()
A.16
B.14
C.26
D.25
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
A.Right
B.Left
C.Val
D.Mid