UC知道简单的vb题，帮我一下
来源：百度知道 编辑：UC知道 时间：2024/05/10 19:40:09
假定工作安排：星期一 三：计算机课
星期二 四:讲程序设计课
星期五 ：进修英语
星期六 ：政治学习
星期日 ：休息
Private Sub Form_Click()
Do
work = InputBox(请输入一周的某一天)
Select Case work
Case1 , 3
MsgBox "讲计算机"
Case2 , 4
MsgBox "讲程序设计课"
Case5
MsgBox "进修英语"
case6
MsgBox "政治学习"
怎么写啊
星期二 四:讲程序设计课
星期五 ：进修英语
星期六 ：政治学习
星期日 ：休息
Private Sub Form_Click()
Do
work = InputBox(请输入一周的某一天)
Select Case work
Case1 , 3
MsgBox "讲计算机"
Case2 , 4
MsgBox "讲程序设计课"
Case5
MsgBox "进修英语"
case6
MsgBox "政治学习"
怎么写啊
Private Sub Form_Click()
work = InputBox("请输入一周的某一天")
if len(work)=0 then exit sub
Select Case val(work)
Case 1 , 3
MsgBox "讲计算机"
Case 2 , 4
MsgBox "讲程序设计课"
Case 5
MsgBox "进修英语"
case 6
MsgBox "政治学习"
case else
msgbox "错误"
end select
有什么问题