第章基本程序结构ppt课件

1、第第4 4章章根本程序构造根本程序构造郭清溥河南财经学院现代教育技术中心 郭清溥2第第4 4章根本程序构造章根本程序构造 编写相应各种事件的程序代码，这是程序编写相应各种事件的程序代码，这是程序设计的重点和难点。设计的重点和难点。 程序设计有三种根本构造，它们是顺序构程序设计有三种根本构造，它们是顺序构造、选择构造和循环构造，这是程序设计的根造、选择构造和循环构造，这是程序设计的根底，这些内容将在本章中一一引见。同时还在底，这些内容将在本章中一一引见。同时还在最后一节引见一些程序设计中的常用算法。最后一节引见一些程序设计中的常用算法。【本章导读】【本章导读】河南财经学院现代教育技术中心 郭清溥

2、3第第4 4章根本程序构造章根本程序构造 顺序构造顺序构造 选择构造选择构造 循环构造循环构造 几种常用的算法引见几种常用的算法引见【本章要点】【本章要点】8学时实际，学时实际，8学时上机学时上机课时安排课时安排河南财经学院现代教育技术中心 郭清溥4 语句组1 语句组n 语句组24.1 4.1 顺序构造的程序设计顺序构造的程序设计 顺序构造是一种线性构造。是程序设计中最简单同时也是最根本的构造。它要求顺序地执行每一个根本的加工处置单位。语句组2语句组1开场终了语句组n河南财经学院现代教育技术中心 郭清溥54.1 4.1 顺序构造的程序设计顺序构造的程序设计 在计算机中让一个没有被赋予详细值的变

3、量参与运算是没在计算机中让一个没有被赋予详细值的变量参与运算是没有意义的。因此给变量提供初值是程序中不可短少的步骤。有意义的。因此给变量提供初值是程序中不可短少的步骤。 计算表达式的值，并将其提供应变量计算表达式的值，并将其提供应变量 或或 修正指定对象的属性值。修正指定对象的属性值。 Let = 或 Let . = 格式格式功能功能 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥64.1 4.1 顺序构造的程序设计顺序构造的程序设计 在计算机中让一个没有被赋予详细值的变量参与运算是没在计算机中让一个没有被赋予详细值的变量参与运算是没有意义的。因此给变量提供初值是程序中不可短

4、少的步骤。有意义的。因此给变量提供初值是程序中不可短少的步骤。 Let intMax = 0 Let intMax = 0 该语句将数值型数据该语句将数值型数据0 0保管在变量保管在变量intMaxintMax中。中。 Text1.Text = Text1.Text = 河南财经学院河南财经学院 该语句将称号为该语句将称号为Text1Text1的的TextBoxTextBox控件的控件的TextText属属性值修正为性值修正为“河南财经学院。河南财经学院。例如例如 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥74.1 4.1 顺序构造的程序设计顺序构造的程序设计1. 1.

5、命令关键字命令关键字 Let Let 可以缺省；可以缺省；2. 2. 语句格式中的符号语句格式中的符号“= =是是 赋值号，赋值号， 与数学中的等号只是方式上一样；与数学中的等号只是方式上一样；3. 3. 一个赋值语句只能给一个变量赋值；一个赋值语句只能给一个变量赋值；4. 4. 赋值符号赋值符号“= =右边的表达式可以是变量、常右边的表达式可以是变量、常量、量、 函数等；函数等；5. 5. 赋值符号赋值符号“= =左边只能是变量名或对象的属左边只能是变量名或对象的属性引性引 用，不能是常量、符号常量、表达式；用，不能是常量、符号常量、表达式； 6. 6. 赋值号两边的数据类型普通应该一致。赋

6、值号两边的数据类型普通应该一致。阐明阐明 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥84.1 4.1 顺序构造的程序设计顺序构造的程序设计X = 8 X = 8 ，Y = 9Y = 9N = N + 1N = N + 1M = X = 8M = X = 8Exp = Sqr(3)Exp = Sqr(3)5 = X + Y5 = X + YX + Y = 5X + Y = 5X = 8 : Y = 9X = 8 : Y = 9表示表示 N N 累加累加 1 1将将 X = 8 X = 8 的值逻辑量的值逻辑量赋给赋给 M MExp1 = Sqr(3)Exp1 = Sqr(3

7、)赋值号左边不能是常量赋值号左边不能是常量赋值号左边不能是表达式赋值号左边不能是表达式 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥94.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1我们用我们用 F F 表示华氏温度表示华氏温度 用用 C C 表示摄氏温度表示摄氏温度 那么它们的关系为：那么它们的关系为：C=5(F-32)/9 C=5(F-32)/9 ( (或：或：F=32+9C/5) F=32+9C/5) 4.1.1 赋值语句赋值语句分析：分析：河南财经学院现代教育技术中心 郭清溥104

