my第4章 VB基本控制结构3.pptVIP

Visual Basic基本控制结构第3讲 —— 循环结构 本章重点 掌握DO循环结构 掌握For循环控制结构 循环的嵌套 常用算法 概述 单击窗体，要求在窗体上显示6行星号 分析： 要求显示的信息是每行是由16个星号所构成的字符串，所以可以通过连续6次调用窗体的Print方法实现图形的显示 Private Sub Form_Click() Print **************** Print **************** Print **************** Print **************** Print **************** Print **************** End Sub 概述 所谓循环结构，表示在执行语句时，需要对其中的某个或某部分语句重复执行多次。对于此类情况可以利用各种循环结构来实现。 循环结构可以分为For循环、 Do 循环和While循环语句结构。 Do 循环 Do 循环可以分为前测型循环和后测型循环两种结构。 前测型循环结构 语法格式： Do 循环 Do 循环可以分为前测型循环和后测型循环两种结构。 后测型循环结构 语法格式： Do 循环 单击窗体，要求在窗体上显示6行星号 前测型当型循环： 将上面的代码改为前测型直到型循环、后测型当型循环和后测型直到型循环。 Do循环 例:求S=1+(1+2)+ …+(1+2+3+…+100)的值。 While循环 语法格式： While 循环条件 循环体Wend 这种结构使用完全类似于Do-Loop的当型循环(格式1)，表示当循环条件为True时，反复执行循环体，直到循环条件为False为止。 思考练习题 求 S=1+2+…+100 的值。 核心程序段： s = 0 i = 1 while i = 100 s = s + i i = i + 1 wend print s 求1到100中偶数的和。 核心程序段： S = 0 I = 2 while I =100 S = S + I I = I + 2 wend print S Do 循环例题 设计采用欧几里德算法求解两个自然数的最大公约数的程序 算法分析： “欧几里德算法” ①输入两个自然数m、n ②求m除以n的余数r ③m←n ④n←r ⑤若r≠0，则重复执行②③④(循环)，否则转⑥ ⑥输出m和n的最大公约数m Do 循环例题 设计采用欧几里德算法求解两个自然数的最大公约数的程序 界面设计： 利用文本框来接收数据和显示结果，利用命令按钮的单击事件完成最大公约数的计算。 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