VB.Net教材For循环.ppt

华中农业大学理学院计算机系 Visual Basic.NET程序设计 华中农业大学理学院计算机系 华中农业大学理学院计算机系 循环结构： 根据条件决定某段代码是否重复执行 华中农业大学理学院计算机系 For 循环变量 ＝ 初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] 循环体 循环次数 = Int(( 终值 - 初值 ）/ 步长 + 1) 0 初值终值 (步长=1时，可省略) 0 初值终值 =0 死循环 步长 华中农业大学理学院计算机系 1. 简单例子 简单重复 For i = 1 to 10 Label1.Text = * Next i 输出循环变量值 For i = 1 to 10 Step 2 Label1.Text = i vbCrLf Next i 华中农业大学理学院计算机系 j = 0 For i = 1 To 20 Step 2 j = j + 1 Next i Label1.Text = 退出循环后i= i 注意：在循环体内不要轻易改变循环控制变量的值， 否则会影响原来的循环规律。 i = i + 3 华中农业大学理学院计算机系 3. 常用算法 累加：在原有和的基础上每次加一个数 S = 1 + 2 + 3 + … + 100 连乘：在原有积的基础上每次乘一个数 S = 100！ 华中农业大学理学院计算机系 【例】 Sum = 1 + 2 + 3 + … + 100 累加是通过累加性语句：sum = sum + i 实现的 sum = 0可否放在循环体内? 华中农业大学理学院计算机系 【例】 S = 100! 连乘是通过连乘性语句：s = s * i 实现的 s = 1可否放在循环体内? 华中农业大学理学院计算机系 一个好的程序，应该为存放累加、连乘等 的变量在循环体外赋初值。累加时置0，连乘时置1 Exit For语句 退出循环，执行Next后面的语句，一般与If合用 For i = 1 To 10 If i = 5 Then Exit For TextBox1.Text = i Next 华中农业大学理学院计算机系 【例】有一数列，前两项是1、1，第三项是前二项之和，以后每一项都是前二项之和。即为：1、1、2、3、5、8、13、21…。输出前30项 递推：（1）初始值：F1=1、F2=1 （2）递推关系：Fn=Fn-1+Fn-2（n2） F1和F2始终作为前两个数，F3作为新产生的数，利用循环不断用新值代替旧值。 递 推 法 华中农业大学理学院计算机系 Dim F1, F2, F3, i% F1 = 1: F2 = 1 Label1.Text = F1 F2 For i = 3 To 30 F3 = F1 + F2 Label1.Text = F3  F1 = F2 : F2 = F3 用新值代替旧值 Next If i Mod 4 = 0 Then Label1.Text = vbCrLf 每行4个 * * 华中农业大学理学院计算机系