复制下面这段代码: 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 语句.谢谢!!
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024