帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBox("输入1-7之间的一个整数"))selectcase aCase 1MsgBox ("今天是" & monday)Case 2MsgBox ("今天是" & tuesday)Case 3MsgBox ("今天是" & wednesday)Case 4MsgBox ("

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/17 06:22:01
帮忙看哈错在哪里呀.PrivateSubCommand1_Click()Dim,b$a=Val(InputBox("输入1-7之间的一个整数"))selectcaseaCase1MsgBox("今天是

帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBox("输入1-7之间的一个整数"))selectcase aCase 1MsgBox ("今天是" & monday)Case 2MsgBox ("今天是" & tuesday)Case 3MsgBox ("今天是" & wednesday)Case 4MsgBox ("
帮忙看哈错在哪里呀.
Private Sub Command1_Click()
Dim ,b$
a = Val(InputBox("输入1-7之间的一个整数"))
selectcase a
Case 1
MsgBox ("今天是" & monday)
Case 2
MsgBox ("今天是" & tuesday)
Case 3
MsgBox ("今天是" & wednesday)
Case 4
MsgBox ("今天是" & thursday)
Case 5
MsgBox ("今天是" & friday)
Case 6
MsgBox ("今天是" & saturday)
Case 7
MsgBox ("今天是" & sunday)
End Select
End Sub

帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBox("输入1-7之间的一个整数"))selectcase aCase 1MsgBox ("今天是" & monday)Case 2MsgBox ("今天是" & tuesday)Case 3MsgBox ("今天是" & wednesday)Case 4MsgBox ("
看样子你是想将输入的数字转英文.
monday、tuesday……要么是变量,要么是字符串.
如果是变量,看看你初始化没有;
如果是字符串,为什么不放到引号里面?