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
哪点类型不匹配？？？

Is 比较运算符和使用在 Select Case 语句中的 Is 关键字并不相同。

非要用的话把n Is 全替换掉……直接case 0等等.


或者=.=
Private Sub Command1_Click()
Dim n As Long
n = Clng(Inputbox("请输入0到6的数字", "最爱星期6", 6))
Label1 = Weekdayname(n + 1)
End Sub

[此贴子已经被作者于2007-2-24 16:44:50编辑过]