第四章控制结构程序设计课件.ppt

《第四章控制结构程序设计课件.ppt》由会员分享，可在线阅读，更多相关《第四章控制结构程序设计课件.ppt（164页珍藏版）》请在三一办公上搜索。

1、1,Visual Basic程序设计基础,谢谢观赏,2019-8-21,2,第四章 控制结构程序设计,4,选择控件 单分支条件语句 双分支条件语句 多分支条件语句 If语句嵌套,谢谢观赏,2019-8-21,3,关系运算符,各个关系运算符的优先级是相同的 关系运算符可以对数值、字符串、表达式进行比较关系运算的结果为逻辑值,谢谢观赏,2019-8-21,4,思考题,思考： x=6 当x=6时，结果为true 456=“456” 出错！类型不匹配Sqr(2) 2 = 2 False, Sqr(2) 是个近似数，有误差，所以不等,两个字符串进行比较：逐一比较每个字符的ASCII,只有两个字符串中所有

2、字符相同时，两字符串相等,谢谢观赏,2019-8-21,运算符的优先级,5,算术运算符字符串运算符关系运算符逻辑运算符,-(负号)*, /Mod+,-,&,无优先顺序,NotAndOrXor,由高到低,例：设a=4，b=3,c=2,d=1，表达式ab+1Or cd And b Mod c 的值 ？,谢谢观赏,2019-8-21,6,Contents,选择控件 单行结构条件语句 块结构条件语句 IIf函数 If语句的嵌套,谢谢观赏,2019-8-21,7,选择控件,谢谢观赏,2019-8-21,8,单选按钮 OptionButton,属性Caption : Option1、Option2Enab

3、ledValue 事件Click,表明从一组选项中选择一项，只能选中一项,谢谢观赏,2019-8-21,9,复选框CheckBox,属性Caption : Check1、Check2ValueAlignment事件Click,一组复选框，可以同时选中多个，也可以一个都不选,谢谢观赏,2019-8-21,10,框架控件Frame,框架用来对控件进行分组，即把指定的控件放到框架中,Caption : Frame1、Frame2Enable: False时，框架中所有对象均被屏蔽,谢谢观赏,2019-8-21,11,单行结构条件语句,谢谢观赏,2019-8-21,12,单行结构条件语句,If xy

4、Then t = x: x = y: y = t,谢谢观赏,2019-8-21,13,块结构条件语句,单分支和双分支选择的块形式,If Then End If,If Then Else End If,谢谢观赏,2019-8-21,14,y =,tan(x+1) + 3x2 (x = 0),sin x - x3 + x (x 0),If x=0 Then y =tan(x+1) + 3 * x2Else y = sin(x) x3 + xEnd If,计算分段函数,条件语句,谢谢观赏,2019-8-21,条件语句,a=3b=2if ab then msgbox “a大于b”Else msgbox

5、 “a小于b”End if,15,谢谢观赏,2019-8-21,条件语句,a=3b=2c=1if ab and ac then msgbox “a最大”End if,16,16,谢谢观赏,2019-8-21,条件语句,a=3b=2c=1if ab and ac then msgbox “a最大”Else msgbox “a不是最大”End if,17,17,谢谢观赏,2019-8-21,18,块结构条件语句,If a100 then print “a大于100”Elseif a50 then print “a大于50，小于100”Elseif a10 then print “a大于10，小于5

6、0”Else print “a小于等于10”End if,谢谢观赏,2019-8-21,条件语句,判断一个字符是大写字母、小写字母或者不是字母,19,谢谢观赏,2019-8-21,条件语句,Dim str as stringstr=“C”If str=“A”and str=“a”and str=“z”then msgbox “str是小写字母”Else msgbox “str不是字母”endif,20,谢谢观赏,2019-8-21,21,If Ucase(strC) = A And Ucase(strC) =0 And strC = 9 ThenPrint strC + 是数字字符ElsePr

