vb.net-循环
While …End While语句 While (cj >= 0) 。。。。 End While 功能]: ------------------------------------------------------------------------------------------------------------------------------------------------------------------ Do…Loop语句 1) Do Loop While 循环体”至少执行一次
2) Do While <表达式>
3)
Do Until…Loop语句是先判断条件,在条件表达式值为False时执行循环体。该语句的格式与功能如下。
4) Do…Loop Until语句是先执行循环体,然后判断条件,在条件表达式的值为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 <步长>]
[说明]:
①循环变量、初值、终值和步长均是一个数值型变量。如果步长为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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |