Visual Basic程序设计教程 教学课件 作者 郭琳 高世健 第三章 三种基本程序控制结构.pptVIP

例3-15 编程计算1！+2！+3！+…+10!。 程序如下： Private Sub Form_Click() Dim i As Integer Dim s As Long, t As Long t = 1? For i = 1 To 10 t = t * i s = s + t Next i Print 1!+2!+3!+…+10!= s End Sub * 例3-16 由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。最后给出总得分。程序代码如下： * 3.4.3 Do…Loop语句 Do…Loop语句通常用于循环次数未知，但循环条件容易给出的循环。Do…Loop语句实现的循环有两种，一种是当型循环，一种是直到型循环。 * 当型循环 Do While/Until…Loop语句 Do {While/Until}条件 循环体 Loop 直到型循环 Do…Loop While/Until语句 Do 循环体 Loop {While/Until}条件 当型循环流程图 * 直到型循环 * 例3-17爱因斯坦出了一道这样的数学题：有一条长阶梯，若每步跨2阶，则最后剩1阶；若每步跨3阶，则最后剩2阶；若每步跨5阶，最后剩4阶；若每步跨6阶则最后剩5阶。只有每步跨7阶，最后才正好一阶不剩。请问：这条阶梯共有多少阶？ * 程序如下： Private Sub Form_Click() Dim i As Integer i = 1 Do While Not ((i Mod 2 = 1) And (i Mod 3 = 2) And (i Mod 5 = 4) And (i Mod 6 = 5) And (i Mod 7 = 0)) i = i + 1 Loop Print 爱因斯坦数学题的答案是：阶梯数为 i End Sub * 例3-19猴子吃桃问题。猴子第一天摘下若干桃子，立刻吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半多一个。到第10天早上想再吃时，就只剩一个桃子了。求第一天共摘多少个桃子。 * 程序代码如下： Private Sub Form_Click() Dim day As Integer, x1 As Integer, x2 As Integer day = 10 ’从第10天开始 x2 = 1 Do While (day 1) ’循环进行到第一天结束，此时的x1即为第1天的桃子数 x1 = (x2 + 1) * 2 x2 = x1 day = day - 1 Loop Print 第一天摘得桃子数是：; x1 End Sub * 3.4.4 While…Wend语句 While…Wend语句的使用格式如下： While条件表达式 …… Wend * 3.4.5 循环的嵌套（多重循环） 在一个循环结构内，又包含了另一个完整的循环结构，这样的结构叫做循环嵌套。循环嵌套对于For…Next、Do …Loop以及While…Wend均适用。 * （1）For … … Do While… … Loop … Next （2）Do While… … For I=… … Next … Loop （3）While… … Do … Loop Until… … Wend 说明： （1）循环嵌套中，内层循环必须是完整地嵌套在外层循环中，不能出现交叉的情况。 （2）各种循环语句可以互相嵌套，自由组合。嵌套的层数亦无限制，但考虑算法执行的效率，循环嵌套层数不宜过多。以上三种形式嵌套层数为二层，亦可称为二重循环。 （3）以二重循环为例，循环嵌套执行的规律是：内层循环完整执行一遍，外层循环执行下一次循环（不包括使用Exit语句退出循环的情况）。 * 例3-21打印由“*”组成的5行5列的矩阵，如下所示： * * * * * * * * * * * * * * * * * * * * * * * * * * 程序代码如下。 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 5