7、int strC + 是其它字符End If,条件语句,已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其它字符，并作相应的显示,谢谢观赏,2019-8-21,22,程序的基本组成,程序设计的一般步骤：分析：问题定义设计：设计解题步骤算法选择与创建界面编码：用程序设计语言描述写程序测试与调度：改错完成文档：整理和组织描述程序的所有资料,谢谢观赏,2019-8-21,23,输入两个数，输出较大的数。,编写代码：Private Sub Command1_Click() Dim max As Single Dim min As Single max = Val(Text1.Tex

8、t) min = Val(Text2.Text) If max min Then max = min End If Label3.Caption = 较大值为 & maxEnd Sub,If语句,谢谢观赏,2019-8-21,24,编写一个程序，实现当用户输入的用户名和口令都正确时显示欢迎登录的消息对话框，当用户名或口令有错误时显示消息对话框报告错误。（假设用户名为SYL ，密码为“123456”）,If语句,谢谢观赏,2019-8-21,25,If语句,编写一个程序，实现当用户输入的用户名和口令都正确时显示欢迎登录的消息对话框，当用户名或口令有错误时显示消息对话框报告错误。,编写代码：Pri

9、vate Sub Command1_Click() Dim user As String Dim psw As String user = Text1.Text psw = Text2.TextEnd Sub,If user =SYL And psw = 123456 Then MsgBox (欢迎您登录本系统！) Else MsgBox (您的用户名或口令有误，请重新输入！) End If,谢谢观赏,2019-8-21,26,If语句,判断某一年是否是闰年。闰年的条件是符合下面二者之一：能被4整除，但不能被100整除; 能被400整除一回归年=365.24219天,谢谢观赏,2019-8-2

10、1,实验,输入一年份，判断它是否为闰年判断标准：年份能被4整除，但不能被100整除，或者能被400整除,27,谢谢观赏,2019-8-21,实验,任意输入三个数，求三个数种最大数和最小数,28,谢谢观赏,2019-8-21,29,IIf( )函数,变量=IIf( 表达式, 当条件为真的值, 当条件为假的值 )Dim intX%, intY%, intMax%intX= 15intY = 10intMax = IIf( intX intY, intX , intY)Print intMax,If intX intY Then intMax = intXElse intMax = intYEnd

