vb怎么在标签上显示当前系统星期几

Private Sub Form_Click()
Dim a(7) As String, b(7) As String
a(1) = "日": a(2) = "一": a(3) = "二": a(4) = "三": a(5) = "四": a(6) = "五": a(7) = "六"

For i = 1 To 7
b(i) = "星期" & a(i)
Next i
n = Weekday(Now)

Select Case n
Case n = 1 To 7
Label1 = b(n)
End Select
End Sub

在界面里建一个标签，把代码复制进代码编辑器就OK了。

Private Sub Label1_Click()
d = Weekday(Now)
Select Case d
Case 1
Label1.Caption = "星期天"
Case 2
Label1.Caption = "星期一"
Case 3
Label1.Caption = "星期二"
Case 4
Label1.Caption = "星期三"
Case 5
Label1.Caption = "星期四"
Case 6
Label1.Caption = "星期五"
Case 7
Label1.Caption = "星期六"
End Select
End Sub

Label1.caption=Weekday(Now)

weekdayname(Weekday(Now))

label1=week