《循环结构VB程序设计》由会员分享，可在线阅读，更多相关《循环结构VB程序设计（18页珍藏版）》请在装配图网上搜索。
1、3.3 循 环 结 构2. 条 件 型 循 环 DoLoop 用 于 在 一 定 的 条 件 下 多 次 重 复 执 行一 组 语 句 ,共 分 为 两 类 :1. 计 数 型 循 环 ForNext 3.3.1 For循 环 语 句 (一 般 用 于 循 环 次 数 已 知 )形 式 如 下 ：For 循 环 变 量 初 值 to 终 值 Step 步 长 语 句 块 Exit For 语 句 块Next 循 环 变 量循 环 变 量 :必 须 是 数 值 型语 句 块 :可 以 是 一 条 或 多 条 语 句 , 称 之 为 循 环 体 For 循 环 流 程 图有 Exit ForF T
2、T F循 环 变 量 得 到 初 值循 环 变 量 在 终 值 内语 句 块循 环 变 量 加 步 长 Exit for :当 遇 到 该 语 句 ,退 出 循 环 , 执 行 Next的 下 一 条 语 句步 长 0 初 值 终 值 =1 时 ,可 省 略终 值=0 死 循 环循 环 次 数 int（ （ 终 值 -初 值 ） /步 长 +1） 例 : For I=2 To 13 Step 3 Print I , Next I Print : Print “I=“; I结 果 ： 输 出 I的 值 分 别 为 : 2 5 8 11循 环 执 行 次 数 ： 4)1( 3 213 Int循 环
3、 结 束 输 出 为 : I=14 (初 值 +循 环 次 数 *步 长 )思 考 ： 若 初 值 和 终 值 颠 倒 ， 循 环 执 行 几 次 ？ 若 步 长 Step为 -3， 循 环 几 次 ？ 下 面 程 序 的 作 用 是 什 么 ？Private Sub Form_Load()Dim i As Integer, s As Integer Show 加载窗体时，显示数据s = 0For i = 2 To 100 Step 2 s = s + iNext iPrint s=; sEnd Sub 例 ： 求 自 然 数 1-30的 乘 积 (即 30的 阶 乘 )Private Sub
4、 Form_Click()s = 1For i = 1 To 10 s = s * i Print i; 的阶乘是：; sNext iEnd Sub 习题1、计算下列循环的次数 （1）For I= -3 To 20 Step 4 （2）For I= -3.5 To 5.5 Step 0.5 （3）For I= -3.5 To 5.5 Step -0.5 （4）For I= -3 To 20 Step 0 2119不循环无数次 2、要使下列For语句循环执行20次，循环变量的初值应当是： For k= _ To 5 Step -2 333、以下_是正确的ForNext结构。 A. For x =
5、 1 Next xC. For x=3 To 10 Step 3 Next y B. For x=3 To 3 Step 3 Next x B 3.3.2 DoLoop循 环 语 句 (用 于 控 制 循 环 次 数 未 知 )形 式 1： 形 式 2：Do While|Until 语句块 Exit Do 语句块Loop Do 语句块 Exit Do 语句块Loop While|Until Do While Loop 流 程 图 Do While Loop 流 程 图条 件语 句 块语 句 块T F 语 句 块语 句 块条 件T F有 Exit DoF T 有 Exit DoF T 注 意 ：
6、 1.形 式 1先 判 断 后 执 行 ， 有 可 能 一 次 也 不 执 行 ； 形 式 2先 执 行 后 判 断 ， 最 少 执 行 一 次 循 环 体 。 2.While用 于 指 明 条 件 为 真 时 执 行 循 环 体 ； Until刚 好 相 反 。 3.当 省 略 了 While|Until子 句 ， 表 示 无 条 件 循 环 ， 循 环 体 中 应 有 Exit Do语 句 ， 否 则 为 死 循 环 。 4.遇 到 Exit Do语 句 时 退 出 循 环 ， 执 行 Loop下 一 条 语 句 。 例 :我 国 有 13.2亿 人 口 ,按 出 生 率 为 0.5%的
7、增 长率 ,多 少 年 后 超 过 20亿Private Sub Form_Load()Dim m As DoubleDim yearr As IntegerShowm = 1320000000#: yearr = 0Do While m 200000000000# m = m + m * 0.0005 yearr = yearr + 1LoopPrint yearr; 年后我国的人口为：; mEnd Sub DoLoop循环解决算术运算 例3-13 DoLoop与 ForNext的 转 换 For I=1 to 10 I=1 Do Next I=I+1 Loop While In；(2) m
8、除 以 n得 余 数 r；(3)若 r=0， 则 n为 最 大 公 约 数 结 束 ； 否 则 执 行 (4)；(4)mn， nr， 再 重 复 执 行 (2)。思考题 m n r 14 6 2 6 2 0 求 m=14 ,n=6 的 最 大 公 约 数 。If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公约数=, n 2, 输入一个数，判断该数是否为素数。 素数只能被1和他本身整除的数（例：5，7，11）。Dim a As Integer , ii As Integera=Val ( InputBox(“请输入一个数”) )For ii =1 to a-1 Step 1 If a mod ii =0 Then Exit ForNext iiIf ii=a then Print a;“是素数” else Print a;”不是素数”用DoLoop 做呢？ 书P93
循环结构VB程序设计
