选择题
窗体上命令按钮command1对应的Click事件过程如下:
Private Sub Commandl_Click()
Dim x As Integer
x=InputBox('请输入x的值')
Select Case x
Case 1, 2, 4, 10
Debug.Print'A'
Case 5 To 9
Debug.Print'B'
Case Is=3
Debug.Print'C'
Case Else
Debug.Print'D'
End Select
End Sub
窗体打开运行,单击命令按钮,在弹出的输入框中输入6,则立即窗口中输出的内容是______。