usecase.vb

来自「asp做的新闻系统」· VB 代码 · 共 29 行

Public Class UseCase Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim nWeek As Integer = 7
    Dim strWeek As String

    Select Case nWeek
       Case 1
          StrWeek = "星期一"
       Case 2
          StrWeek = "星期二"
       Case 3
          StrWeek = "星期三"
       Case 4
          StrWeek = "星期四"
       Case 5
          StrWeek = "星期五"
       Case 6
          StrWeek = "星期六"
       Case Else
          StrWeek = "星期日"
    End Select
    Response.Write(“今天是：” & strWeek)

    End Sub

End Class