程序的基本结构正式

1、程序的基本结构n任何正规的程序都可以分解为三种基任何正规的程序都可以分解为三种基本结构，即本结构，即顺序结构顺序结构选择结构选择结构循环结构循环结构n意义：牢固掌握这三种基本结构，是意义：牢固掌握这三种基本结构，是学习程序设计的基本要求，是编写出学习程序设计的基本要求，是编写出结构清晰、易读易懂的程序的前提。结构清晰、易读易懂的程序的前提。输入数据的两种方式1. 利用文本框输入的方式如：r=val(text1.text)2. 利用弹出对话框的方式输入如：R=Inputbox(“输入圆的半径”）输出数据的两种主要方式1. 利用改变对象属性的方法 如： Text1.text=str(x*3.141

2、6*r) label1.caption=“春节快乐”2. 利用消息对话框的方法 如：Msgbox(“Hello”)顺序结构n实验一：实验一： 请同学们仔细观看实验操作，并总结解请同学们仔细观看实验操作，并总结解决问题的具体步骤。决问题的具体步骤。的具体操作步骤：的具体操作步骤：1、将、将1号瓶里的墨水倒入号瓶里的墨水倒入3号空瓶；号空瓶；2、将、将2号瓶里的水倒入号瓶里的水倒入1号瓶；号瓶；3、将、将3号瓶里的墨水倒入号瓶里的墨水倒入2号瓶。号瓶。顺序结构想一想：想一想：n在编程的过程中，如果让你交换两个在编程的过程中，如果让你交换两个变量的值，你要怎样做？变量的值，你要怎样做？练习练习1：n

3、请试着在你的练习本上写出主要语句。请试着在你的练习本上写出主要语句。程序运行练习练习2 2：【3333页实践（页实践（1 1）】n 请画出相应的流程图，填写在课本请画出相应的流程图，填写在课本33页。页。根据程序填写根据程序填写:Private Sub cmdChang_Click()Dim a As Single, b As Single, c As Singlea = InputBox(输入a)b = InputBox(输入b)Print 交换前：a = ;a,b = ; bc = aa = bb = cMsgBox 交换后a = & a & b = & b, vb

4、OKOnly, 交换结果End Sub 实践任务二实践任务二n题目：你知道自己已经出生了多少天、多少小题目：你知道自己已经出生了多少天、多少小时吗？请编写一段程序，输入自己的出生日期，时吗？请编写一段程序，输入自己的出生日期，输出答案。输出答案。Step1：分析问题：分析问题要求出生天数、出生小时数共需要几个量？要求出生天数、出生小时数共需要几个量？n两个变量：分别表示出生日期和现在日期。两个变量：分别表示出生日期和现在日期。（ dtmBirthday dtmBirthday 、 dtmNowdate)dtmNowdate)实践任务二Step2：分析程序执行步骤，画出流程图：分析程序执行步骤，

5、画出流程图开始开始结束结束输入出生日期输入出生日期输出出生天数、出生小时数输出出生天数、出生小时数计算出生天数：当前日期计算出生天数：当前日期 出生日期出生日期计算出生小时数：出生天数计算出生小时数：出生天数24+24+今天已经过去的小时数今天已经过去的小时数求出当前日期求出当前日期实践任务二Step2：分析程序执行步骤，画出流程图：分析程序执行步骤，画出流程图执行步骤：执行步骤：1 1、输入出生日期、输入出生日期2 2、求出当前日期、求出当前日期3 3、出生天数、出生天数= =当前日期当前日期 - - 出生日期出生日期4 4、出生小时数、出生小时数= =出生天数出生天数24+24+今天已经过

6、去的今天已经过去的小时数小时数5 5、输出出生天数、出生小时数、输出出生天数、出生小时数实践任务二Step3：设计界面：设计界面实践任务二各对象及其属性值各对象及其属性值对象对象属性属性属性值属性值Label1Caption请输入自己的出生日期：请输入自己的出生日期：Label2Caption您已经出生了您已经出生了Label3Caption天天 共共Label4Caption小时小时Text1Text空空Text2Text空空Text3Text空空Command1Caption计算计算实践任务二Step4：编写代码Private Sub Command1_Click() Dim dtmNow

