在窗体中添加一个命令按钮，编写如下程序：Private Sub Sub1（p，m，n)p=p+1：m=m+1：n=n+1Print "sub1：
在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A．Sub： 2 6 4 Main： 2 6 4
B．Sub： 2 6 4 Main： 2 6 4
C．Sub： 2 6 4 Main： 1 2 3
D．Sub： 2 6 4 Main： 2 2 3
时间：2023-10-05 12:05:52
相似题目
-
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
https://assets.asklib.com/images/image2/2018080114161482449.jpg
程序运行后，单击命令按钮，则标签中显示的内容是（）
A . 5
B . 15
C . 20
D . 25
-
在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是_____。
-
在窗体中添加一个命令按钮Command1，编写如下代码：Private Sub Command1_Click()x = 6If x > 6 ThenIf x = 6 ThenPrint \a\ElsePrint \b\End IfElseIf x < 8 ThenPrint \c\ElseIf x = 6 ThenPrint \d\End IfEnd IfEnd IfEnd Sub运行后，单击命令按钮，则在窗体上显示的是（ ）。
-
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) x = InputBox（"Input") Select Case x Case 1, 3 Print "分支 1" Case Is ＞ 4 Print "分支 2" Case Else Print "Else 分支" End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。
A．分支1
B．分支2
C．Else 分支
D．程序出错
-
在窗体上画一个命令按钮，然后编写如下程序：Sub S1（ByVal X AS Integer，ByVal y As Integer) Dim
在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal X AS Integer，ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer，b As Integer a=10 b=30 S1 a，b Print"a="；a；"b="；b End Sub 程序运行后，单击命令按钮，输出结果是： ______。
A．a=30 b=10
B．a=30 b=30
C．a=10 b=30
D．a=10 b=10
-
在窗体中添加一个名称为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
-
在窗体上画一个命令按钮，然后编写如下程序：privatesubcommand1_click()forj=1to11j=j+1n=n+1nextjPrint"n=";nendsub程序运行后单击命令按钮，N的值是()
A．5
B．6
C．10
D．11
-
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Public x As integerPrivate Sub C
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As integer Private Sub Command1_Cliek() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1 () x = x+20 End Sub Private Sub s2 () Dim x As integer x =x +20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为()。
A．10
B．30
C．40
D．50
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Di m（）
A．输出0
B．输出25
C．输出45
D．无任何输出
-
在窗体中添加一个命令按钮（名称为Conunandl)，然后编写如下代码：PrivateSubCommand1-Click（)a=0：b
在窗体中添加一个命令按钮(名称为Conunandl)，然后编写如下代码：PrivateSubCommand1-Click()a=0：b=0：c=6MsgBoxa=b+cEndSub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。
A．11
B．a=11
C．0
D．False
-
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码。 Private Sub Commandl_Click（） Dim a（1 0，10）Form=2 to4Forn=4to5a（m，n=m*nNextnNextmMsgBox a（2，5）+a（3，4）+a（4，5）EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。
A.22
B.32
C.42
D.52
-
窗体中有一个名称为txtNoteEdit的文本框和一个名称为cmdCut的命令按钮，编写如下程序段：PrivateSubcmdCut_Click()st=txtNoteEdit.SelTexttxtNoteEdit.SelText=""EndSub当单击命令按钮后，程序执行的效果是()
A．将txtNoteEdit中的所有内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切
B．将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit中所有的内容清除，实现了剪切
C．将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切
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
-
在名为Form1的窗体上建立一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试Visual Bask课程”。程序运行情况如下图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182610/ct_ctvbjj_ctvbjbasicope_00044(20096).jpg' />
注意：
不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 execise77.frm，工程文件名为execise77.vbp。
-
在窗体中添加一个命令按钮，编写如下程序：Private Sub Subl（p,m,n) p=p+1:m=m+1:n=n+1 Print"su
在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为
A．Sub：2 6 4 Main：2 6 4
B．Sub：2 6 4 Main：2 6 4
C．Sub：2 6 4 Main：1 2 3
D．Sub：2 6 4 Main：2 2 3
-
在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的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的命令按钮，然后编写如下事件过程：PrivatSuCommand1_Click（）。程序运行时，单击Command1，则在窗体上输出的结果是（）
A．分支1
B．分支2
C．分支3
D．无任何输出
-
窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：对于上述程序，以下叙述中错误的是（）
A．语句fun=n有错，因为n是整型，fun没有定义类型
B．运行程序，输入值为5时，文本框中显示655
C．运行程序，输入值为6时，文本框中显示42
D．ByRef表示参数按址传递
-
在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）
A．25和3
B．5和3
C．25和6
D．5和6
-
假定有以下函数过程：在窗体上画一个命令按钮，然后编写如下过程：程序结束后单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，单击确定按钮后在窗体上输出的结果为（）
A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（）。
A．输出0
B．输出25
C．输出45
D．无任何输出
-
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click（) a=Text1.Text b=Text2.Text c=LCase （
A．
d=UCase (
B．
&
-
在窗体上有一个命令按钮和一个标签，其名称分别为Command1和Label1，编写如下事件过程：程序运行后单击命令按钮，标签中显示的内容是（）
A．11
B．12
C．16
D．20