11、If,谢谢观赏,2019-8-21,30,IIf( )函数,If user =SYL And psw = 123456 Then MsgBox (正确！) Else MsgBox (错误！) End If,MsgBox IIf(user = SYL And psw = 123456, 正确！, 错误！),IIf(user = SYL And psw = 123456, MsgBox(正确！),MsgBox(错误！),IIf(条件, 表达式1, 表达式2),谢谢观赏,2019-8-21,31,编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。判断标准如下,If语

12、句,谢谢观赏,2019-8-21,32,编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。,If语句,谢谢观赏,2019-8-21,33,编写代码：Private Sub Command1_Click() Dim score As Single Dim s As String score = Val(Text1.Text) End Sub,T,If score 60 Then s = 不及格 ElseIf score 70 Then s = 及格 ElseIf score 80 Then s = 中等 ElseIf score 90 Then s = 良好 E

13、lse s = 优 End If Text2.Text = s,If语句,谢谢观赏,2019-8-21,34,学校对学习成绩优良的同学给予奖励，只要满足以下条件之一就可以获得奖励：,所考语文、数学和英语总分在285以上；每门课的成绩都在90分以上；语文和数学的成绩为100分，英语在80分以上。,界面设计：,If语句,谢谢观赏,2019-8-21,35,学校对学习成绩优良的同学给予奖励。,编写代码：Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(Text1.Text):b = Val(T

14、ext2.Text):c = Val(Text3.Text) If a + b + c = 285 Then Label4.Caption = 可以获奖！ ElseIf a = 90 And b = 90 And c = 90 Then Label4.Caption = 可以获奖！ ElseIf a = 100 And b = 100 And c = 80 Then Label4.Caption = 可以获奖！ Else Label4.Caption = 不可获奖！ End IfEnd Sub,T,能改成下面的代码吗？ If a + b + c = 285 or a = 90 And b =

15、90 And c = 90 or _ a = 100 And b = 100 And c = 80 Then Label4.Caption = 不可获奖！ End If,If语句,谢谢观赏,2019-8-21,36,IF语句的嵌套,If a100 thenIf b100 thenPrint “a,b均大于100”endifEndif,谢谢观赏,2019-8-21,实验,任意输入三个边长，判断是否能构成三角形，若能构成三角形，则判断该三角形是等边、等腰还是一般三角形,37,谢谢观赏,2019-8-21,38,例题,【例】征兵条件：男性1820岁，1.65米以上；女性1618岁，1.60米以上，要

16、求：从键盘输入一个人信息，判断是否符号条件,谢谢观赏,2019-8-21,39,IF语句的嵌套,比较x,y,z的大小，并进行调整，使得xyz效果： X Y Z X Y if(x Y Z,谢谢观赏,2019-8-21,40,IF语句的嵌套,比较x,y,z的大小，并进行调整使得xyzIf x y Thent = x: x = y: y = t EndIf If yz Then t = y: y = z: z = tIf x y Then t = x: x = y: y = tEnd IfEnd If,谢谢观赏,2019-8-21,41,编写一个程序，让用户输入三个数并判断该三个数能否组成一个直角三

17、角形。,If语句,谢谢观赏,2019-8-21,42,编写一个程序，让用户输入三个数判并断该三个数能否组成一个直角三角形。,T,If语句,谢谢观赏,2019-8-21,43,小结,单行结构： If Then 块结构： If Then End If,谢谢观赏,2019-8-21,44,双分支条件语句,块结构： If Then Else End If单行结构：If Then Else ,谢谢观赏,2019-8-21,45,多分支条件语句块IF语句,谢谢观赏,2019-8-21,46,If嵌套,If Then If Then If Then End If End If End If,谢谢观赏,201

18、9-8-21,47,第四章 控制结构程序设计,4,谢谢观赏,2019-8-21,48,多分支结构程序设计Select Case,Select Case 变量或表达式Case 条件1Case 条件2Case ElseEnd Select,谢谢观赏,2019-8-21,多分支结构程序设计Select Case,select case acase 1 msgbox “a等于1”case 2 msgbox “a等于2”case else msgbox “a不等于1也不等于2”end select,49,谢谢观赏,2019-8-21,50,多分支结构程序设计Select Case,测试表达式可以是数学表

19、达式、字符串表达式、逻辑表达式或混合表达式。Case子句后的表达式列表可是以下几种格式：表达式1，表达式2，表达式n表达式1 to 表达式2Is 表达式还可以是上述三种格式的结合,Case 2,4,6,8, VB ，程序设计,Case 60 to 100,Case is60,Case is=60 and is=100（错误）,Case 2，4，6，8，10 to 15, is100,谢谢观赏,2019-8-21,多分支结构程序设计Select Case,select case acase 1, 2, 3, 4, 5 msgbox “a大于1，小于5”case 6 to 10 msgbox “a

20、大于1，a小于10”case is10 msgbox “a大于10”case else msgbox “a小于1”end select,51,谢谢观赏,2019-8-21,52,多分支结构程序设计Select Case,当表达式结果与多个Case表达式列表的值匹配时，则只执行第一个匹配的Case语句对应的语句块Case Else子句必须放在全部Case子句语句后面。当表达式的值与前面所有Case语句均不匹配时，才执行Case Else子句部分，这个子句可以省略,谢谢观赏,2019-8-21,多分支结构程序设计Select Case,select case acase is10 msgbox “

21、a大于10”case is20 msgbox “a大于20”case is30 msgbox “a大于30”end select,53,谢谢观赏,2019-8-21,54,真题,以下Case语句中错误的是_。（A）Case 0 To 10 （B）Case Is10（C）Case Is10 And Is10,C,注意：1、Select Case后不能跟多个变量2、不能在条件中出现变量3、不能在条件中出现逻辑表达形式但下面这种情况可以使用Case option1.Value True And Option2.value= True 这里其实是一个表达式的值，属于简单常量形式,谢谢观赏,2019-8

22、-21,55,Select Case a, b, cCase a100MsgBox 输入数据错误Case b100MsgBox “输入数据错误 Case c100MsgBox “输入数据错误 Else Text4.Text = a+b+cEnd Select,注意,谢谢观赏,2019-8-21,56,例子,Select Case Season case 冬季 Total_Price = Price * (1 - 0.15) * num case 春季 , 秋季 Total_Price = Price * (1 - 0.08) * num case else Total_Price = Pric

23、e* numEnd Select,空调机基本单价为2500元。购买空调机的价格随季节而异。冬季购买，优惠15，春、秋季购买，优惠8，夏季购买，不优惠。计算出顾客随季节购买空调机的总价。,思考：用IF块结构如何实现？,谢谢观赏,2019-8-21,57,邮局向国外寄包裹的收费计算如下：当包裹重量不超过15克时收费5元；当包裹重量为15克至30克时收费9元；当包裹重量为30至45克时收费12元；当包裹重量为45克至60克时收费14元；当包裹重量为60克至75克时收费16元；当包裹重量超过75克时收费20元。请编写一个程序根据包裹重量计算邮费。,分析： 本题根据包裹的重量来计算包裹的邮寄费。一个输入

24、量为包裹重量，一个输出量为邮寄费。所以用一个文本框接收输入量，一个文本框作为输出，一个按钮实现“计算”功能，一个按钮实现“退出”功能。,Select Case语句,谢谢观赏,2019-8-21,58,编写代码：Private Sub Command1_Click( ) Dim a as Single, b as Integer a = Val(Text1.text) Select Case a Case Is = 15 b = 5 Case Is = 30 b = 9 Case 30 to 45 b = 12 Case 45 to 60 b = 14,Case 60 to 75 b = 16

25、Case Else b = 20End SelectText2.text = bEnd Sub,Select Case语句,谢谢观赏,2019-8-21,59,编写代码：IF语句实现Private Sub Command1_Click()Dim a As Single, b As Integera = Val(Text1.Text)If a = 15 Then b = 5ElseIf a = 30 Then b = 9ElseIf a = 45 Then b = 12ElseIf a = 60 Then b = 14ElseIf a = 75 Then b = 16,Else b = 20En

26、d IfText2.Text = bEnd Sub,Select Case语句,谢谢观赏,2019-8-21,60,航空公司规定在旅游的旺季79月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季15月份、10月份、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%；其他情况一律优惠10%。设计程序，根据月份和订票张数来计算总的订票金额，假设每张飞机票单价为600元。,Select Case语句,谢谢观赏,2019-8-21,61,Select Case Combo1.ListIndex Case 6 To 8 If num 20 Then rat

27、e = 0.95 Else rate = 0.85 End If Case 9, 10, 0 To 4 If num 20 Then rate = 0.8 Else rate = 0.7 End If Case Else rate = 0.9End Select,Select Case语句,谢谢观赏,2019-8-21,62,输入方程的三个系数A、B和C，求方程Ax2+Bx+C=0的解,Select Case语句,谢谢观赏,2019-8-21,63,Select Case语句,编写代码：Private Sub Command1_Click ( ) Dim a As Single, b As S

28、ingle, c As SingleEnd Sub,If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And _ IsNumeric(Text3.Text) Then a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then Label4.Caption = 一次方程只有1个实根 Label5.Caption = x1= & -c / b Else Select Case b 2 - 4 * a * c Case Is 0 Label4.Caption

29、= x1= & (-b + Sqr(b 2 - 4 * a * c) / (2 * a) Label5.Caption = x2= & (-b - Sqr(b 2 - 4 * a * c) / (2 * a) Case Is = 0 Label4.Caption = 二次方程有2个实根 Label5.Caption = x1、x2= & -b / (2 * a) Case Is 0 Label4.Caption = 二次方程没有实根 End Select End If Else MsgBox (你输入的数据无效，请重新输入！) End If,谢谢观赏,2019-8-21,64,第四章 控制结构

30、程序设计,4,For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环,谢谢观赏,2019-8-21,65,(1)“当型循环”,循环类别,(2)“直到型循环”,谢谢观赏,2019-8-21,66,For-Next计数型循环【重点】,格式For 循环变量 = 初值 To 终值 step 步长 循环语句块 Next 循环变量功能根据指定的循环次数执行循环体,For i = 1 To 2 step 1Print iNext i,谢谢观赏,2019-8-21,67,For i = 1 To 2 step 1Print iNext i,For-N

31、ext计数型循环【重点】,谢谢观赏,2019-8-21,68,Print i,For-Next计数型循环【重点】,For i = 1 To 2 step 1Print iNext i,谢谢观赏,2019-8-21,69,Print i,i = i + 步长,For-Next计数型循环【重点】,For i = 1 To 2 step 1Print iNext i,谢谢观赏,2019-8-21,70,Print i,True,i = i + 步长,For-Next计数型循环【重点】,For i = 1 To 2 step 1Print iNext i,谢谢观赏,2019-8-21,71,For i

32、 = 1 To 2 step 1 Print iNext i,Print i,True,i = i + 步长,退出循环,执行过程：(1)设置循环变量等于初值。(2)判断循环变量是否大于(步长为负时小于)终止值，如果是则退出循环，否则继续。(3)执行语句块。(4)循环变量加上步长值。(5)重复步骤(2)到(4)。,For-Next计数型循环【重点】,谢谢观赏,2019-8-21,72,说明循环变量：初值、终值和步长均是数值表达式循环次数： 步长： 为正，初值应小于等于终值； 为负，初值大于等于终值； 省略默认为1； 不允许为0。关键字Next为循环正常结束的终端语句，Next语句中的循环变量必须

33、与For语句中的循环变量一致。循环体内可以利用Exit For语句可提前结束循环。,For-Next计数型循环【重点】,For 循环变量 = 初值 To 终值 step 步长循环语句块Next 循环变量,当循环变量不在循环体内改变时,谢谢观赏,2019-8-21,For 循环,For i=0 to 10 step 2 print iNext i,73,谢谢观赏,2019-8-21,For 循环,For i=0 to 10 step 1 print iNext iFor i=0 to 10 step 2 print iNext i,74,谢谢观赏,2019-8-21,For 循环,For i=1

34、0 to 0 step -1 print iNext iFor i=10 to 0 step -2 print iNext i,75,谢谢观赏,2019-8-21,For 循环,For i=10 to 0 step 1 print iNext iFor i=10 to 0 step 2 print iNext I,76,谢谢观赏,2019-8-21,For 循环,For i=0 to 10 step 1 print ii=i+1Next iFor i=0 to 10 step 2 print i i=i-2Next i,77,谢谢观赏,2019-8-21,For 循环,输出从50到100的偶数

35、？For i=50 to 100 step 2 print iNext iFor i=0 to 50 step 2 print i+50Next i,78,谢谢观赏,2019-8-21,79,Private Sub Command1_Click() Dim i%, x% x=2 For i=1 To 10 Step 2 x=x+i Next i Print x=; x, i=; iEnd Sub,判断下面程序段运行后，输出的结果为,课堂练习2,谢谢观赏,2019-8-21,1. Private Sub Form_Click() For i=7 to 90 step 5 print i Next

36、 i End Sub上述程序共执行执行循环体的次数是（） A) 14 B) 15 C) 16 D) 17,习题,80,谢谢观赏,2019-8-21,2. 在窗体上放置一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=5 For i = 1 to 20 Step 2 x = x + i 5 Next i Print x End Sub程序运行后，单击命令按钮，输出结果为（）A） 21 B）22 C）23 D）24,习题,81,谢谢观赏,2019-8-21,3. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click

