下面的程序用于根据文本框x中输入的内容进行以下处理:
若x中的值为2,4,6,则打印“x的值为2,4,6”;
若x中的值为10到20之间的数,则打印“x的值为10~20”;
若x中的值为大于20的数,则打印“x 的值大于20”;
否则,打印“x不在范围内”;
Private
Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case
Print "x的值为2,4,6"
Case
Print "x的值为10~20"
Case
Print "x的值大于20"
Print "x不在范围内"
End Select
End
Sub
答案:【1】Is = 2,4,6【2】Is > 10 ,Is < 20或者10 To 20【3】Is > 20【4】Case Else