在窗体上画3个名称为Command1的命令按钮作为控件数组，从左到右，控件数组下标分别为0、1、2，界面如下图所示。有下列程序：Private Sub Command1 Click(Index As Integer)Dim s As StringSelect Case IndexCase 0s= "飞机"Case 1s="汽车"Case 2s= "火车"End SelectMsgBox s， IndexEnd Sub执行程序后，单击中间那个按钮，显示的对话框形式为A．B．C．D．
在窗体上画3个名称为Command1的命令按钮作为控件数组，从左到右，控件数组下标分别为0、1、2，界面如下图所示。有下列程序：
Private Sub Command1 Click(Index As Integer)
Dim s As String
Select Case Index
Case 0
s= "飞机"
Case 1
s="汽车"
Case 2
s= "火车"
End Select
MsgBox s， Index
End Sub
执行程序后，单击中间那个按钮，显示的对话框形式为
A．
B．
C．
D．
相关考题：
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）a=0For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．0B．2C．3D．4
若在某窗体模块中有如下事件过程Private Sub Command1_Click（Index AS Integer）……End Sub则以下叙述中正确的是（ ）。A． 此事件过程与不带参数的事件过程没有区别B． 有1个名称为Command1的窗体,单击此窗体则执行此事件过程C． 有1个名称为Command1的空件数组,数组中有多个不同类型控件D． 有1个名称为Command1的空件数组,数组中有多个相同类型控件
在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。Private Sub Command1_Click（）Sum = 0For i = 0 To 4Sum = Sum + ________Next________ = SumEnd Sub
若在某窗体模块中有如下事件过程： Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。A．此事件过程与不带参数的事件过程没有区别B．有—个名称为Command1的窗体，单击此窗体则执行此事件过程C．有一个名称为Command1的控件数组，数组中有多个不同类型控件D．有—今名称为Command1的控件数组，数组中有多个相同类型控件
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。A．0B．2C．3D．4
如下图所示的两个窗体：要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End SubB．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End SubC．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End SubD．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。A.Private Sub Form1 Click（ ）End Sub···B.Private Sub Form1. Click（ ）End Sub···C.Private Sub Command1 click（ ）End Sub···D.Private Sub Command Click（ ）End Sub···
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Commandl_Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X, YEnd Sub程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 5B．4 5C．8 4D．3 4
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如下图所示。命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是( )。A．单击“打开”按钮，显示打开文件的对话框B．单击“保存”按钮，显示保存文件的对话框C．单击“打印”按钮，能够设置打印选项，并执行打印操作D．单击“退出”按钮，结束程序的运行
在窗体上有两个文本框控件和一个命令按钮，名称分别为Text1、Text2和Command1，以下程序实现的功能是当单击Command1按钮时，将把Text2控件中的文本全部选中，并把焦点设置在该文本框中。程序运行时的界面如图20-4所示，以下两空应填( )。Private Sub Command1_Click() TextSelStart=0 Text________=Len(TextText) Text_______ End SubA．SelLength SetFocusB．SelText SetFocusC．SelLength GetFocusD．SelText GetFocus
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是： ______。A．0B．1C．2D．3
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A．123.45B．12345.00C．12345D．00123.45
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。A．3B．4C．5D．6
在窗体上画四个文本框(如下图所示)，并用这四个文本框建立一个控件数组，名称为 Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程 Private Sub Commandl_Click() For Each TextBoxinTextl Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为( )。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息
在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。A．0 1 2 3B．1 2 3 4C．0 1 3 2D．出错信息
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。A．7 11B．5 11C．76D．2 1
在窗体上画一个按钮，然后再复制5个，形成名称为Command1的6个控件数组，删除其中Index=4的一个。有下列程序： Private Sub Command1_Click(Index As Integer) Print Command1.Count； Print Command1.LBound； Print Command1.UBound； End Sub 程序运行后，单击任一命令按钮，则窗体上显示的内容是A．0 0 0B．5 0 5C．4 0 4D．4 1 5
在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是（ ）。 Private S．b p1(n As Integer) For i=n To 1 Step=1 x=String(i，"*") Print x Next i End Sub Private Sub Command1 Click（ ） pl(3) EndSubA.*** ** *B.*** ***C.* * *D.******
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1 Click（ ） x=14 Do While x0 x=x-3 x=IIf(Int(x／5)=x／5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。A.0B.-lC.-2D.-_3
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A． 123.45B．12345.00C．12345D．00123.45
在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是A．BasicB．VisualC．CancelD．True
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command_Click() Static b As Integer b=b+1 End Sub运行程序，第3次单击命令按钮后，变量b的值为______。A．0B．1C．2D．3
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。A．15B．18C．21D．24
窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmd Draw的控件数组。窗体外观如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。有事件过程如下： Private Sub cmdDraw Click(Index As Integer) Select Case Index Case 0 Shape1．Shape=0 Case 1 Shape1．Shape=1 Case 2 Shape1．Shape=3 End Select End Sub当单击“画圆”命令按钮时，会执行cmdDraw Click事件过程。以下叙述中正确的是（ ）。A.Case 2分支有错，此Case后面表达式的值应该与赋给Shape1．Shape的值一致B.程序运行有错，控件数组的下标应该从1开始C.Index是形状控件的参数D.程序正常运行，形状控件被显示为圆形