输入一个数字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

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

(求助)输入1~7,分别显示星期一到星期天,别的数字提示请输入1~7的数字,不是数字 摄像机通过S端子输入电脑？ 在C++中怎样通过cin输入一串数字，并将输入的数字值赋给一个一维数组， 编写一个输入数字0-6即显示星期汉英对照的FUNCTION函数。其中0对应星期日，1-6分别对应星期一到星期六 用Wingdings输入的数字1~9分别对应着什么图形? 用Delphi 7编程,要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改. 在excel中，我想输入一个数字，自动生成从1到这个数字。如何实现？ 特急!!刚学TC,怎样用%s控制输入一个数字字符串,将其转换为整数并用%d输出.例如输入字符串"1234",输出1234. c语言输入一个不多于5位正整数要求：求出它是几位数；分别打印出每一位数字；按逆序输出各位数字。 笔记本电脑想另配一个小键盘，以便数字输入