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

1、1关系运算与逻辑运算1选择结构程序设计24 选择控件 单分支条件语句 双分支条件语句 多分支条件语句 If语句嵌套感谢你的观看2019年8月232运算符含 义实 例结 果=等于大于大于等于小于小于等于不等于ABCDE=ABRABCDE ABRx-y+5=(x-3)*z 23 323=312 23FalseFalseFalseTrueTrue感谢你的观看2019年8月233两个字符串进行比较：逐一比较每个字符的ASCII,只有两个字符串中所有字符相同时，两字符串相等感谢你的观看2019年8月234-(负号)*,/Mod+,-&无优先顺序NotAndOrXor由高到低例：设a=4，b=3,c=2,

2、d=1，表达式ab+1Or cd And b Mod c 的值？感谢你的观看2019年8月235关系运算与逻辑运算1选择结构程序设计2 选择控件 单行结构条件语句 块结构条件语句 IIf函数 If语句的嵌套感谢你的观看2019年8月23612感谢你的观看2019年8月237True 为选中False 为不选感谢你的观看2019年8月238v 属性 Caption:Check1、Check2 Value Alignmentv 事件 Click1-Checked 为选中0-Unchecked 为不选2-Grayed 为禁止操作（灰色）感谢你的观看2019年8月239框架Frame感谢你的观看201

3、9年8月2310感谢你的观看2019年8月2311x y t=x x=yy=tFalseTrueIF Then 感谢你的观看2019年8月23感谢你的观看2019年8月2313感谢你的观看2019年8月2314感谢你的观看2019年8月231515感谢你的观看2019年8月231616感谢你的观看2019年8月2317感谢你的观看2019年8月2318感谢你的观看2019年8月2319感谢你的观看2019年8月2320感谢你的观看2019年8月2321感谢你的观看2019年8月2322 编写代码：Private Sub Command1_Click()Dim max As Single Dim

4、 min As Single max=Val(Text1.Text)min=Val(Text2.Text)If max min Then max=min End If Label3.Caption=较大值为较大值为&maxEnd SubFTmax=minmaxmin？开始开始dim max as singledim min as singlemax=val(text1.text)min=val(text2.text)结束结束Label3.Caption=较大值为较大值为&max感谢你的观看2019年8月2323TF用户名和口用户名和口令正确吗？令正确吗？显示显示欢迎欢迎消息框消息框显示显示错误

5、错误消息框消息框感谢你的观看2019年8月2324 编写代码：编写代码：Private 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月2325感谢你的观看2019年8月2326感谢你的观看2019年8月232