8、.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥114.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1F To C从文本框中获得F的值,即：F=Val(txtF.Text)用5*(F-32)/9计算C的值,即：C=5*(F-32)/9用文本框输出C的值,即： txtC.Text = C开场终了 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥124

9、.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1C To F从文本框中获得C的值,即： C=Val(txtC.Text)用9*C/5+32计算F的值,即：F=9*C/5+32用文本框输出F的值,即： txtF.Text = F开场终了 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥134.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.1F to C 命令按钮命令按钮Private Sub cmdFtoC_Clic

10、k()Private Sub cmdFtoC_Click() Dim F!, C! Dim F!, C! Let F = Val(txtF.Text) Let F = Val(txtF.Text) Let C = 5 Let C = 5 * * (F - 32) / 9 (F - 32) / 9 Let txtC.Text = C Let txtC.Text = CEnd Sub End Sub 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥144.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，求摄氏温度与华氏温度的转换编写程序，求摄氏温度与华氏温度的转换例例4.

11、1C to F 命令按钮命令按钮Private Sub cmdCtoF_Click()Private Sub cmdCtoF_Click() Dim F!, C! Dim F!, C! C = Val(txtC.Text) C = Val(txtC.Text) F = 9 F = 9 * * C / 5 + 32 C / 5 + 32 txtF.Text = F txtF.Text = FEnd Sub End Sub 4.1.1 赋值语句赋值语句河南财经学院现代教育技术中心 郭清溥154.1 4.1 顺序构造的程序设计顺序构造的程序设计Print 格式格式在指定的窗体中显示在指定的窗体中显示

12、“输出项表的值输出项表的值缺省窗体时指当前窗体缺省窗体时指当前窗体功能功能 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥164.1 4.1 顺序构造的程序设计顺序构造的程序设计数值型数据在输出时都是第一位是符号数值型数据在输出时都是第一位是符号位位, 数值最后要带一个字符位的尾空数值最后要带一个字符位的尾空 ； “Print方法最后假设没有格式字符，方法最后假设没有格式字符，那么执那么执 行完输出后，自动换行行完输出后，自动换行 ；最后假设有格；最后假设有格式式 字符，那么执行完输出内容后按格式字字符，那么执行完输出内容后按格式字符的符的 规定挪动输出指针规定挪动输出指针

13、阐明阐明 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥174.1 4.1 顺序构造的程序设计顺序构造的程序设计格式字符格式字符“，所规定的输出叫规范输出。，所规定的输出叫规范输出。规范输出是按每一部分占规范输出是按每一部分占14个字符位计算。个字符位计算。 格式字符格式字符“，就是将输出指针移到下一，就是将输出指针移到下一个规范区域。个规范区域。格式字符格式字符 “， 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥18Print 123456789012345, B, C, D, E, FPrint 123456789012345, B, C, D,

14、E, FPrint -1, 2,Print -1, 2,Print Microsoft Visual BASICPrint Microsoft Visual BASIC4.1 4.1 顺序构造的程序设计顺序构造的程序设计格式字符格式字符 “，举例，举例 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥194.1 4.1 顺序构造的程序设计顺序构造的程序设计 格式字符格式字符“；所规定的输出叫紧凑输出。；所规定的输出叫紧凑输出。紧凑输出就是紧挨着输出。紧凑输出就是紧挨着输出。 格式字符格式字符“；就是坚持输出指针不动。；就是坚持输出指针不动。 格式字符格式字符 “； 4.1.2

15、 Print方法方法河南财经学院现代教育技术中心 郭清溥20Print 123456789012345; B; C; D; E; FPrint 123456789012345; B; C; D; E; FPrint -1; 2;Print -1; 2;Print Microsoft Visual BASICPrint Microsoft Visual BASIC4.1 4.1 顺序构造的程序设计顺序构造的程序设计格式字符格式字符 “；举例；举例 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥214.1 4.1 顺序构造的程序设计顺序构造的程序设计Tab(n): Tab(n)

