Visual basic 第六章循环程序结构 主要内容 ° For Next语句 列表框 Do.Loop循环语句·组合框 万博科技职业学院
Visual Basic 第六章 循环程序结构 • For...Next 语句 • Do…Loop 循环语句 • 列表框 • 组合框 主要内容 万博科技职业学院
科,技照业学院 For…Next循环语句 格式: For<计数器><初值>to<终值>[step<步长>]出 <语句块 Next<计数器 例 注 计数器>必须是数值型变量 程序设计 步长可正可负,也可以带小数,缺省值为1 当计数器达到或超过终值时,终止循环。 可用 Exit For语句强行中止循环
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. For …Next 循环语句 • 格式: For <计数器>=<初值> to <终值> [step <步长>] <语句块> Next <计数器> • 注: – <计数器>必须是数值型变量 – 步长可正可负，也可以带小数，缺省值为1 – 当计数器达到或超过终值时，终止循环。 • 可用 Exit For 语句强行中止循环 例
科,技照业学院 For.Next循环的流程图 计数器=<初值 For<计数器>三<初值>to<终值>[step<步长习 保存终值和步长 <语句块> (For语句) Next<计数器> 计数超过终值? Yes No 如果在循环体中遇到 语句块(循环体)Ⅲ 程序设计 Exit For语句,则强行设 中止循环 计数器加上步长 (Nex语句) Next的下条语句
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. For…Next循环的流程图 计数超过终值？ 计数器加上步长 （Next语句） 语句块(循环体) No Yes Next的下条语句 如果在循环体中遇到 Exit For 语句，则强行 中止循环 计数器＝<初值> 保存终值和步长 （For语句） For <计数器>=<初值> to <终值> [step <步长>] <语句块> Next <计数器>
科,技照业学院 例1:求100以内所有奇数之和 计算:S=1+3+5+7+99 S用于保存累计值,初值为0 FOrK=1to100step2K-计数器,步长2 S=S+K K=1,3,5,,99 Next K 程序设计 K+2(步长),再执行循环语句设 直到K>=100(终值) Print“100以内所有奇数之和为“;S输出结果
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 例1：求100以内所有奇数之和 S=0 ‘ S用于保存累计值，初值为0 For K = 1 to 100 step 2 ‘K－计数器，步长2 S = S + K ‘K=1，3，5，…，99 Next K ‘K+2（步长），再执行循环语句 ‘直到K>=100（终值） Print “100以内所有奇数之和为“; S ‘输出结果 计算：S=1+3+5+7+……+99
科,技照业学院 例2:输出图案(P110,例6-7) Fori=1To5对1~5行 Print tab(5+i);跳到第5+i列 Print String(6-i,“★”),打印6-个★ 输出6个空格,i个▲ 程 序 Print Spc(6); String(1," 输出图案 再输出6个空格,6-个☆ ★★★★★ ★★★ Print Spc(6); String(6-1, "A") 急警 Next i 注意、Spc和Sg函数的用法区
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 例2：输出图案（P110,例6-7） For i = 1 To 5 ‘对1～5行 Print Tab(5 + i); ‘跳到第5＋i列 Print String(6 - i, “★”); ‘打印6-I个★ ‘输出6个空格，i个▲ Print Spc(6); String(i, “▲”); ‘再输出6个空格，6-i个☆ Print Spc(6); String(6 - i, "☆") Next i 注意Tab、Spc和String函数的用法