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语句
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,可以省略。
②终止循环的条件是循环变量的值“超过”终值,而不是等于,也不是大于或小于。所谓“超过”是指在变化方向上越过,若“步长”是正值,则“超过”的含义是大于,若“步长”是负值,则“超过”的含义是小于。
Console.WriteLine(I)
Next I
Console.WriteLine(I)语句执行十次,输出1到10这十个数;当I等于11时,I大于10,循环终止,Console.WriteLine(I)语句不会再执行。
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