下面的程序用于根据文本框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