37、( ) E = 1 : F = 1 For j = 1 To 3 E = E + F F = F+ E Next j Print E;F End Sub A) 6 6 B) 5 8 C) 13 21 D) 34 55,习题,82,谢谢观赏,2019-8-21,4. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click( ) For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub A) 1 B) 15 C) 90 D) 120,习题,83,谢谢观赏,2019-8-21,5. 运行下列程序，单击窗体，则执行结果

38、是（） Private Sub Form_Click( ) For j = 1 To 3 Print Tab(3 * j);(2 * j - 1) * (2 * j - 1) Next j End Sub A) B) C) D),;,?若print语句后有分号，将如何输出,有分号的输出结果,习题,84,谢谢观赏,2019-8-21,6. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click( ) For j = 1 To 10 a = a + j 3 + j Mod 3 Next j Print a End Sub A) 20 B) 25 C) 30 D) 3

39、5,习题,85,谢谢观赏,2019-8-21,86,求从1到100的和。,Sum=0For i = 1 To 100 Step 1 Sum=Sum+iNext iPrint Sum,Sum=0For i = 0 To 100 Step 2 Sum=Sum+iNext iPrint Sum,求0到100的所有偶数之和,典型例题1累加,谢谢观赏,2019-8-21,87,求100的阶乘。,For i = 1 To 100 Step 1 Result = Result * iNext i,Result = 1,Form1.Print Result,典型例题2阶乘,谢谢观赏,2019-8-21,88,

