窗体上有一个名称为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.程序正常运行，形状控件被显示为圆形
窗体上有一个名称为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.程序正常运行，形状控件被显示为圆形
相关考题：
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A；"÷"；B；"="；A / BEnd 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
窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）Answer= （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub
在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A． 6B．7C．8D．9
在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：Private Sub Cmd_Click( )Dim sum,kFor k=1 to 6sum=30+kNext kMsgBox sum+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是【 】。
在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9
窗体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 Command1_Click()sum=0For i=1 To 100 step 2Next iMsgBox sumEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
在窗体中添加一个名称为Cmd1的命令按钮，然后编写如下事件代码： Private Sub Cmd1_Click() a=125 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．1B．2C．3D．4
在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。A．10B．60C．30D．70
在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )A．0B．1C．2D．3
窗体上有一个名称为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．单击“退出”按钮，结束程序的运行
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A．123.45B．12345.00C．12345D．00123.45
窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是A．Private Sub Forml_Click() … End SubB．Private Sub Form_Click() … End SubC．Private Sub Commandl_Click() … End SubD．Private Sub Command_Click() … End Sub
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A．6B．7C．8D．9
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A．VVVB．VisC．sicD．11
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A．6B．7C．8D．9
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： 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
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：Private Function fun(ByVal m As Integer)Ifm Mod2=0 Thenfun=2Elsefun=1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer,s As Integers=0For i=1 To 5s=s+fun(i)NextPrintsEnd Sub程序运行后，单击命令按钮，则窗体上输出( )。A．6B．7C．8D．9
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Cilck()End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A． 123.45B．12345.00C．12345D．00123.45
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A． 11B．10C．9D．8
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出( )。A．6B．7C．8D．9
在窗体上画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．
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub
（ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。Private Sub cmdTest_Click()Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）If Answer=vbOK ThencmdDisplay.Visible= 【 15 】ElseDocmd.CloseEnd IfEnd Sub