一周七天用VB编程.求教.

来源：百度知道 编辑：UC知道 时间：2024/05/12 07:08:58
假定有以下每周工作安排：
星期一、三：讲计算机课
星期二、四：讲程序设计课
星期五：进修英语
星期六：公修课
星期日：休息
试编写一个程序，对上述工作日程进行检索。程序运行后，要求在文本框内输入一周的某一天，然后单击“显示”按钮，在标签中将输出这一天的工作安排。在输入时用0~6分别代表星期日到星期六，如果输入0~6之外的数或单击“退出”按钮，则程序结束运行。（本题用Select case结构完成）

Private Sub Command1_Click()
Dim d%
d = Val(InputBox("请输入日期吧!!"))

Select Case d
Case 1, 3
Label1 = "讲计算机课"
Case 2, 4
Label1 = "讲程序设计课"
Case 5
Label1 = "进修英语"
Case 6
Label1 = "公修课"
Case 0
Label1 = "休息"
Case Else
End
End Select
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "显示"
Command2.Caption = "退出"
Label1 = ""
End Sub