6、7感谢你的观看2019年8月2328感谢你的观看2019年8月2329 If user=SYL And psw=123456 Then MsgBox(正确正确！)Else MsgBox(错误错误！)End IfMsgBox IIf(user=SYL And psw=123456,正确正确！,错误！错误！)IIf(user=SYL And psw=123456,MsgBox(正确！正确！),MsgBox(错误！错误！)IIf(条件条件,表达式表达式1,表达式表达式2)感谢你的观看2019年8月2330等级等级不及格不及格 score60及格及格 60score70中等中等 70score80良好

7、良好 80score90优优 score90感谢你的观看2019年8月2331感谢你的观看2019年8月2332 编写代码：编写代码：Private Sub Command1_Click()Dim score As Single Dim s As String score=Val(Text1.Text)End SubT If score 60 Then s=不及格不及格 ElseIf score 70 Then s=及格及格 ElseIf score 80 Then s=中等中等 ElseIf score=285 Then Label4.Caption=可以获奖！可以获奖！ElseIf a=9

8、0 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 SubT能改成下面的代码吗？能改成下面的代码吗？If a+b+c=285 or a=90 And b=90 And c=90 or _ a=100 And b=100 And c=80 Then Label4.Caption=不可获奖！不可获奖！End If感谢你的观看2019年8月2335感谢

9、你的观看2019年8月2336感谢你的观看2019年8月2337为男性为女性感谢你的观看2019年8月2338感谢你的观看2019年8月2339yz交换y和z感谢你的观看2019年8月2340感谢你的观看2019年8月2341TT三角形？三角形？FT直角三角形？直角三角形？F输出判断结果输出判断结果输出判断结果输出判断结果输出判断结果输出判断结果感谢你的观看2019年8月2342感谢你的观看2019年8月2343感谢你的观看2019年8月2344感谢你的观看2019年8月2345感谢你的观看2019年8月2346关系运算与逻辑运算1选择结构程序设计24多分支结构程序设计3感谢你的观看2019年

10、8月23感谢你的观看2019年8月2348感谢你的观看2019年8月2349Case 2,4,6,8,VB，程序设计程序设计Case 60 to 100Case is=60 and is100感谢你的观看2019年8月2350感谢你的观看2019年8月2351感谢你的观看2019年8月2352感谢你的观看2019年8月2353C注意：1、Select Case后不能跟多个变量2、不能在条件中出现变量3、不能在条件中出现逻辑表达形式但下面这种情况可以使用Case option1.Value True And Option2.value=True 这里其实是一个表达式的值，属于简单常量形式感谢你的

11、观看2019年8月2354不能在条件中出现变量和不能在条件中出现变量和不允许的逻辑表达形式不允许的逻辑表达形式不能对多个变量进行判断不能对多个变量进行判断感谢你的观看2019年8月2355 感谢你的观看2019年8月2356 分析：本题根据包裹的重量来计算包裹的邮寄费。一个输入量为包裹重量，一个输出量为邮寄费。所以用一个文本框接收输入量，一个文本框作为输出，一个按钮实现“计算”功能，一个按钮实现“退出”功能。感谢你的观看2019年8月2357v 编写代码：感谢你的观看2019年8月2358 编写代码：IF语句实现感谢你的观看2019年8月2359感谢你的观看2019年8月2360Select

12、Case Combo1.ListIndex Case 6 To 8 If num 20 Then rate=0.95 Else rate=0.85 End If Case 9,10,0 To 4 If num 0=0 0 Label4.Caption=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=二次方程没

13、有实根二次方程没有实根 End Select End If Else MsgBox(你输入的数据无效，请重新输入！你输入的数据无效，请重新输入！)End If感谢你的观看2019年8月23634关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4 For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环感谢你的观看2019年8月2364感谢你的观看2019年8月2365Print i感谢你的观看2019年8月2366i=1i=2True感谢你的观看2019年8月2367i=1i=2Print iTrue感谢你的观

14、看2019年8月2368i=1i=2Print iTruei=i+步长步长感谢你的观看2019年8月2369i=1i=2Print iTruei=i+步长步长感谢你的观看2019年8月2370i=1i=2Print iTruei=i+步长步长False退出循环退出循环执行过程：(1)设置循环变量等于初值。(2)判断循环变量是否大于(步长为负时小于)终止值，如果是则退出循环，否则继续。(3)执行语句块。(4)循环变量加上步长值。(5)重复步骤(2)到(4)。感谢你的观看2019年8月2371For 循环变量=初值 To 终值 step 步长循环语句块Next 循环变量)1int(步长终值初值n当

15、循环变量当循环变量不在循环体不在循环体内改变时内改变时感谢你的观看2019年8月2372感谢你的观看2019年8月2373感谢你的观看2019年8月2374感谢你的观看2019年8月2375感谢你的观看2019年8月2376感谢你的观看2019年8月2377感谢你的观看2019年8月2378感谢你的观看2019年8月2379感谢你的观看2019年8月2380感谢你的观看2019年8月2381感谢你的观看2019年8月2382感谢你的观看2019年8月2383感谢你的观看2019年8月2384感谢你的观看2019年8月2385Sum=0For i=1 To 100 Step 1 Sum=Sum+

16、iNext iPrint SumSum=0For i=0 To 100 Step 2 Sum=Sum+iNext iPrint SumForm1.Print Sum Sum=0 i=1 Sum=Sum+i i=100 i=i+1 False True 求0到100的所有偶数之和感谢你的观看2019年8月2386求100的阶乘。For i=1 To 100 Step 1 Result=Result*iNext iResult=1Form1.Print Result Result=1 i=1 Result=Result*i i i=1=10000 i=i i=i+1 1 False True Fo

17、rm1.Print Sum感谢你的观看2019年8月2387Sum=Sum+Result n=Val(InputBox(输入一个自然数输入一个自然数)Result=1:Sum=0 For i=1 To n Result=Result*i Next i msgbox 1+2!+3!+n!=“&SumiResult1122!nn!感谢你的观看2019年8月23884关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4 For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环感谢你的观看2019年8月2389For-N

18、ext循环来实现知道循环次数？知道循环结束的条件Do-Loop循环和While-Wend循环感谢你的观看2019年8月2390)!1n2(x)1(.!7x!5x!3x1x(x)sin1n21n753感谢你的观看2019年8月2391 条条件件 语语句句块块 1 语语句句块块 2 有有 Exit Do False True Do While Loop False True 条条件件 语语句句块块 1 语语句句块块 2 有有 Exit Do False True Do While Loop False True TrueFalse 形式1先判断后执行，有可能一次也不执行形式：DO while|Un

19、til loop感谢你的观看2019年8月2392感谢你的观看2019年8月2393感谢你的观看2019年8月23i=0do until i100print ii=i+2loop94感谢你的观看2019年8月23i=1sum=0do until i100sum=sum+ii=i+2loop95感谢你的观看2019年8月2396感谢你的观看2019年8月2397感谢你的观看2019年8月2398感谢你的观看2019年8月2399感谢你的观看2019年8月23100感谢你的观看2019年8月23101感谢你的观看2019年8月23102感谢你的观看2019年8月23103感谢你的观看2019年8月

20、23104感谢你的观看2019年8月23105)!1n2(x)1(.!7x!5x!3x1x(x)sin1n21n753感谢你的观看2019年8月23106population=12.6583r=0.0107:n=0Do While population=0 And score=90 Then y=y+1 ElseIf score=80 Then l=l+1 ElseIf score=70 Then z=z+1 ElseIf score=60 Then j=j+1 Else b=b+1 End If total=total+1感谢你的观看2019年8月23112总结：感谢你的观看2019年8月2

21、31134关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4 For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环感谢你的观看2019年8月23114ListBoxComboBoxText1List1List2ComboBox感谢你的观看2019年8月23115属性 含 义List字符数组，通过下标访问列表项目，下表从0开始。访问列表项目：x$=列表框名.List(下标)改变列表框某项的值：列表框名.List(下标)=字符串设置列表项按几列显示ListCount返回列表项数，运行时有效。列表项中表项的序号从

22、0开始，最后一项为listCount-1.n=列表框名.ListCountListIndex返回当前选中的列表项的索引，第一项为0;如没有选中任何项返回-1.设置运行时是否按字母数字自动排序设置是否允许同时选择多个列表项Text得到最后选中的列表项的文本内容，无法直接修改感谢你的观看2019年8月23116事件和方法 含 义格式Click/DbClick通常不编写Click事件，而是当触发其他对象时，对列表框进行操作AddItem添加列表项列表框.AddItem 项目字符串,索引值Clear列表框.ClearRemoveItem删除选中（或指定）的列表项列表框.RemoveItem 索引值感谢

23、你的观看2019年8月23117感谢你的观看2019年8月23118感谢你的观看2019年8月231194关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4 For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环感谢你的观看2019年8月23120感谢你的观看2019年8月23121【例】编写一个猜数字游戏程序，让计 算 机 产 生 一 个100以内的随机整数，用户从键盘输入一个数，由计算机判断输入的数是大还是小，并给出提示，直到输入正确的数为止。感谢你的观看2019年8月23122通常把循环体内不含循环语句

24、的循环称为。而把一个循环体内又含有一个完整的循环结构的循环称为（又称为循环的嵌套），没有具体限制。如二重循环，三重循环。对于循环的嵌套，要注意以下事项：内循环变量与外循环变量不能同名；外循环必须完全包含内循环，不能交叉；不能从循环体外转向循环体内，反之则可以。感谢你的观看2019年8月23123 For ii=1 To 10 For ii=1 To 20 Next ii Next ii For ii=1 To 10 For jj=1 To 20 Next jj Next ii For ii=1 To 10 For jj=1 To 20 Next ii Next jj For ii=1 To 1

25、0 Next ii For ii=1 To 10 Next ii 正确错误感谢你的观看2019年8月23124感谢你的观看2019年8月23125感谢你的观看2019年8月23126感谢你的观看2019年8月23127感谢你的观看2019年8月23128【例例】产生并显示由数码产生并显示由数码1 1、2 2、3 3构成的所有三位构成的所有三位数数,并统计这些三位数的个数并统计这些三位数的个数思考：如何用列表框显示这些三位数？For a=1 To 3 Next ax=100*a+10*b+cFor c=1 To 3Next cFor b=1 To 3 Next b感谢你的观看2019年8月231

26、29感谢你的观看2019年8月23130感谢你的观看2019年8月23131【例】编写打印右边图案的代码 感谢你的观看2019年8月23132感谢你的观看2019年8月23133感谢你的观看2019年8月23134感谢你的观看2019年8月231354关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4 For-Next循环 Do-Loop循环 While-Wend循环 列表框和组合框 多重循环 GoTo语句控制循环感谢你的观看2019年8月23136感谢你的观看2019年8月23137关系运算与逻辑运算1选择结构程序设计2多分支结构程序设计3循环结构程序设计4常用算法

27、5感谢你的观看2019年8月23138感谢你的观看2019年8月23139感谢你的观看2019年8月23140)!1n2(x)1(.!7x!5x!3x1x(x)sin1n21n753感谢你的观看2019年8月23141nnm.43214321感谢你的观看2019年8月23142nnm.43214321感谢你的观看2019年8月23143感谢你的观看2019年8月23144感谢你的观看2019年8月23145感谢你的观看2019年8月23146感谢你的观看2019年8月23147感谢你的观看2019年8月231.找到a、b的值，使得f(a)f(b)0确保方程有解2.取x0(a+b)/23.若f(

28、a)*f(b)0,则a=x0，重复第二步4.重复执行2、3步，直到空间长度b-a，或者f(x)，或者|f(x)|f(x)bf(b)af(a)x0148感谢你的观看2019年8月23149f(x)bf(b)af(a)x01.找到a、b的值，使得f(a)f(b)0确保方程有解2.取x0(a+b)/23.若f(a)*f(b)0,则a=x0，重复第二步4.重复执行2、3步，直到空间长度b-a，或者f(x)，或者|f(x)|感谢你的观看2019年8月23150感谢你的观看2019年8月23151感谢你的观看2019年8月231521003/35100zyxzyxFor x=0 To 20 For y=0

29、 To 33 Next yNext x【例】关于百钱买百鸡的问题 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出三个未知数，两个方程，此题有若干个解。感谢你的观看2019年8月23153153感谢你的观看2019年8月23154感谢你的观看2019年8月23155例 求 m=14,n=6 的最大公约数.If m n Then t=m:m=n:n=t r=m mod n Do While(r 0)m=n n=r r=m mod n Loop Print 最大公约数=,n Print 最小公倍数=“,14*6/n m n r 14 6 2 6 2 0155感谢你的观看2019年8月2315

30、6感谢你的观看2019年8月23157If Then Print n;是质数是质数Else Print n;不是质数不是质数End IfFor i=2 To n-1 If n Mod i=0 Then _Next in=Val(Inputbox(输入一个大于输入一个大于 1 的正整数的正整数)感谢你的观看2019年8月23158感谢你的观看2019年8月23159感谢你的观看2019年8月23160感谢你的观看2019年8月23161感谢你的观看2019年8月23162感谢你的观看2019年8月231632000320001000210005005.1500 xxxxxxxxy感谢你的观看2019年8月23