7、date, dtmBirthday As Date dtmNowdate = Date dtmBirthday = CDate(text1.Text) text2.Text = dtmNowdate - dtmBirthday text3.Text = (dtmNowdate - dtmBirthday) * 24 + Hour(Time()End Sub实践任务二Step5：调试运行：调试运行n选择结构：选择结构：根据不同的条件判断来决定程序执根据不同的条件判断来决定程序执行走向的结构，我们把它称为选择行走向的结构，我们把它称为选择结构。结构。选择结构：IF语句语句单分支选择结构：单分支选择

8、结构：If 条件条件 Then语句或语句组语句或语句组 语句组是指多条语句的情况语句组是指多条语句的情况End If条件条件满足满足语句语句格式1 (单分支结构) : IF Then 语句块语句块 End If例：有两个数例：有两个数x 和和y，比较它们的大小，若，比较它们的大小，若x小于小于y,则交换则交换x和和y 值，使得值，使得x大大于于y。Private sub form_click( ) x = inputbox (“请输入请输入x”) y = inputbox (“请输入请输入y”) If x y Then t = x x = y y = t End if print “x”; x

9、 , ”y”;yEnd sub 双分支选择结构：双分支选择结构：If 条件条件 Then语句或语句组语句或语句组1Else语句或语句组语句或语句组2End If条件条件满足满足语句或语句或语句组语句组1不满足不满足语句或语句或语句组语句组2实例：“神舟号”飞行状况P35 中间黄色的方框格式2 (双分支结构) :IF Then Else End If例：输出例：输出x、y两个数中值较大的一个。两个数中值较大的一个。Private sub form_click( ) x = inputbox (“请输入请输入x”) y = inputbox (“请输入请输入y”) If x y Then prin

10、t x else print y end if End sub 练习题：练习题：1.分析下面一段VB程序，该程序运行后y的值是（ ）x = 3IF x 3 Then y = x * xElse y = 2 * xEnd if A. 2 B. 3 C. 9 D.62. 若整型变量a的值为2，b的值为3，则在下列程序段运行后整型变量c的值为（ ）If a 5 Then If b 3 Then c = a * b else c = a mod b End IfA. 2 B. -1 C. 1 D. 6求下列程序运行结果：nPrivate Sub Command1_click ( ) Dim m , n

11、 As Integer m = 10 If m = 8 then n = 6 * m Else n = 2 * m End if Print n = ; n; End sub 输出：602. Private Sub Command1_click ( ) Dim a , b ，m As Integer a = 3 ：b = 2 ：c = 1 (在在VB中，将多个语句合在一行上的并行符是中，将多个语句合在一行上的并行符是 ：) If a b then m = a Else m = b End if If c 2 then a = 10 Else If （10 / 2） = 6 Then a = 2

12、0 Else a = 30 End if End if Print a End sub 输出：30多分支结构多分支结构If 条件条件1 Then语句或语句组语句或语句组1ElseIf 条件条件2 Then语句或语句组语句或语句组2ElseIf 条件条件n Then语句或语句组语句或语句组nElse语句或语句组语句或语句组n+1End If条件条件1满足满足语句或语句或语句组语句组1不满足不满足条件条件2满足满足语句或语句或语句组语句组2不满足不满足语句或语句或语句组语句组3条件条件3满足满足不满足不满足语句或语句或语句组语句组4?当有N个条件时我们将会面临什么问题？nSelect Case语句

13、：语句：Select Case 表达式表达式Case 表达式列表表达式列表1语句组语句组1Case 表达式列表表达式列表2语句组语句组2Case Else语句组语句组nEnd Select实例：“神舟号”具体飞行状况P36 下面黄色的方框解决方法讨论交流n试比较什么情况下适合用试比较什么情况下适合用If语句，语句，什么情况下适合用什么情况下适合用Select Case语语句？句？3、 循环结构：循环结构：根据条件判断其是否成立，如果条件成立则重复执行循环体根据条件判断其是否成立，如果条件成立则重复执行循环体（循环结构中某语句序列），直到条件不成立，退出循环结（循环结构中某语句序列），直到条件不

14、成立，退出循环结构为止。构为止。循环结构循环结构ForNext的语句格式为：的语句格式为：for 循环变量循环变量 = 初值初值 to 终值终值 step 步长值步长值 循环体循环体 next 循环变量循环变量注：当注：当“step 步长值步长值”为为1时，此项可省略。时，此项可省略。 循环结构：ForNext语句格式：语句格式：For 变量赋初值变量赋初值 To 终值终值 Step 步长步长关键语句关键语句Next变量变量变量变量=终值终值满足满足循环体循环体不满足不满足语句语句变量赋初值变量赋初值变量变量=变量变量+步长步长循环结构循环结构 nFor 循环控制变量循环控制变量 = 初值初值

15、 to 终值终值 step 步长步长值值 (说明：当步长值为1时可省略step 1即 For 循环控制变量 = 初值 to 终值)n 循环语句组循环语句组nNext 循环控制变量循环控制变量意义说明：通过循环控制变量的初值到终值，以步长值为增进幅度（负数时为减少幅度），控制循环语句组重复执行的次数。当循环控制变量的增进值大于终值时结束循环（步长为负数时，减少值小于终值时结束循环） s=0如：for i=1 to 10 step 2 s=s+iNext iDo WhileLoop语句格式：语句格式：Do While 条件条件循环体循环体Loop条件条件满足满足循环体循环体不满足不满足语句语句语句

16、语句Do WhileLoop语句格式：语句格式：n如：n i=1nDo while i=10n s=s+ini=i*2nloop讨论交流n试比较什么情况下适合用试比较什么情况下适合用ForNext语句语句，什么情况下适合，什么情况下适合用用Do WhileLoop语句语句？“希望工程希望工程”：假设你从今年开始，第一个月假设你从今年开始，第一个月为为“希望工程希望工程”存入存入1元钱，第二个月存入元钱，第二个月存入2元元钱，第三个月存入钱，第三个月存入3元钱元钱以此类推，两年以此类推，两年时间你将为时间你将为“希望工程希望工程”存入多少钱？存入多少钱？把刚才的把刚才的ForNext程序段程序段

17、改写成改写成Do WhileLoop程序：程序：Dim n As Integer, intSum As IntegerintSum=0n=1Do While n=24 intSum=intSum+n n=n+1LooplblSum.Caption=“两年共存入：两年共存入：”& intSum & “元元”1. 完善程序。 编程计算编程计算1+4+7+10+ +100 的值。的值。 Dim s,i As Integer s=0 For i=_ To _ s=s+i Next i Print s 2. 完善程序。 编程计算编程计算1+4+7+10+ +100 的值。的值。 Dim

18、s,i As Integer s=0 i=1 Do While _ s= s+i i=_ Loop Print s 1100 step 3i=100i+3三、课堂巩固：三、课堂巩固：1、完善程序计算、完善程序计算1+3+5+7+99的值，并写出结果。的值，并写出结果。 private sub command1_click() Dim i , s As integer s=0 For i=1 to s=s+(2*i-1) print “s=“;s End Sub50NextS=2500三、课堂巩固：三、课堂巩固：2、阅读程序回答问题：、阅读程序回答问题： x=3:y=64 Do While xs

19、qr(y) x=x+2 Loop 语句语句x=x+2执行的次数是：执行的次数是：3结束结束程序的三种结构n顺序结构n选择结构n循环结构顺序结构的主要的三种语句形态n赋值语句n输入（函数）n输出（过程）输入数据的两种方式1. 利用文本框输入的方式如：r=val(text1.text)2. 利用弹出对话框的方式输入如：R=Inputbox(“输入圆的半径”）输出数据的两种主要方式1. 利用改变对象属性的方法 如： Text1.text=str(x*3.1416*r) label1.caption=“春节快乐”2. 利用消息对话框的方法 如：Msgbox(“Hello”)格式1 (单分支结构) :

20、IF Then 语句块语句块 End If例：有两个数例：有两个数x 和和y，比较它们的大小，若，比较它们的大小，若x小于小于y,则交换则交换x和和y 值，使得值，使得x大大于于y。Private sub form_click( ) x = inputbox (“请输入请输入x”) y = inputbox (“请输入请输入y”) If x y Then t = x x = y y = t End if print “x”; x , ”y”;yEnd sub 格式2 (双分支结构) :IF Then Else End If例：输出例：输出x、y两个数中值较大的一个。两个数中值较大的一个。Pri

21、vate sub form_click( ) x = inputbox (“请输入请输入x”) y = inputbox (“请输入请输入y”) If x y Then print x else print y end if End sub 练习题：练习题：1.分析下面一段VB程序，该程序运行后y的值是（ ）x = 3IF x 3 Then y = x * xElse y = 2 * xEnd if A. 2 B. 3 C. 9 D.62. 若整形变量a的值为2，b的值为3，则在下列程序段运行后整形变量c的值为（ ）If a 5 Then If b 3 Then c = a * b else

22、c = a mod b End IfA. 2 B. -1 C. 1 D. 6求下列程序运行结果：nPrivate Sub Command1_click ( ) Dim m , n As Integer m = 10 If m = 8 then n = 6 * m Else n = 2 * m End if Print “n = ” ; n End sub 输出：2. Private Sub Command1_click ( ) Dim a , b ，m As Integer a = 3 ：b = 2 ：c = 1 (在在VB中，将多个语句合在一行上的并行符是中，将多个语句合在一行上的并行符是

23、：) If a b then m = a Else m = b End if If c 2 then a = 10 Else If （10 / 2） = 6 Then a = 20 Else a = 30 End if End if Print a End sub 输出：30格式格式3 (双分支结构双分支结构) :IF 条件条件1 Then 语句块语句块1 Else If 条件条件2 Then 语句块语句块2 Else 语句块语句块 n+1 End If 程序运行到程序运行到Else If 语句时，依次判断条件，如果找到一个满足的条件，则执行语句时，依次判断条件，如果找到一个满足的条件，则执行

24、它下面的语句块，然后跳到它下面的语句块，然后跳到End If，执行后面的程序。如果列出的条件都不满足，执行后面的程序。如果列出的条件都不满足，则执行则执行Else 语句后面的语句块；如果列出的条件都不满足，又没有语句后面的语句块；如果列出的条件都不满足，又没有Else 子句，子句，则直接跳过则直接跳过End If ,不执行任何语句块。不执行任何语句块。例题分析：输入一学生的成绩，评定其等级。方法是： 90100分为“优秀”，8090分为“良好”，7079分为“中等”，6069分为“及格”，60分以下为“不及格”。Private Sub Form _ click ( ) Dim x as single x = inputbox(“请输入要评估的成绩”) If x = 90 Then Print “优秀” Else If x = 80 T