帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBox("输入1-7之间的一个整数"))selectcase aCase 1MsgBox ("今天是" & monday)Case 2MsgBox ("今天是" & tuesday)Case 3MsgBox ("今天是" & wednesday)Case 4MsgBox ("
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 10:49:29
![帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBox(](/uploads/image/z/14359685-5-5.jpg?t=%E5%B8%AE%E5%BF%99%E7%9C%8B%E5%93%88%E9%94%99%E5%9C%A8%E5%93%AA%E9%87%8C%E5%91%80.Private+Sub+Command1_Click%28%29Dim+%2Cb%24a+%3D+Val%28InputBox%28%22%E8%BE%93%E5%85%A51-7%E4%B9%8B%E9%97%B4%E7%9A%84%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%22%29%29selectcase+aCase+1MsgBox+%28%22%E4%BB%8A%E5%A4%A9%E6%98%AF%22+%26+monday%29Case+2MsgBox+%28%22%E4%BB%8A%E5%A4%A9%E6%98%AF%22+%26+tuesday%29Case+3MsgBox+%28%22%E4%BB%8A%E5%A4%A9%E6%98%AF%22+%26+wednesday%29Case+4MsgBox+%28%22)
帮忙看哈错在哪里呀.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……要么是变量,要么是字符串.
如果是变量,看看你初始化没有;
如果是字符串,为什么不放到引号里面?