VB题目：假定有以下每周工作安排：

来源：百度知道 编辑：UC知道 时间：2024/05/10 04:56:46
星期一、三：讲计算机课
星期二、四：讲程序设计课
星期五：进修英语
星期六：政治学习
星期日：休息

Private Sub Command1_Click()
i = InputBox("请输入日期", "数据输入框", 0)
Select Case i
Case Is = 0
Print "今天休息"
End Select
Select Case i
Case Is = 1
Print "讲计算机课"
Case Is = 3
Print "讲计算机课"
Select Case i
Case Is = 2
Print "讲程序设计课"
Case Is = 4
Print "讲程序设计课"
Select Case i
Case Is = 5
Print "进修英语"
Select Case i
Case Is = 6
Print "政治学习"
End Select
End Sub

看不懂,你到底是要问什么呀????????