掌握VB.NET中的程序流程控制语句.ppt

示例1：求2+4+6+8+……+n100成立的最大的n值 1 TestExit 2 Module Module1 3 4 Sub Main() 5 Dim i As Integer = 2 6 Dim Sum As Integer = 0 7 While True 8 Sum += i 9 If Sum = 100 Then Exit While Else 12 i += 2 13 End If 14 End While 15 MsgBox(i) 16 End Sub 17 18 End Module 死循环 跳出当前循环的条件判断 示例2：判断某个数是不是素数 4 Sub Main( ) 5 Dim N As Integer 6 Dim i As Integer = 2 7 Dim IsPrime As Boolean = True 8 N = CInt(InputBox(请输入一个整数)) For i = 2 To N - 1 I