vb.net-循环

前端之家收集整理的这篇文章主要介绍了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

猜你在找的VB相关文章