16、: 将输出指针移到第将输出指针移到第n n个位置。个位置。 当当 n n 输出指针的当前值输出指针的当前值 时时, , 输出移到下一行执行。输出移到下一行执行。Spc(n): Spc(n): 输出输出n n个空格。个空格。 与与Print方法有关的函数方法有关的函数 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥22Print 1234567890;Print 1234567890;Print Tab(12); ABCDEPrint Tab(12); ABCDEPrint Spc(10); ABCDE;Print Spc(10); ABCDE;Print Tab(12);

17、ABCDEPrint Tab(12); ABCDE4.1 4.1 顺序构造的程序设计顺序构造的程序设计与与Print方法有关的函数举例方法有关的函数举例 4.1.2 Print方法方法河南财经学院现代教育技术中心 郭清溥234.1 4.1 顺序构造的程序设计顺序构造的程序设计 该函数的作用是在一个对话框中显示提示，等待该函数的作用是在一个对话框中显示提示，等待用户输入正文或按下按钮，并前往包含文本框中内用户输入正文或按下按钮，并前往包含文本框中内容。容。 函数前往值的类型为字符型。函数前往值的类型为字符型。 输入对话框输入对话框InputBoxInputBox函数函数InputBox(,)格式

18、格式 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥244.1 4.1 顺序构造的程序设计顺序构造的程序设计Dim strIDCard$ Dim strIDCard$ strIDCard = InputBox(strIDCard = InputBox(输入完成后单击输入完成后单击“确定按钮确定按钮 ， 输入卡号输入卡号) )输入对话框输入对话框InputBoxInputBox函数函数 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥254.1 4.1 顺序构造的程序设计顺序构造的程序设计Dim strName$strName = InputBox(输入他的姓名

19、输入他的姓名 & Chr(13) & Chr(10) & _ 完成后单击完成后单击“确定按钮确定按钮, 输入输入, 郭清溥郭清溥 )输入对话框输入对话框InputBoxInputBox函数函数提示标题默许产生一个回车换行 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥264.1 4.1 顺序构造的程序设计顺序构造的程序设计 MsgBox函数在对话框中显示信息，等待用户单击函数在对话框中显示信息，等待用户单击按钮，并前往一个整数以阐明用户单击了哪个按钮。按钮，并前往一个整数以阐明用户单击了哪个按钮。音讯对话框音讯对话框MsgBoxMsgBox函数函数Ms

20、gBox ( , ) 格式格式 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥274.1 4.1 顺序构造的程序设计顺序构造的程序设计音讯对话框音讯对话框MsgBoxMsgBox函数函数( (按钮值按钮值) )的意义的意义 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥284.1 4.1 顺序构造的程序设计顺序构造的程序设计音讯对话框音讯对话框MsgBoxMsgBox函数函数对话框中的图标 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥294.1 4.1 顺序构造的程序设计顺序构造的程序设计音讯对话框音讯对话框MsgBoxMsgBox函数函

