请帮我看一下这段vb代码为什么不能正常运行? 在线等，谢谢。急呀！

你前面把X定义成字符串类型,紧接着你又把一个整型数值赋给它,这是不对的,你应该把X定义成integer
Private Sub Form_Load()
Dim x As integer
x = CInt(InputBox("星期:"))
select case x
case 1 to 5
MsgBox "上课"
case else
MsgBox "休息"
end select
End Sub

x = CInt(InputBox("星期:"))
If x = 六 Or x = 天 Then
不过我测试的时候发现不能输入汉字
没有星期那两个字
你可以输入暑期
if x = 6 or 7 then

这样改就行了！
Private Sub Form_Load()
Dim x As String
x = InputBox("星期:")
If x = "星期六" Or x = "星期天" Then
MsgBox "休息"
Else
MsgBox "上课"
End If
End Sub

Dim x As String
x = CInt(InputBox("星期:"))
以上两个语句矛盾。可以定义x为integer型，下句不变，这样输入时输入1--7数字，相应的 If x = 星期六 Or x = 星期天 改为If x = 6 Or x = 7 .或inputbox输入的本身是string型，这样问题就出在没有用双引号将字符串包含起来了。