如果结果不匹配，请 
更多“在SelectCase中Case后的判断可以是：（)A、字符…”相关的问题
A、SELECTCASEWHEN125THEN'true'ELSE'false'END;
B、SELECTCASEBINARY'B'WHEN'a'THEN1WHEN'b'THEN2END;
C、SELECTCASEWHEN-10THEN'true'END;
D、SELECTCASE'one'WHEN1THEN'one'WHEN2THEN'two'END;
A.40
B.30
C.20
D.10
窗体上有一个命令按钮command1，其Click事件过程如下：
Private Sub Commandl_Click()
Dim x As Integer
x=InputBox("请输入x的值")
Select Case x
Case 1,2,4,6
Debug.Print"A"
Case 5,7 To 9
Debug.Print"B"
Case Is=10
Debug.Print"C"
CaSe ElSe
Debug.Print"D"
End Select
End Sub
程序执行后单击命令按钮，在弹出的输入框中输入8，则立即窗口上显示( )。
A．A B．B C．C D．D
1.jpg)
其他功能要求如下： (1)用选项按钮组(OptionGroup1)控件选择商品分类(饮料(Option1)、调味品 (Option2)、酒类(Option3)、小家电(Option4))； (2)单击“确定”(Command2)命令按钮，显示选中分类的商品，要求使用DO CASE语句判断选择的商品分类(如右图所示)： (3)在右图所示界面中按Esc键返回左图所示界面： (4)单击“退出”(Command1)命令按钮，关闭并释放表单。 注意： 选项按钮组控件的Value属性必须为数值型。
A.表达式，例如“a”
B.一组用逗号分隔的枚举值，例如“a”，“b”
C.表达式1 to 表达式2，例如1 to 10
D.关系运算符表达式，例如=60
某窗体主体的Click事件过程如下，窗体运行后单击窗体主体，消息框中输出的结果是( )。
Private Sub主体_Click()
Dim i As Integer,a As Integer
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
A．3 B．4 C．5 D．6
