4任务4应用过程、数组、循环拓展功能.pptVIP

VB.NET程序设计 任务四 应用过程、数组、循环拓展功能 学习目标 1、掌握循环结构的使用 2、掌握数组定义和应用 3、掌握过程定义和调用 4、了解过程调用中的参数传递 循环语句 程序的另一种结构是循环结构 循环结构作用是重复执行一段程序 循环是有条件的、次数是有限的 VB的循环语句：For…Next、Do While…Loop For Each…Next 循环语句－For…Next循环 For…Next循环一般应用于循环次数已知的场合 For 循环变量 = 初值 To 终值 [Step 步长] 语句块（循环体） Next [循环变量] 工作原理 Step缺省为 1 循环语句－For…Next循环 [例] 求1+3+5+7+…+99 Dim Sum As Integer, I As Integer Sum = 0 保存累加和，先清零 For I = 1 To 99 Step 2 Sum = Sum + I Next I Msgbox(1+3+5+…+99= Sum) 本例的特点是数据项之间相差2， 即Step的值为2 思考： 例中当输出出现时，I 的值是多少？ 如果省略Step 2，程序的结果如何？ For语句能不能改写成For I=99 To 1 Step -2 ？ Msgbox()的作用？ 循环语句－For…Next循环 [例] 求斐波那契级数的前20项 Dim A, B, I, T As Integer A = 1 : B = 1 生成级数第一、二项 Debug.write (A “ ”) Debug.write (B “ ”) For I = 3 To 20 T = A + B 产生级数新的一项 A = B 让B成为下一组的A B = T 原来A+B的值成为下一组的B Debug.write (B “ ”) If I Mod 6 = 0 Then Debug.writeline(“”) Next I 每6个数一行 斐波那契级数： 第一、二项为1 第三项开始，每一项 的值是前两项值之和 循环语句－Do…Loop循环 1. 当型循环 Do While 条件表达式 循环体 Loop Do 循环体 Loop While 条件表达式 先判断后执行 先执行后判断 特点：条件表达式成立执行循环体内容 循环语句－Do…Loop循环 [例] Sum=1+2+3+…+N 求Sum不超过10000的最大整数值和数据项数N Dim Sum, N As Integer N = 0 开始时项数为0 Sum = 0 保存累加值的变量Sum清零 Do While Sum = 10000 N = N + 1 Sum = Sum + N Loop Sum = Sum - N N = N - 1 Msgbox( Sum=“ Sum “N=“ N) 当Sum的值超出10000时循环才终止。因此Sum值要减去多加的一个N；而在循环过程中，N也被多加了一个1，需要减去。 循环语句－Do…Loop循环 2. 直到型循环 Do Until 条件表达式 循环体 Loop Do 循环体 Loop Until 条件表达式 特点：条件表达式不成立执行循环体内容 循环语句－Do…Loop循环 [例] Sum=1+2+3+…+N 求Sum不超过10000的最大整数值和数据项数N Dim Sum, N As Integer N = 0 开始时项数为0 Sum = 0 保存累加值的变量Sum清零 Do While Sum = 10000 N = N + 1 Sum = Sum + N Loop Sum = Sum - N N = N - 1 Msgbox( Sum=“ Sum “N=“ N) 当Sum的值超出10000时循环才终止。因此Sum值要减去多加的一个N；而在循环过程中，N也被多加了一个1，需要减去。 实训 求：1+2+3+…+100的值 循环语句－两重循环 [例] 输出乘法口诀表 Dim I As Integer, J As Integer,