Visual_Basic语言程序设计教程 教学课件 作者 周冰 邓娟 刘芳 第6章循环结构.pptVIP

第6章 循环结构 本章学习要点 掌握DO循环结构 掌握For循环控制结构 循环的嵌套 常用算法 6.1 循环结构的概念 例6.1单击窗体，要求在窗体上显示6行星号 分析： 要求显示的信息是每行由16个星号所构成的字符串，所以可以通过连续6次调用窗体的Print方法实现图形的显示 Private Sub Form_Click() Print **************** Print **************** Print **************** Print **************** Print **************** Print **************** End Sub 6.2 循环结构的类型及循环的三要素 所谓循环结构，表示在执行语句时，需要对其中的某个或某部分语句重复执行多次。对于此类情况可以利用各种循环结构来实现。 循环结构可以分为For循环、 Do 循环和While循环语句结构。 6.2 循环结构的类型及循环的三要素 一般而言，构成任何一种类型的循环都必须具备如下三个要素： （1）赋初值：对循环变量赋的初值； （2）修改变量：修改循环变量的值； （3）循环结束语句：根据某一条件判断循环是否结束。 当且仅当循环控制部分所规定的循环次数是有限次时，才能使得计算机正常地执行某一循环，实现循环功能。 6.3 Do 循环 Do 循环可以分为前测型循环和后测型循环两种结构。 前测型循环结构 语法格式： 6.3 Do 循环 Do 循环可以分为前测型循环和后测型循环两种结构。 后测型循环结构 语法格式： 6.3 Do 循环 单击窗体，要求在窗体上显示6行星号 前测型当型循环： 将上面的代码改为前测型直到型循环、后测型当型循环和后测型直到型循环。 6.3 Do 循环 例6.2 采用欧几里德算法求解两个自然数m、n的最大公约数 算法分析： “欧几里德算法” ①输入两个自然数m、n ②求m除以n的余数r ③m←n ④n←r ⑤若r≠0，则重复执行②③④(循环)，否则转⑥ ⑥输出m和n的最大公约数m 6.3 Do 循环 设计采用欧几里德算法求解两个自然数的最大公约数的程序 界面设计： 利用文本框来接收数据和显示结果，利用命令按钮的单击事件完成最大公约数的计算。 6.3 Do循环 例6.2 用前测型Do…Loop循环控制结构编程，求两个正整数m和n的最大公约数。 6.3 Do循环 例6.4 求S=1+(1+2)+ …+(1+2+3+…+100)的值。 6.3 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. 运行下列程序，单击窗体，则执行结果是（）