《VB循环结构程序设计课件》由会员分享，可在线阅读，更多相关《VB循环结构程序设计课件（20页珍藏版）》请在金锄头文库上搜索。
1、3.3 循环语句,程序的另一种结构是循环结构 循环结构作用是重复执行一段程序 循环是有条件的、次数是有限的 VB的循环语句：ForNext、Do WhileLoop For EachNext、WhileWend 应用最多的：ForNext与Do WhileLoop,返回目录,3.4 循环语句ForNext循环,ForNext循环一般应用于循环次数已知的场合 For = 初值 To 终值 Step 步长 语句块（循环体） Next 循环变量 工作原理,返回目录,Step缺省为 1,3.4 循环语句ForNext循环,例3.9 求1+3+5+7+99 Private Sub Form_Click(
2、) 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, N=; N End Sub,返回目录,当Sum的值超出10000时循环才终止。因此Sum值要减去多加的一个N；而在循环过程中，N也被多加了一个1，需要减去。,3.5 循环语句DoLoop循环,2. 直到型循环,返回目录,特点：条件表达式不成立执行循环体内容,3.5 循环语句DoLoop循环,例3.14计算平均分(要求同例4.12) Private Sub Fo
3、rm_Click() Dim Data As Integer, Sum As Integer, N As Integer Sum = 0 : N = 0 Data = InputBox(输入成绩, 计算总分) Do Until Data = -1 Sum = Sum + Data N = N + 1 Data = InputBox(“输入成绩, 计算总分) Loop Print 全班平均分为:; Sum / N End Sub,返回目录,Do While Data -1 Sum = Sum + Data N = N + 1 Data = InputBox(“输入成绩, 计算总分) Loop,3
4、.6 循环语句两重循环,两重循环：在一个循环的循环体中还包含另一个循环 例3.15 在窗体上显示一个几何图形 Private Sub Form_Click() Dim I, J As Integer I、J为循环变量 For I = 1 To 8 I 控制行数(8行) Print Tab(10 - I); 定每行*的起始位 For J = 1 To I J 控制每行输出I个* Print *; Next J Print 换行 Next I End Sub,返回目录,注意：两重循环不能形成交叉,3.6 循环语句两重循环,例3.16 输出乘法口诀表 Private Sub Form_Click()
5、 Dim I As Integer, J As Integer, M As Integer For I = 1 To 9 For J = 1 To I M = I * J Print J Next J Print 打印换行 Next I End Sub,返回目录,3.6 循环语句两重循环,例3.17 计算 Private Sub Form_Click() Dim I As Integer, J As Integer Dim F As Long 阶乘值用长整型保存 Dim e As Double For I = 0 To 10 F = 1 每个阶乘值先置1以便累乘 For J = 1 To I
6、F = F * J Next J e = e + 1 / F Next I Print e=; e End Sub,返回目录,本循环计算F= I!,3.6 循环语句多重循环,多重循环：循环次数在两重以上的循环结构 例3.19 计算将1角钱兑换成零钱有多少种方案 Private Sub Form_Click() Dim I, J, K, S As Integer S = 0 统计兑换1角钱的方案数 For I = 0 To 10 1分钱个数 For J = 0 To 10 Step 2 2分钱个数 For K = 0 To 10 Step 5 5分钱个数 If I + J + K = 10 Th
7、en S = S + 1 Next K Next J Next I MsgBox 1角钱兑换成零钱的方案有 Sum End Sub,返回目录,Goto语句不符合结构化程序设计的要求，所以不提倡使用。,程序调试程序的错误类型,语法错误 运行错误,返回目录,中文逗号,逻辑错误：算法不正确。显然系统不会报告这类出错信息。,程序调试简单调试,方法：在程序中适当插入Print语句跟踪变量值的变化,返回目录,程序调试使用调试工具,1. 断点调试 断点：程序执行到该此自动暂停 单击“继续”按钮 ，程序可继续执行。,返回目录,设置断点：在代码窗口中单击该语句左侧的阴影边框。 暂停时，将鼠标指针移动到程序中的各个变量上略作停留，系统将以浮动标签的方式显示该变量的值。,程序调试使用调试工具,2. 逐语句执行 启动逐语句执行：“调试逐语句” 或 按F8 终止逐语句执行： “调试跳出” 3. 使用立即窗口 程序运行处于暂停状态时， 在立即窗口中输入： Print 或 ? 4. 逐过程 启动逐过程执行：“调试逐过程”或 按Shift+F8 终止逐过程执行： “调试跳出”,返回目录,
