Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim datestr As Date
datestr = CDate(TextBox1.Text)
Label1.Text = "转换的日期:" & datestr
Select Case Weekday(Now)
Case 1
datestr = "日"
Case 2
datestr = "一"
Case 3
datestr = "二"
Case 4
datestr = "三"
Case 5
datestr = "四"
Case 6
datestr = "五"
Case 7
datestr = "六"
End Select
Label1.Text &= "<br>" & "星期" & Weekday(datestr) - 1
End Sub
End Class这段代码有错吗？
參考答案:没有
