標題: VB.NET 教學 基本語法 [打印本頁]

---

作者: narita    時間: 2011-9-6 00:22     標題: 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

---

作者: bowaycho    時間: 2011-11-10 11:14

感謝~正在學習VB中，有點概念比較好。還望前輩多發基本語法以供後輩學習

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)