《总结程序结构》PPT课件.ppt
VB 程序设计,程序控制结构,程序设计方法：1、认真阅读题目，建立窗体（注：窗体不一样，编程方式也不一样）2、分析处理数据及操作先后关系3、转化为结构（流程图或N-S图）4、程序设计5、上机检查（调试）6、总结、改进7、推广应用,注:1、掌握题目的分类，采用相应的程序结构和设计方法。2、同一个题目，完善程序的逻辑、算法、优化结构。,0:程序设计,IF Then Else End if,1:IF选择块结构,(1)基本格式：,(2)执行方式：流程图,示例：If score=60 Then Print“祝贺你考试通过！”Else Print“考试未通过.”End If Print 继续努力！,2:单行条件语句,(1).基本格式 If Then 语句组A Else 语句组B,(2).执行方式：流程图,示例：If score=60 Then Print“通过！”Else Print“未通过.”Print 继续努力！,注：此语句没有End if,3:比较,示例：从键盘上输入两个整数，并按从大到小输出。,If a b Then t=a:a=b:b=t,4:多分支选择结构 Select,格式：Select Case Case Case Case Else End Select,示例：a=InputBox(“请输入一个字”)Select Case a Case is=“。”Print“是句号”Case“，”Print“是逗号”Case a To z Print“是小写字母 Case“A”,”B”,”C”to“Z”Print“是大写字母 Case is”0”Print“可能是数字字符 End Select,Case is=“0”and is=“9”(不能用not、and、or),5:条件结构示例1,计算任意三角形的面积S,Private Sub Command1_Click()方法1 a=Val(InputBox(请输入三角形边长a)b=Val(InputBox(请输入三角形边长b)c=Val(InputBox(请输入三角形边长c)If a+b c And a+c b And b+c a Then k=(a+b+c)/2 s=Sqr(k*(k-a)*(k-b)*(k-c)Print s Else MsgBox(输入的边长a、b、c不能组成三角形)End IfEnd Sub,Private Sub Command1_Click()方法2 a=Val(InputBox(请输入三角形边长a)b=Val(InputBox(请输入三角形边长b)c=Val(InputBox(请输入三角形边长c)注：输入的边长a、b、c必须组成三角形,否则重新输入,直到成功为至 Do While(a+b c Or a+c b Or b+c a)MsgBox(输入的边长a、b、c不能组成三角形,请重新输入)a=Val(InputBox(请输入三角形边长a)b=Val(InputBox(请输入三角形边长b)c=Val(InputBox(请输入三角形边长c)Loop 注：循环这种方法不能改为文本框输入，为什么？k=(a+b+c)/2 s=Sqr(k*(k-a)*(k-b)*(k-c)Print sEnd Sub,计算任意三角形的面积S,Private Sub Command1_Click()方法3 a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If a+b c And a+c b And b+c a Then k=(a+b+c)/2 s=Sqr(k*(k-a)*(k-b)*(k-c)Text4.Text=s Else MsgBox(输入的边长a、b、c不能组成三角形)End IfEnd Sub,计算任意三角形的面积S,假设广州市地铁1号线全长共有12站台，搭乘站数与车票价格的对应关系如下表:,提示:乘客输入当前站号及目的地站号,计算机报告(加收1元附加费)显示票价money（元）,若输入的站超越(112)，提示“ERROR！”。,6:条件结构示例2,Private sub Command1_click()Dim a%,b%,c%a=Val(InputBox(输入当前站号=)b=Val(InputBox(输入目的地站号=)If(a=1 And b=1 And a=12)Thenn=Abs(b-a)If(n=1 Or n=2)Then c=1If(n=3 Or n=4)Then c=2If(n=5 Or n=6)Then c=3If(n=7 Or n=8)Then c=4If(n=9 Or n=10)Then c=5If(n=11 Or n=12)Then c=6Print 票价=“;c+1 ElsePrint 站号超界，ERROR!End IfEnd sub,Select case n case 1,2:c=1 case 3,4:c=2 case 5,6:c=3 case 7,8:c=4 case 9,10:c=5 case 11,12:c=6End select,c=int(n+1)/2),当前站是陈家祠站 站号6Private Sub Command10_Click()票价 a=6 If Text1.Text=火车东站 Then b=1 If Text1.Text=体育西路 Then b=2 If Text1.Text=天河 Then b=3 If Text1.Text=中山东路 Then b=4 n=a-d c=Int(n+1)/2)Text2.Text=c+1End Sub,Sub Command1_Click()火车东站 Text1.Text=火车东站End SubSub Command4_Click()中山东路 Text1.Text=中山东路End Sub,7:循环块结构格式,1:当型循环格式While 循环条件 语句组 Wend,2:For格式(计数循环)For=To Step Exit For Next,3:Do循环 格式,格式一:Do While Exit Do Loop,格式二:Do Until Exit Do Loop,格式三:Do Exit Do Loop While,格式四:Do Exit Do Loop Until,8:循环要点,Private Sub Command1_Click()N=Val(Text1.Text)Sum=0 i=1 While i=100 Sum=Sum+i i=i+1Wend Text2.Text=SumEnd Sub,9:循环出口,*判断一自然数其是否为素数(遍历法)。Cleara=Val(inputbox(“请输入一自然数:”)For i=2 to a-1 iF a mod i=0then Exit For EndifNextiF ia-1 then Print a,”是素数。”Endif,10:循环结构示例1(项操作),同一类题材，采用相同的程序结构,思考题：(1)s=2+4+6+8+10(2)s=1*2*3*4*5*10(3)s=1!+2!+3!+4!+5!(4)s=20+21+22+23+263(5)(6)前20项之和,示例：S=1+2+3+10Sub Command1_click()S=0 For n=1 to 10 step 1 K=n S=S+K Next Print sEnd sub,Sub Command1_click()4 S=0 For n=0 to 63 step 1 K=2n S=S+K Next Print sEnd sub,Sub Command1_click()3 S=0 For n=1 to 5 step 1 k=1 For i=1 to n K=k*i Next S=S+K Next Print sEnd sub,10:循环结构示例2(行列输出),打印九九乘法表(两重循环).For i=1 To 9 行 For j=1 To 9 列 一行的内容 Print i Next j Print 一行内容完后回车 Next i,思考：打印下三角A或上三角B程序如何改动？,A,B,For i=1 To 9 行 For j=1 To 9 列 Print i Next j Print Next i,*图1,For i=1 To 9 行 For j=1 To 9 列 Print“*”;Next j Print Next i,*图2,For i=1 To 9 行 For j=1 To i 列 Print“*”;Next j Print Next i,*图2,*图3,*图4,For i=1 To 9 行 For j=1 To i 列 Print“*”;Next j Print Next i,For i=1 To 9 For j=1 To 2*i-1 Print“*”;Next j Print Next i,For i=1 To 9 For k=1 to 20-i Print space(1);Next k For j=1 To 2*i-1 Print“*”;Next j Print Next i,11:循环结构示例3（遍历法）,从键盘上输入一个正整数，输出它所有的约数。Private Sub Command4_Click()N=Val(InputBox(请输入一个正整数)For i=1 To N If N Mod i=0 Then Print i End If NextEnd Sub,从键盘上输入两个正整数，输出它的最大公约数和最小公倍数。Private Sub Command5_Click()方法1 a=Val(InputBox(请输入一个正整数a)b=Val(InputBox(请输入一个正整数b)If a b Then t=a:a=b:b=t End If For i=1 To b If a Mod i=0 And b Mod i=0 Then Max=i End If Next Print 最大公约数：,Max Print 最小公倍数：,a*b/MaxEnd Sub,1：求100200之间的不能被3整除的数的和2：从键盘上输入一个正整数，输出它所有的约数。3：从键盘上输入两个正整数，输出它的最大公约数和最小公倍数。4：从键盘上输入一个正整数，判断它是否为素数。5：判断并输出1100中的素数。6：判断并输出1001000中的水仙花数。,13:循环结构示例4（最大最小值）,随机产生10个100200之间的数，求最大值、最小值。Private Sub Command1_Click()Max=100:Min=200 有固定范围 For i=1 To 10 x=Int(Rnd*101+100)Print x;If x Max Then Max=x If x Min Then Min=x Next i Print Print“最大值=”;Max,“最小值=;MinEnd Sub,从键盘上输入10个数，求它们中的最大、最小值、和。Private Sub Command3_Click()N=Val(InputBox(请输入一个数)Max=N 没有固定范围 Min=N Sum=N For i=1 To 9 N=Val(InputBox(请输入一个数)Sum=Sum+N If N Max Then Max=N If N Min Then Min=N Next Print Max,Min,SumEnd Sub,14:循环结构示例5（其它）,例1 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘下了多少个桃子？,例2用辗转相除法求两自然数 m，n 的最大公约数和最小公倍数。,例3打印输出斐波那契(Fibonacci)数列的前20项,
