在窗体上添加一个命令按钮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，则窗体上显示的是（）。

相似题目

• 在窗体上画一个名称为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打开窗体后，单击命令按钮，消息框的输出结果是_____。

  查看最佳答案

• 在窗体上画一个命令按钮，然后编写如下事件过程：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

  查看最佳答案

• 在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码；Option Base 1Private Sub Com

  在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______。 A．6 9 7 10 B．7 10 8 11 C．8 11 9 12 D．9 12 10 13

  查看最佳答案

• 在窗体中添加一个名称为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

  查看最佳答案

• 在VB窗体上添加一个名称为 Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后

  A．A.13和40 B．B.13和8 C．C.5和40 D．D.5和8

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

  Private Sub Command1_Click（） n = Val（Text1.Text） For i = 2 To n For j = 2 To sqr（i） If i Mod j = 0 Then Exit For Next j If j ＞ Sqr（i） Then Print i Next i End Sub 该事件过程的功能是（）。 A．输出n以内的奇数 B．输出n以内的偶数 C．输出n以内的素数 D．输出n以内能被j整除的数

  查看最佳答案

• 在窗体中添加一个名称为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

  查看最佳答案

• 在窗体上画一个命令按钮，名称为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的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。 A．4 B．5 C．6 D．7

  查看最佳答案

• 在窗体上画一个名称为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)

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Priva

  在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写 如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是 A．输出n以内的奇数 B．输出n以内的偶数 C．输出n以内的素数 D．输出n以内能被j整除的数

  查看最佳答案

• 在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

  <img src='https://img2.soutiyun.com/ask/uploadfile/2586001-2589000/23e1201b59bd107c459be2a1be30957d.jpg' /> 程序运行后，单击命令按钮，在文本框中显示的值是 A．2 B．3 C．4 D．5

  查看最佳答案

• 在窗体中添加一个名称为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（)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的命令按钮，然后编写如下事件过程：PrivatSuCommand1_Click（）。程序运行时，单击Command1，则在窗体上输出的结果是（）

  A．分支1 B．分支2 C．分支3 D．无任何输出

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）

  A．25和3 B．5和3 C．25和6 D．5和6

  查看最佳答案

• 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：运行程序后单击命令按钮，在窗体上显示的是（）

  A．6 B．5 C．7 D．8

  查看最佳答案

• 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click（）

  A．Right B．Left C．Val D．Mid

  查看最佳答案

• 在窗体上画一个名称为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． &

  查看最佳答案