40、Sum = Sum + Result,计算1+2!+3!+n!的值,n = Val(InputBox(输入一个自然数) Result = 1 : Sum = 0 For i = 1 To n Result = Result * i Next i msgbox 1+2!+3!+n!=“ & Sum,课堂练习1,谢谢观赏,2019-8-21,89,第四章 控制结构程序设计,4,For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环,谢谢观赏,2019-8-21,90,生活中的循环,Example 1重复两次将洗发水抹在头发上搓洗出泡沫清洗

41、,Example 2在杯子里倒半斤牛奶向杯子里加2汤匙巧克力汁搅拌重复进行搅拌，直到牛奶和巧克力汁充分混合,For-Next循环来实现,知道循环次数,Do-Loop循环和While-Wend循环,谢谢观赏,2019-8-21,常用算法,编写程序，输入X，求：结果精确到小数点后第6位,91,谢谢观赏,2019-8-21,92,While指明条件为真时执行循环体中的语句;,形式1先判断后执行，有可能一次也不执行,Do-Loop循环条件型【重点】,Until指明条件为假时执行循环体中的语句。,形式：DO while|Until loop,谢谢观赏,2019-8-21,Do-Loop循环条件型【重点】

42、,i=0do while i10print iloopi=0do while i10print ii=i+1loop,93,谢谢观赏,2019-8-21,Do-Loop循环条件型【重点】,i=0do until i10print ii=i+1loop,94,谢谢观赏,2019-8-21,Do-Loop循环条件型【重点】,输出0100的所有偶数i=0do while i=100print ii=i+2loop,i=0do until i100print ii=i+2loop,95,谢谢观赏,2019-8-21,Do-Loop循环条件型【重点】,计算100以内奇数的和i=1sum=0do whil

43、e i=100sum=sum+ii=i+2loop,i=1sum=0do until i100sum=sum+ii=i+2loop,96,谢谢观赏,2019-8-21,97,形式2 先执行后判断，至少执行一次,Do-Loop循环条件型【重点】,形式：DO loop while|Until,谢谢观赏,2019-8-21,习 题,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(In

44、putBox（“请输入X的值”）) a=a+b+x print a Loop End Sub,输出两个结果，分别是12和2,98,谢谢观赏,2019-8-21,习 题,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,输出结果只有一个，2,99,谢谢观赏,2019-8-21,习题,3.

45、运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click（） s=0 Do s=(s+1)*(s+2) Number= Number+1 Loop Until s = 30 Print Number ；s End SubA) 0 1 B) 30 30 C) 4 30 D) 3 182,100,谢谢观赏,2019-8-21,习题,4. 运行下列程序，单击窗体，则执行结果是（） Private Sub Form_Click（） a=2 b=1 Do While b 10 b=2*a+b Loop Print b End Sub A) 13 B) 17 C) 21 D)

