- 帖子
- 20
- 主題
- 18
- 精華
- 0
- 積分
- 43
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- Office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-9-5
- 最後登錄
- 2011-9-6
|
VB.NET 教學 基本語法
IF
view sourceprint?01 Module TestIf
02 '主程式
03 Public Sub Main()
04 Dim i As Int32 = 60
05 If (i = 100) Then ' =,>=,<=,>,<,<>
06 System.Console.WriteLine(i.ToString() + " 等於100")'Code Black
07 Else
08 System.Console.WriteLine(i.ToString() + " 不等於100") 'Code Black
09 End If
10 End Sub
11 End Module
SELECT CASE
view sourceprint?01 Module TestSelectCase
02 '多重分支流程
03 Public Sub Main()
04 Dim i As OpMode = OpMode.Query
05 Select Case i
06 Case OpMode.Add
07 System.Console.WriteLine("新增!!")
08 Case OpMode.Delete
09 Case OpMode.Modify
10 Case OpMode.Query
11 System.Console.WriteLine("查詢!!")
12 End Select
13 End Sub
14 End Module
view sourceprint?1 Public Class AppUtil
2
3 End Class
4 Public Enum OpMode
5 Add
6 Modify
7 Delete
8 Query
9 End Enum
view sourceprint?01 Module TestIfNested
02 Public Sub Main()
03 Dim i As Int32 = 59
04 If (i >= 60) Then
05 If (i >= 70) Then
06 If (i >= 80) Then
07
08 If (i >= 90) Then
09 System.Console.WriteLine("好成績!")
10 Else
11 System.Console.WriteLine("不錯!!")
12 End If
13 Else
14 System.Console.WriteLine("普通!!")
15 End If
16 Else
17 System.Console.WriteLine("及格邊緣!")
18 End If
19 Else
20 System.Console.WriteLine("不及格!!")
21 End If
22 End Sub
23 End Module
巢狀IF |
|
發表於 2011-9-6 00:22
| 