21、数默许按钮的设置 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥304.1 4.1 顺序构造的程序设计顺序构造的程序设计音讯对话框音讯对话框MsgBoxMsgBox函数函数vbOKCancel + vbInformation + vbDefaultButton1vbOKCancel + vbInformation + vbDefaultButton1 YN = MsgBox( YN = MsgBox(请确认他的输入！请确认他的输入！, 1 + 64 + 0 , , 1 + 64 + 0 , 确认确认)“1表示显示表示显示“确确定、定、“取消按取消按钮钮 “0表示第一个表示第一

22、个按钮是默许值按钮是默许值 “64表示显表示显示图标示图标 4.1.3 人机交互人机交互YN = MsgBox(YN = MsgBox(他的输入有误！他的输入有误！, 5 + 16 + 256, , 5 + 16 + 256, 确认确认) ) 651 + 64 + 0河南财经学院现代教育技术中心 郭清溥314.1 4.1 顺序构造的程序设计顺序构造的程序设计音讯对话框音讯对话框MsgBoxMsgBox函数函数 4.1.3 人机交互人机交互MsgBox函数的前往值河南财经学院现代教育技术中心 郭清溥324.1 4.1 顺序构造的程序设计顺序构造的程序设计MsgBox还可以写成语句的格式。还可以写

23、成语句的格式。 音讯对话框音讯对话框MsgBoxMsgBox语句语句MsgBox , 当当MsgBox为语句时，没有前往值。为语句时，没有前往值。格式格式语句要求的参数不运用括号！MsgBox MsgBox 文件已保管！文件已保管！, 0 + 48 + 0, , 0 + 48 + 0, 确认确认 4.1.3 人机交互人机交互河南财经学院现代教育技术中心 郭清溥334.1 4.1 顺序构造的程序设计顺序构造的程序设计Visual BasicVisual Basic期终成果由三部分组成：期终考试、作业和平期终成果由三部分组成：期终考试、作业和平常成果，它们分别占常成果，它们分别占7070，1010

24、，2020。现有一个学生的。现有一个学生的成果依次为成果依次为 89 89，9090，7878，编写程序，求其总评成果。，编写程序，求其总评成果。 假设程序中我们分别用假设程序中我们分别用KS，ZY，CS表示考表示考试成果、作业成果和平常测试成果，那么总评试成果、作业成果和平常测试成果，那么总评成果成果ZP为：为： ZP = KS70+ ZY10+ CS20例例4.4分析：分析：河南财经学院现代教育技术中心 郭清溥344.1 4.1 顺序构造的程序设计顺序构造的程序设计按钮称号 ：cmdJS按钮称号 ：cmdGB用InputBox输入，显示在文本框中。Visual BasicVisual Ba

25、sic期终成果由三部分组成：期终考试、作业和平期终成果由三部分组成：期终考试、作业和平常成果，它们分别占常成果，它们分别占7070，1010，2020。现有一个学生的。现有一个学生的成果依次为成果依次为 8989，9090，7878，编写程序，求其总评成果。，编写程序，求其总评成果。 例例4.4河南财经学院现代教育技术中心 郭清溥354.1 4.1 顺序构造的程序设计顺序构造的程序设计Visual BasicVisual Basic期终成果由三部分组成：期终考试、作业和平期终成果由三部分组成：期终考试、作业和平常成果，它们分别占常成果，它们分别占7070，1010，2020。现有一个学生的。现

26、有一个学生的成果依次为成果依次为 8989，9090，7878，编写程序，求其总评成果。，编写程序，求其总评成果。 例例4.4河南财经学院现代教育技术中心 郭清溥364.1 4.1 顺序构造的程序设计顺序构造的程序设计Visual BasicVisual Basic期终成果由三部分组成：期终考试、作业和平期终成果由三部分组成：期终考试、作业和平常成果，它们分别占常成果，它们分别占7070，1010，2020。现有一个学生的。现有一个学生的成果依次为成果依次为 8989，9090，7878，编写程序，求其总评成果。，编写程序，求其总评成果。 例例4.4河南财经学院现代教育技术中心 郭清溥374.

27、1 4.1 顺序构造的程序设计顺序构造的程序设计“计算命令按钮计算命令按钮cmdJScmdJS的程序源代码如下：的程序源代码如下：Private Sub cmdJS_Click()Private Sub cmdJS_Click() Dim Temp$, KS%, ZY%, CS%, ZP! Dim Temp$, KS%, ZY%, CS%, ZP! Temp = InputBox(, Temp = InputBox(, 输入输入“考试成果考试成果) ) KS = Val(Temp): txtKS.Text = KS KS = Val(Temp): txtKS.Text = KS Temp =

28、InputBox(, Temp = InputBox(, 输入输入“作业成果作业成果) ) ZY = Val(Temp): txtZY.Text = ZY ZY = Val(Temp): txtZY.Text = ZY Temp = InputBox(, Temp = InputBox(, 输入输入“测试成果测试成果) ) CS = Val(Temp): txtCS.Text = CS CS = Val(Temp): txtCS.Text = CS ZP = KS ZP = KS * * 0.7 + ZY 0.7 + ZY * * 0.1 + CS 0.1 + CS * * 0.2 0.2 l

29、blZP.Caption = lblZP.Caption = 总评成果：总评成果： & Str(ZP) & Str(ZP)End SubEnd SubKS KS * * 70 70 + ZY + ZY * * 10 10 + CS + CS * * 20 20 例例4.4KS = txtKS.Text ZY = txtZY.Text CS = txtCS.Text 在调整文本框的在调整文本框的Enabled属性后可以用文本框输属性后可以用文本框输入三个成果。入三个成果。河南财经学院现代教育技术中心 郭清溥384.1 4.1 顺序构造的程序设计顺序构造的程序设计 鸡兔同笼问题：鸡

30、和兔子被放在同一个笼中，如今知鸡鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只只? ? 我们用我们用 H H 表示总头数，表示总头数，F F 表示总脚数表示总脚数 用用 C C 表示鸡，表示鸡，R R 表示兔子表示兔子 那么有那么有: : C + R = H C + R = H 2C + 4R = F 2C + 4R = F R =R =F- 2HF- 2H/ 2 / 2 C = H R C = H R 例例4.5分析：分析：河南财经学院现代教育技术中心 郭清溥394.1 4.1 顺序构造的

31、程序设计顺序构造的程序设计文本框称号文本框称号 ：txtR文本框称号文本框称号 ：txtC按钮称号按钮称号 ：cmdStart用用InputBox输输入入H,F。用标。用标签显示。签显示。 鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只只? ? 例例4.5河南财经学院现代教育技术中心 郭清溥404.1 4.1 顺序构造的程序设计顺序构造的程序设计 鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡兔

32、的总头数和总脚数。编写程序，求笼中鸡和兔子各多少兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只只? ? 例例4.5河南财经学院现代教育技术中心 郭清溥414.1 4.1 顺序构造的程序设计顺序构造的程序设计 鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡鸡兔同笼问题：鸡和兔子被放在同一个笼中，如今知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只只? ? 例例4.5“计算命令按钮计算命令按钮cmdStart的程序源代码如下：的程序源代码如下： Private Sub cmdStart_Click() Dim H%, F%, R%,

33、 C% H = Val(InputBox(, 输入总头数输入总头数) F = Val(InputBox(, 输入总脚数输入总脚数) lblResult.Caption = 总头数总头数: & H & 总脚数：总脚数： & F R = (F - 2 * H) / 2 : C = H - R txtC.Text = C : txtR.Text = REnd Sub河南财经学院现代教育技术中心 郭清溥424.1 4.1 顺序构造的程序设计顺序构造的程序设计A A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我

34、可以按他们现有的数量再送他们每人一份。之后，他们现有的数量再送他们每人一份。之后，B B对对A A、C C ；C C对对A A、B B也说了同样的话。相互赠送后，每人各有也说了同样的话。相互赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？ 我们用我们用A A、B B、C C表示三人原来各买的糖果数。表示三人原来各买的糖果数。 C C 送给送给A A、B B前前 AA/2 AA/2 BB/2 BB/2 CA+B+C CA+B+C B B 送给送给A A、C C前前 AA/2 AA/2 CC/2 CC/2 BA+

35、B+C BA+B+C A A 送给送给B B、C C前前 BB/2 BB/2 CC/2 CC/2 AA+B+C AA+B+C 例例4.7分析：分析：河南财经学院现代教育技术中心 郭清溥434.1 4.1 顺序构造的程序设计顺序构造的程序设计A A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我可以按他们现有的数量再送他们每人一份。之后，他们现有的数量再送他们每人一份。之后，B B对对A A、C C ；C C对对A A、B B也说了同样的话。相互赠送后，每人各有也说了同样的话。相互赠送后，每人各有6464块糖果。编写程序，块糖果

36、。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？ 例例4.7河南财经学院现代教育技术中心 郭清溥444.1 4.1 顺序构造的程序设计顺序构造的程序设计A A、B B、C C三人上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我可以按他们现有的数量再送他们每人一份。之后，他们现有的数量再送他们每人一份。之后，B B对对A A、C C ；C C对对A A、B B也说了同样的话。相互赠送后，每人各有也说了同样的话。相互赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买

37、了多少块糖果？原来各买了多少块糖果？ 例例4.7河南财经学院现代教育技术中心 郭清溥454.1 4.1 顺序构造的程序设计顺序构造的程序设计Private Sub cmdStart_Click()Private Sub cmdStart_Click() Dim A%, B%, C% Dim A%, B%, C% A = 64: B = 64: C = 64 A = 64: B = 64: C = 64 A = A / 2: B = B / 2: C = A + B + C A = A / 2: B = B / 2: C = A + B + C C = C / 2: A = A / 2: B =

38、 A + B + C C = C / 2: A = A / 2: B = A + B + C B = B / 2: C = C / 2: A = A + B + C B = B / 2: C = C / 2: A = A + B + C lblResult.Caption = A lblResult.Caption = A、B B、C C三人的糖果数为：三人的糖果数为：_ _ & & A & & B & & C & & A & & B & & CEnd SubEnd SubA A、B B、C C三人

39、上街买糖果。三人买好后，三人上街买糖果。三人买好后，A A对对B B、C C说：说：“我可以按我可以按他们现有的数量再送他们每人一份。之后，他们现有的数量再送他们每人一份。之后，B B对对A A、C C ；C C对对A A、B B也说了同样的话。相互赠送后，每人各有也说了同样的话。相互赠送后，每人各有6464块糖果。编写程序，块糖果。编写程序，计算计算A A、B B、C C原来各买了多少块糖果？原来各买了多少块糖果？ 例例4.7河南财经学院现代教育技术中心 郭清溥464.1 4.1 顺序构造的程序设计顺序构造的程序设计4.1.4 With语句语句 格式：格式：With .End With 功能

40、：功能： With语句可以对某个对象执行一系列的操作，而不用反语句可以对某个对象执行一系列的操作，而不用反复指出对象的称号。复指出对象的称号。 河南财经学院现代教育技术中心 郭清溥474.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0由于要求在实数范围内求解一元二次方程，由于要求在实数范围内求解一元二次方程，所以我们应该假设该方程的根的判别式所以我们应该假设该方程的根的判别式 d2-4ac0，因此我们可以利用一元二次方，因此我们可以利用一元二次方程的求根公式来求解方程。程的求根公式来求解方程。

41、aacbbx2422, 1例例4.6分析：分析：河南财经学院现代教育技术中心 郭清溥484.1 4.1 顺序构造的程序设计顺序构造的程序设计例例4.6编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0由由InputBox输入方程的输入方程的系数系数河南财经学院现代教育技术中心 郭清溥494.1 4.1 顺序构造的程序设计顺序构造的程序设计例例4.6编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围内求解一元二次方程：aX2+bX+c=0河南财经学院现代教育技术中心 郭清溥50编写程序，在实数范围内求解一元二次方程：编写程序，在实数范围

42、内求解一元二次方程：aX2+bX+c=04.1 4.1 顺序构造的程序设计顺序构造的程序设计Private Sub cmdStart_Click()Private Sub cmdStart_Click() Dim A%, B%, C%, X1!, X2! Dim A%, B%, C%, X1!, X2! A = Val(InputBox(, A = Val(InputBox(, 输入方程的系数输入方程的系数A)A) B = Val(InputBox(, B = Val(InputBox(, 输入方程的系数输入方程的系数B)B) C = Val(InputBox(, C = Val(InputB

43、ox(, 输入方程的系数输入方程的系数C)C) lblShow.Caption = lblShow.Caption = 一元二次方程的系数是：一元二次方程的系数是： & A & , & B & , & A & , & B & , & C& C X1 = (-B + Sqr(B X1 = (-B + Sqr(B * * B - 4 B - 4 * * A A * * C) / (2 C) / (2 * * A) A) X2 = (-B - Sqr(B X2 = (-B - Sqr(B * * B - 4 B - 4

44、* * A A * * C) / (2 C) / (2 * * A) A) lblX1.Caption = X1= & X1 lblX1.Caption = X1= & X1 lblX2.Caption = X2= & X2 lblX2.Caption = X2= & X2End SubEnd Sub例例4.6河南财经学院现代教育技术中心 郭清溥514.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。程序运转后程序运转后显示显示“例例B1 计算正弦计算正弦计算角度计算角度的正弦值的正弦值

45、计算弧度计算弧度的正弦值的正弦值输入原始输入原始数据数据X输出计算输出计算结果结果Y补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥524.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥53程序运转后，窗体中各个控件的标题要明确显示：程序运转后，窗体中各个控件的标题要明确显示： Private Sub Form_Load() Form1.Caption = 例例B1 计算正弦计算正弦 cmdJD.Caption = 按角度计算按角度计算 cmdHD.

46、Caption = 按弧度计算按弧度计算 txtSR.Text = lblSC.Caption = End Sub4.1 4.1 顺序构造的程序设计顺序构造的程序设计编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥544.1 4.1 顺序构造的程序设计顺序构造的程序设计Private Sub cmdJD_Click()Private Sub cmdJD_Click() Dim X!, Y! Dim X!, Y! X = Val(txtSR.Text) X = Val(txtSR.Text) Y = Sin(X

47、 Y = Sin(X * * 3.14 / 180) 3.14 / 180) lblSC.Caption = Sin( & X & lblSC.Caption = Sin( & X & 度度)= & Y)= & YEnd SubEnd Sub编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥554.1 4.1 顺序构造的程序设计顺序构造的程序设计Private Sub cmdHD_Click()Private Sub cmdHD_Click() Dim X!, Y

48、! Dim X!, Y! X = Val(txtSR.Text) X = Val(txtSR.Text) Y = Sin(X) Y = Sin(X) lblSC.Caption =Sin( & X & lblSC.Caption =Sin( & X & 弧度弧度)= & Y)= & YEnd SubEnd Sub编写程序，分别显示角度和弧度的正弦值。编写程序，分别显示角度和弧度的正弦值。补充例题补充例题1 1河南财经学院现代教育技术中心 郭清溥56第第4 4章章 实验实验1 11. 例例4.4提交执行文件请读者思索：假设将提交执行文件请读者思索：

49、假设将程序中给程序中给ZP 赋值的语赋值的语 句做如下修正后再运转程序，会有什么结果句做如下修正后再运转程序，会有什么结果 输出，为什么输出，为什么? ZP = KS * 70 + ZY * 10 + CS * 202. 例例4.6提交执行文件提交执行文件3. 习题四，第二题编程题，第习题四，第二题编程题，第2题题 将源代码直接粘贴到答题框中将源代码直接粘贴到答题框中河南财经学院现代教育技术中心 郭清溥574.2 4.2 选择构造的程序设计选择构造的程序设计 选择构造，是一种常用的主选择构造，是一种常用的主要根本构造，是计算机科学用要根本构造，是计算机科学用来描画分支景象的重要手段。来描画分支

50、景象的重要手段。其特点是：根据所给定选择条其特点是：根据所给定选择条件为真件为真(即分支条件成立即分支条件成立)与否，与否，而决议从各实践能够的不同操而决议从各实践能够的不同操作分支中执行某一分支的相应作分支中执行某一分支的相应操作。并且任何情况下恒有操作。并且任何情况下恒有“无论分支多寡无论分支多寡,必择其一；纵必择其一；纵然分支众多然分支众多,仅选其一的特性。仅选其一的特性。河南财经学院现代教育技术中心 郭清溥58当条件为真当条件为真时，执行语时，执行语句组句组1；当；当条件为假时，条件为假时，顺序向下执顺序向下执行。行。 4.2 4.2 选择构造的程序设计选择构造的程序设计 块方式： I

51、f Then End If行方式： If Then 功能功能单分支构造格式单分支构造格式 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现河南财经学院现代教育技术中心 郭清溥594.2 4.2 选择构造的程序设计选择构造的程序设计单分支构造流程图单分支构造流程图语句组1条件True False条件语句组1TrueFalse 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现河南财经学院现代教育技术中心 郭清溥604.2 4.2 选择构造的程序设计选择构造的程序设计比较时会涉及到交换。比较时会涉及到交换。Y5TX3Y = 5X = 3T = 535交换间接交换间接交

52、换间接交换：间接交换： T = Y : Y = X : X = T 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现两个数据两个数据X，Y比较大小，使得比较大小，使得X大于大于Y。例如：例如：河南财经学院现代教育技术中心 郭清溥614.2 4.2 选择构造的程序设计选择构造的程序设计块方式块方式: :If X Y ThenIf X Y Then T = Y : Y = X : X = T T = Y : Y = X : X = TEndIfEndIf用下面的语句可以实现用下面的语句可以实现行方式行方式: :If X Y Then T = Y : Y = X : X = TIf

53、X Y Then T = Y : Y = X : X = T两个数据两个数据X，Y比较大小。使得比较大小。使得X大于大于Y。 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例如：例如：河南财经学院现代教育技术中心 郭清溥624.2 4.2 选择构造的程序设计选择构造的程序设计块方式：块方式： If If Then Then 1 Else Else 2 End If End If行方式：行方式： If If Then Then Else Else 2当条件为真时，当条件为真时，执行语句组执行语句组1；当条件为假时，当条件为假时，执行语句组执行语句组2 。 功能功能双分支构造格式

54、双分支构造格式 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现河南财经学院现代教育技术中心 郭清溥634.2 4.2 选择构造的程序设计选择构造的程序设计双分支构造流程图双分支构造流程图语句组2语句组1条件True False条件语句组1语句组2TrueFalse 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现河南财经学院现代教育技术中心 郭清溥64 x0y = 1 x=0 xxx1sin24.2 4.2 选择构造的程序设计选择构造的程序设计这个问题可有多种方法实现这个问题可有多种方法实现: 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例

55、如：例如：河南财经学院现代教育技术中心 郭清溥65 x0y = 1 x=0 xxx1sin24.2 4.2 选择构造的程序设计选择构造的程序设计If x 0 ThenIf x 0 Then y = Sin(x) + Sqr(x y = Sin(x) + Sqr(x * * x + 1) / x) x + 1) / x)ElseElse y = 1 y = 1End IfEnd If双分支构造双分支构造: : 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例如：例如：河南财经学院现代教育技术中心 郭清溥664.2 4.2 选择构造的程序设计选择构造的程序设计If x 0 The

56、n y = Sin(x)+ Sqr(x If x 0 Then y = Sin(x)+ Sqr(x * * x + 1)/x) x + 1)/x)If x = 0 Then y = 1If x = 0 Then y = 1单分支构造方法单分支构造方法1: 1: x0y = 1 x=0 xxx1sin2 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例如：例如：河南财经学院现代教育技术中心 郭清溥67 x0y = 1 x=0 xxx1sin24.2 4.2 选择构造的程序设计选择构造的程序设计y = 1y = 1If x 0 Then y = Sin(x)+ Sqr(x If

57、x 0 Then y = Sin(x)+ Sqr(x * * x + 1)/x) x + 1)/x)单分支构造方法单分支构造方法2:2:If x = 0 Then y = 1 If x = 0 Then y = 1 y = Sin(x)+ Sqr(x y = Sin(x)+ Sqr(x * * x + 1)/x) x + 1)/x)请思索:这样修正程序行吗？为什么？ 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例如：例如：y = Sin(x)+ Sqr(x y = Sin(x)+ Sqr(x * * x + 1)/x) x + 1)/x)If x = 0 Then y =

58、1 If x = 0 Then y = 1 河南财经学院现代教育技术中心 郭清溥68从甲地到乙地托运转李。行李分量在从甲地到乙地托运转李。行李分量在50千克以内时，每千千克以内时，每千克克0.80元；超越元；超越50千克时，其超越部分每千克千克时，其超越部分每千克1.10元。编写元。编写程序，计算托运转李千克时所付的运费。程序，计算托运转李千克时所付的运费。我们用我们用W表示行李的分量，表示行李的分量，F表示运费，依题意，表示运费，依题意，我们可以得到以下计算公式：我们可以得到以下计算公式： 0.8W (W 50 ) F= 500.8(W-50)1.1 (W 50) 4.2 4.2 选择构造的

59、程序设计选择构造的程序设计 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例例4.94.9分析：分析：河南财经学院现代教育技术中心 郭清溥69从甲地到乙地托运转李。行李分量在从甲地到乙地托运转李。行李分量在50千克以内时，每千千克以内时，每千克克0.80元；超越元；超越50千克时，其超越部分每千克千克时，其超越部分每千克1.10元。编写元。编写程序，计算托运转李千克时所付的运费。程序，计算托运转李千克时所付的运费。4.2 4.2 选择构造的程序设计选择构造的程序设计 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例例4.94.9由由InputBox输入输入行

60、李的分量，行李的分量，河南财经学院现代教育技术中心 郭清溥70从甲地到乙地托运转李。行李分量在从甲地到乙地托运转李。行李分量在50千克以内时，每千千克以内时，每千克克0.80元；超越元；超越50千克时，其超越部分每千克千克时，其超越部分每千克1.10元。编写元。编写程序，计算托运转李千克时所付的运费。程序，计算托运转李千克时所付的运费。4.2 4.2 选择构造的程序设计选择构造的程序设计 4.2.1 简单条件选择构造的程序实现简单条件选择构造的程序实现例例4.94.9河南财经学院现代教育技术中心 郭清溥71Private Sub cmdStart_Click()Private Sub cmdStart_Click() Dim W!, F! Dim W!, F! W = Val(InputBox(, W = Val(InputBox(, 输入行李的分量输入行李的分量) lblW.Caption = lblW.Caption = 行李重行李重: & W & : & W & 千克千克 If W = 50 Then If W 0) Y= 0 (X=0)