两个用法道理一样，为什么结果却不一样？

dim i as integer
Select Case i = Weekday(Date)
Case i = 1
Label4.Caption = "星期日"
Case i = 2
Label4.Caption = "星期一"
Case i = 3
Label4.Caption = "星期二"
Case i = 4
Label4.Caption = "星期三"
Case i = 5
Label4.Caption = "星期四"
Case i = 6
Label4.Caption = "星期五"
Case i = 7
Label4.Caption = "星期六"
End Select

dim i as integer
i = Weekday(Date)
If i = 1 Then
Label4.Caption = "星期日"
ElseIf i = 2 Then
Label4.Caption = "星期一"
ElseIf i = 3 Then
Label4.Caption = "星期二"
ElseIf i = 4 Then
Label4.Caption = "星期三"
ElseIf i = 5 Then
Label4.Caption = "星期四"
ElseIf i = 6 Then
Label4.Caption = "星期五"
ElseIf

请改为：
dim i as integer
i = Weekday(Date)
Select Case i
Case 1
Label4.Caption = "星期日"
Case 2
Label4.Caption = "星期一"
Case 3
Label4.Caption = "星期二"
Case 4
Label4.Caption = "星期三"
Case 5
Label4.Caption = "星期四"
Case 6
Label4.Caption = "星期五"
Case 7
Label4.Caption = "星期六"
End Select

请注意在VB语法里，case后不带条件表达式。要带只能带is表达式。

差一个函数。

还是有点问题的，改一下就好了：
dim i as integer
i = Weekday(Date)
Select Case i
Case 1
Label4.Caption = "星期日"
Case 2
Label4.Caption = "星期一"
Case 3
Label4.Caption = "星期二"
Case 4
Label4.Caption = "星期三"
Case 5
Label4.Caption = "星期四"
Case 6
Label4.Caption = "星期五"
Case 7
Label4.Caption = "星期六"
End Select