Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入0到6的数字", "最爱星期6", 6))
Select Case n
Case n Is 0
Label1.Caption = "星期一"
Case n Is 1
Label1.Caption = "星期二"
Case n Is 2
Label1.Caption = "星期三"
Case n Is 3
Label1.Caption = "星期四"
Case n Is 4
Label1.Caption = "星期五"
Case n Is 5
Label1.Caption = "星期六"
Case n Is 6
Label1.Caption = "星期日"
End Select
End Sub

Private Sub Form_Load()
Me.Caption = "判断星期几"
Label1.Caption = ""
InputBox "请输入0到6的数字", "最爱星期6", 6
Command1.Caption = "单击"
End Sub
哪点类型不匹配？？？