Visual Basic语言程序设计教程（第二版） -程胜利 第8章 循环.pptVIP

第8章 循环结构 本章的学习要点 掌握DO循环结构 掌握For循环控制结构 循环的嵌套 常用算法 概 述 单击窗体，要求在窗体上显示6行星号 分析： 要求显示的信息是每行是由16个星号所构成的字符串，所以可以通过连续6次调用窗体的Print方法实现图形的显示 Private Sub Form_Click() Print **************** Print **************** Print **************** Print **************** Print **************** Print **************** End Sub 概 述 所谓循环结构，表示在执行语句时，需要对其中的某个或某部分语句重复执行多次。对于此类情况可以利用各种循环结构来实现。 循环结构可以分为For循环、 Do 循环和While循环语句结构。 8.1 Do 循环 Do 循环可以分为前测型循环和后测型循环两种结构。 前测型循环结构 语法格式： 8.1 Do 循环 Do 循环可以分为前测型循环和后测型循环两种结构。 后测型循环结构 语法格式： 8.1 Do 循环 单击窗体，要求在窗体上显示6行星号 前测型当型循环： 将上面的代码改为前测型直到型循环、后测型当型循环和后测型直到型循环。 8.1 Do循环 例:求S=1+(1+2)+ …+(1+2+3+…+100)的值。 8.1 Do 循环 设计采用欧几里德算法求解两个自然数的最大公约数的程序 算法分析： “欧几里德算法” ①输入两个自然数m、n ②求m除以n的余数r ③m←n ④n←r ⑤若r≠0，则重复执行②③④(循环)，否则转⑥ ⑥输出m和n的最大公约数m 8.1 Do 循环 设计采用欧几里德算法求解两个自然数的最大公约数的程序 界面设计： 利用文本框来接收数据和显示结果，利用命令按钮的单击事件完成最大公约数的计算。 8.1 Do 循环 设计一个小程序，能够实现接收若干的专家的考评打分，输入-1表示打分结束，最后计算出平均考评分 界面设计 ： 由于要接收的数据无法预知其个数，所以不适合利用文本框来接收数据，所以采用输入函数InputBox，结合循环实现 利用窗体的单击事件完成最大公约数的计算，并在窗体上而显示结果 习 题 1. 依次在输入5、4、3、2、1、-1,输出结果是？ Private Sub Command_Click（） X=0 Do Until x = -1 a=Val(InputBox（“请输入A的值”）) b=Val(InputBox（“请输入B的值”）) x=Val(InputBox（“请输入X的值”）) a=a+b+x print a Loop End Sub 习 题 2. 依次在输入5、4、3、2、1、-1，输出结果为_______ Private Sub Command_Click（） X=0 Do Until x=-1 a=Val(InputBox（“请输入A的值”）) b=Val(InputBox（“请输入B的值”）) x=Val(InputBox（“请输入X的值”）) a=a+b+x Loop print a End Sub 习 题 3. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click（） s=0 Do s=(s+1)*(s+2) Number= Number+1 Loop Until s = 30 Print Number ；s End Sub A) 0 1 B) 30 30 C) 4 30 D) 3 182 习 题 4. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click（） b=1 a=2 Do While b 10 b=2*a+b Loop Print b End Sub A) 13 B) 17 C) 21 D) 33 习 题 5. 运行下列程序，单击窗体，则执行结果是 Private Sub Form_Click（） a = 100 Do