Question

输入一个数字1-7，分别通过select语句和choose函数两种方法用英文显示对应的星期一至星期日

Private Sub Form_Click()
Dim m%
InputBox ("请输入m")
Select Case m
Case 1
MsgBox ("Monday")
Case 2
MsgBox ("Tuesday")
Case 3
MsgBox ("Wednesday")
Case 4
MsgBox ("Thursday")
Case 5
MsgBox ("Friday")
Case 6
MsgBox ("Sateday")
Case 7
MsgBox ("Sunday")
End Select

End Sub

我的运行不出来，不知道有什么错误。

Answer 1

把
InputBox("请输入m")
改为
m = InputBox("请输入m")
'---------------------------------
CHOSE方法

Dim m%
m = InputBox("请输入m")
MsgBox Choose(m, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Sateday", "Sunday")

Answer 2

应该是第三行错误了，改成m = InputBox ("请输入m")