VB程序帮手看看

msg = InputBox("请输入一个数字(0-6)")
Var = InputBox(msg)
If Var <> "" Then
selece (Val(0 - 6))
Case 0
Print "星期日"
Case 1
Print "星期一"
Case 2
Print "星期二"
Case 3
Print "星期三"
Case 4
Print "星期四"
Case 5
Print "星期五"
Case 6
Print "星期六"
Case 7
Case Else
Print "必须输入一个数是0-6"
End Select
End If

那里错了？

应该是var=InputBox(msg) If var<>"" Then select case(val(0-6))，后面的没有错