vb高手请进,模拟Select Case 语句

Question

复制下面这段代码:
Private Sub Form_Click()
Dim a
a = InputBox("请输入你要查看星期几的教师值班安排")
Select Case a
Case 1, 3, 5
MsgBox "星期一、三、五由张老师值班"
Case 2, 4, 6
MsgBox "星期二、四、六由李老师值班"
Case Else
MsgBox "请输入1-6之间的整数"
End Select
End Sub

要求是怎样用文本框来模拟上面这段程序:
text1.text里面输入:
1, 3, 5 (回车)这里一定要用回车
2, 4, 6

要求是在text2.text里面输入(一,二,三,四,五,六)中的其中之一,(这个跟上面inputbox里面输入的一样),然后单击command1,则text3里面显示结果(要跟MsgBox里面显示的一样).这个目的是要用text框来模拟Select Case 语句.谢谢!!

Answer 1

不知道是你的表达能力有问题,还是我的理解能力低下,我不太明白你说的是什么意思
Private Sub command1_Click()
Dim a
a = text2.text
Select Case a
Case "一","三", "五"
text3="星期一、三、五由张老师值班"
Case "二","四","六"
text3="星期二、四、六由李老师值班"
Case Else
text3="请输入1-6之间的整数"
End Select
End Sub

Answer 2

自己慢慢来