useifelse.vb

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

Public Class UseIfElse Inherits System.Web.UI.Page

	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		’声明变量
		Dim strWeek As String = “四”
		Dim bFlag as Boolean = True	

		’判断strWeek是否为“四”
		If strWeek = “四” then
			Response.Write("今天是：星期四。")
		End If

		’判断bFlag是否为True
		If  bFlag then
			Response.Write("True")
		End If

    	End Sub

End Class