全国计算机考试 循环结构OK.ppt

2）For-Next循环的正常循环次数可用以下公式： 正常指在循环体内不给循环变量重新赋值。
循环次数=Int((终值-初值)/步长)+1 对上例循环体中加条语句i=i+1 则属于非正常
3）循环变量的初值、终值及步长只在进入For 循环时计算一次。
例题： a=5:b=10:c=2
计算初值、终值及步长
【例7】逆序输出由字母数字组成的字符串. 要求：由文本框1接收用户输入的任一字符串文本
框2中显示倒置字符串。
【例8】 设计程序输出Fibonacci数列的前20项
这是一个有趣的古典数学问题：有一对兔子，
从出生后第3个月起每个月都生一对兔子。小兔 子长到第3个月后每个月又生一对兔子。假设所 有兔子都不死，问前20个月的兔子总数分别为 多少---每行输出9个数？
End Sub
Private Sub Command1_Click() Dim StrN As String, Str1 As String, Str2 As String Dim i As Integer Str1 = "AaBbCc" For i = Len(Str1) To 1 Step –2 Str2 = Mid(Str1, i - 1, 2) StrN = StrN & Str2 Print StrN Next i
FOR k=1 TO 3 SELECT CASE k CASE 1 a=3 CASE 2 a=2 CASE 3 a=1 END SELECT PRINT a;
NEXT k PRINT k
编程题(忌记录代码,应跟着思考)
【例1】输出所有的水仙花数。要求按以 下格式将结果显示在列表框中：
【例2】 用FOR循环求1+2+3+…+100
For v=e1 To e2 [Step e3 ] …… [Exit For] …… Next v
v是循环控制变量,整型或单精度型; e1 e2 e3是控制循环的参数.e1为初值,e2为终值,e3为步 长.当e3为1时,step e3部分可以省略. For语句和Next语句之间的诸语句称为循环体.
计算初值、终值及步长
4.4 循环结构程序设计
循环控制语句是基本流程控制语句之一。 VB提供三种不同风格的循环语句：
4.4.1 For…Next循环
4.4.2 While…Wend循环
4.4.3 Do…Loop循环
4.4.4 循环的嵌套
4.4.1 For-Next循环结构
通常用于事先已知循环次数,可使用For-Next循环结构 形式如下:
读 程 序 时 注 意:
• 循环变量的变化
• 循环体语句的执行次数
• 终止循环时循环变量的值
• 结果的显示输出
Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i=i+3 n=n+1 If i > 10 Then Exit for Next Text1.Text = Str(n)
②将m作为被除数，只需被2到m的开方 间整数除即可。
算法可以表示如下：
S1：输入m的值
S2：i=2（i作为除数）
S3：m被i除，得余数r
S4：若r=0,表示m能被i整除,不
需要再除下去,结束循环,转到S7;否则执行S5
S5：i=i+1
9
S6：若i≤sqrt(m)，返回S3；
S7：若i>sqrt(m),则打印 n “是素数”,否则打 印n “不是素数”。
For k=a to b step c
循环变量赋初值
c=3
print k Next k
循环变量超过终值 T F
执行循环体
变量=变量&#将表达式的最后结果转换为 循环变量的类型，再执行循环。
单精度实数赋给整型变量---四舍五入 Dim x as integer For x=1.6 to 7.4 step 2.8 print x Next x
End Sub
Private Sub Form_Click() Dim p As Integer, i As Integer p=1 For i = 1 To 5 p=p+2/i Print p If p >= 5 Then Exit For Next i Print i; p
End Sub
请大家自己读程序并验证结果是否正确.
（1）在文本框1中输入整数n；在文本框2 中以一个因子占一行的格式输出所有因子。
（2）使用InputBox输入n，在列表框中显 示所有因子。
重点:在文本框中换行应如何实现?
【例5】编写程序，随机生成100个两位整数，并 统计出小于等于40、大于40小于等于70及大于70 的数据个数。
【例6】编写程序，随机生成100个两位正整数，将 其中的偶数与奇数分别以5个一行的形式输出到两个 图片框中。
【例3】猴子吃桃问题。猴子第一天摘下若 干个桃子，当即吃了一半，还不过瘾，又多
吃了一个。第二天早上又将剩下的桃子吃掉
一半，又多吃了一个。以后每天早上都吃了 前一天剩下的一半零一个。到第10天早上想 再吃时，就只剩一个桃子了。求第一天共摘 了多少桃子。
【例4】编定程序计算一个给定的数的所有 因子并在当前窗体上输出所有因子和。因子 指能够被这个数整除的数。（包含1和该数 本身）。要求完成以下两小题：
循环变量赋初值
循环变量超过终值 T F
执行循环体 变量=变量+步长
For i=1 to 10 step 2 print i;
Next i print "i="; i
循环次数：?次 退出循环后循环变量值？
For i=9 to 1 step -2 print i;
Next i print "i="; i
这个数列有如下特点：第1，2两个数为1，1。
从第3个数开始，该数是其前面两个数之和。即:
f1=1
(n=1)
f2=1
(n=2)
fn=fn-1+fn-2 (n≥3)
第二次循环课
【例9】给定正整数m，判定其是否为素数。
素数： 除了1和该数本身之外，不能被其他任何整数
整除的数。 方法：
①将m作为被除数，将2到(m-1)各个整 数轮流作为除数，如果都不能被整除， 则m为素数。