vb.net-循环

While  …End While语句 

 While (cj >= 0)       

。。。。           

 End While

功能]：
    首先计算While后面的“表达式”，如果其值为True，则执行循环体，然后再次计算While后面的表达式，重复上述过程……当某一次计算表达式的值时发现表达式的值为False，将退出循环，转入下一语句去执行。

------------------------------------------------------------------------------------------------------------------------------------------------------------------

Do…Loop语句

 1）

   Do         

    Loop While

循环体”至少执行一次

 

2）

Do  While  <表达式>
            <循环体>
 Loop

该语句的功能与While…End While语句的功能完全一致

 

3）

 

 

Do Until…Loop语句是先判断条件，在条件表达式值为False时执行循环体。该语句的格式与功能如下。
    [格式]：Do  Until  <表达式>
                       <循环体>
               Loop
    [功能]：首先计算表达式的值，若表达式的值为True，则结束循环，如果表达式的值为False，则执行循环体，循环体执行后回来重新测试条件。
    [说明]：本循环语句与Do While…Loop语句的唯一不同之处在于该语句的循环条件是表达式的值为False。

 

4）

Do…Loop Until语句是先执行循环体，然后判断条件，在条件表达式的值为False时执行循环体。该语句的格式与功能如下。
      [格式]：Do
                           <循环体>
                   Loop  Until  <表达式>
      [功能]：首先执行循环体，然后计算表达式的值，若表达式的值为True，则结束循环，如果表达式的值为False，则执行循环体，循环体执行后再重新测试条件……直到某次测试条件时，发现表达式的值为True，此时结束循环。
      [说明]：本循环语句与Do…Loop  While语句的唯一不同之处在于该语句的循环条件是表达式的值为False。

--------------------------------------------------=------------------------------------------------------------------------------------------------------

For…Next语句

For i = 2 To Math.Sqrt(Num)   '该循环用来判断i的值是否为素数
            If Num Mod i = 0 Then '如果Num的值能被2~Num的平方根之间的某一个数整除
                Flag = 0          '不是素数，把Flag值置0
                Exit For          '退出For循环
            End If
Next i

 

       [格式]：For <循环变量> =<初值> To <终值> [Step <步长>]
                             <循环体>
                    Next <循环变量>
       [功能]：该语句的执行过程如下：首先把“初值”赋值“循环变量”；再用“循环变量”的值与“终值”比较,如果循环变量没有超过“终值”，则执行“循环体”；然后执行循环终结语句Next，将“循环变量”的值加上“步长”的值，再判断“循环变量”的值是否超过“终值”，如果没有超过“终值”，继续执行循环体……。重复上述过程，直到“循环变量”超过“终值”，才结束循环，然后接着执行Next的下一个语句。

       [说明]：
  ①循环变量、初值、终值和步长均是一个数值型变量。如果步长为1，可以省略。
  ②终止循环的条件是循环变量的值“超过”终值，而不是等于，也不是大于或小于。所谓“超过”是指在变化方向上越过，若“步长”是正值，则“超过”的含义是大于，若“步长”是负值，则“超过”的含义是小于。

  ③循环次数的计算。公式如下：

                                

 

 

  ④初值、终值、步长均可以是正值、负值或零，也可以是整数或小数。当步长为负时，循环变量的值必须小于终值，循环才能终止。
        ⑤如果初值、终值和步长是变量，在循环体中对其修改不影响原来循环次数。

    例如：

    For I=1 T0 10
    Console.WriteLine(I)
                     Next I
  Console.WriteLine(I)语句执行十次，输出1到10这十个数；当I等于11时，I大于10，循环终止，Console.WriteLine(I)语句不会再执行。

 

----------------------------------------------------------------------------------------------------------------------

多重循环

 

For Cock = 1 To 19 '公鸡数从1到19
            For Hen = 1 To 33 '母鸡数从1到33
                Chicken = 100 - Cock - Hen '小鸡数为100减去公鸡数和母鸡数
                If (Chicken Mod 3 = 0) Then '小鸡数应能被3整除
                    '刚好是100元钱，则是一种方案，输出
                    If (Cock * 5 + Hen * 3 + Chicken / 3 = 100) Then
                        i = i + 1    '方案号加1
                   TextBox1.Text = TextBox1.Text + "方案" + CStr(i) + "  公鸡: " _
                        + CStr(Cock) + "    母鸡: " + CStr(Hen) + "    小鸡: " + CStr(Chicken) + Chr(13) + Chr(10)  '把方案信息显示文本框中
                    End If
                End If
            Next Hen
        Next Cock