46、 33,101,谢谢观赏,2019-8-21,习题,5. 运行下列程序，单击窗体，则执行结果是 Private Sub Form_Click（） a = 100 Do s = s + a a = a + 1 Loop While a 111 Print a End Sub,结果:a=101,102,谢谢观赏,2019-8-21,习题,6.运行下列程序，单击窗体，则执行结果是_ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i 5) * 5 = i Then s = s + 1 i = i + 1 End If Loop Pri

47、nt s End Sub,结果:死循环,103,谢谢观赏,2019-8-21,习题,7. 运行下列程序，单击窗体，则执行结果是_ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i 5) * 5 = i Then s = s + 1 End If i = i + 1 Loop Print s End Sub,结果:s=20,104,谢谢观赏,2019-8-21,常用算法,编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+ 当第i项的值10-5时结束分析S=1/1+1/2+1/4+1/7+1/11+1/16

48、+1/22+ 当第i项的值10-5时结束,105,谢谢观赏,2019-8-21,常用算法,编写程序，输入X，求：,106,谢谢观赏,2019-8-21,107,population = 12.6583r = 0.0107 : n = 0Do While population 13 population = population * (1 + r) n = n + 1LoopPrint n, population,例题1-1,已知2000年我国的人口是12.6583亿，如果在以后每年平均增长1.07%，问多少年后我国的人口达到13亿?,谢谢观赏,2019-8-21,108,已知2000年我国的人

49、口是12.6583亿，如果在以后每年平均增长1.07%，问多少年后我国的人口达到13亿?,population = 12.6583r = 0.0107 : n = 0Do population = population * (1 + r) n = n + 1Loop While population 13Print n, population,例题1-2,谢谢观赏,2019-8-21,109,第四章 控制结构程序设计,4,For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环,谢谢观赏,2019-8-21,population = 1

50、2.6583r = 0.0107 : n = 0While population 13 population = population * (1 + r) n = n + 1WendPrint n, population,While-Wend循环-当型循环,110,格式：While 条件语句块Wend,谢谢观赏,2019-8-21,111,【例】从键盘输入若干学生的成绩，直到输入无效成绩终止，按成绩划分等级，统计学生总人数及各个等级的学生人数。成绩分为五类：90分100分为优秀、80分89分为良好、70分79分为中等、60分69分为及格、0分59分为不及格。,WhileWend,谢谢观赏,20