返回列表 上一主題 發帖

VB.NET 教學 基本語法

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
個人簽名@

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

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題