单项选择题

在窗体上画的3个名称为Command1命令按钮是控件数组，从左到右，控件数组下标分别为0、1、2。如图1所示。有下列程序：


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
执行程序后，单击中间那个按钮，显示的对话框的形式为________。

<上一题 目录 下一题>
热门 试题

单项选择题
编写如下事件过程： Option Base 1 Private Sub Form_Click( ) Dim x1( )As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)= i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n( )As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)= n(i - 1)* 2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是________。
A．6
B．12
C．24
D．47
单项选择题
阅读下面的程序： Private Sub Form_Click( ) Dim m， n As Integer m = InputBox( 请输入M的值 ) m = Val(m) m1 = m n = InputBox( 请输入N的值 ) n = Val(n) n1 = n Do While n＜＞0 remin = m Mod n m = n n = remin Loop Print m1， n1， m End Sub 程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为________。
A．16　24　4
B．16　24　8
C．24　16　6
D．24　16　8
相关试题