巢狀If例

1 Public Class Form1
2     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
3         Dim Tday = "非假日"
4         Dim sel = "運動"
5         If Tday = "假日" Then
6             Debug.Print("不上班")
7             If sel = "運動" Then
8                 Debug.Print("要運動5點起床")
9             Else
10                 Debug.Print("不運動7點起床")
11             End If
12         End If
13         If Tday <> "假日" Then
14             Debug.Print("要上班")
15             If sel = "運動" Then
16                 Debug.Print("要運動5點起床")
17             Else
18                 Debug.Print("不運動6點起床")
19             End If
20         End If
21     End Sub
22 End Class

參考資料：http://www.gotop.com.tw/waweb2004/main/home.aspx?pg=HM010X2007&bn=AEQ003100