第3章 顺序结构程序设计ppt课件.pptx

《第3章 顺序结构程序设计ppt课件.pptx》由会员分享，可在线阅读，更多相关《第3章 顺序结构程序设计ppt课件.pptx（33页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第3章 顺序结构程序设计本章内容u理解理解程序设计的基本步骤、算法的基本概念及描述方法。程序设计的基本步骤、算法的基本概念及描述方法。u掌握赋值语句的格式与执行过程。掌握赋值语句的格式与执行过程。u掌握数据输入输出的方法。掌握数据输入输出的方法。u掌握顺序结构程序设计方法掌握顺序结构程序设计方法。2第第3 3章章 顺序顺序结构程序设计结构程序设计33.1 3.1 程序设计概述程序设计概述n 程序设计程序设计的基本步骤的基本步骤数据结构和算法是程序最主要的两个方面。数据结构和算法是程序最主要的两个方面。程序设计（程序设计（ProgrammingProgramming）的）的4 4个基本个基本步骤

2、：步骤：1 1分析问题，确定数学模型或分析问题，确定数学模型或方法方法2 2设计算法，画出流程图设计算法，画出流程图3 3选择编程工具，按算法编写程序选择编程工具，按算法编写程序4 4调试程序，分析输出结果调试程序，分析输出结果43.1 3.1 程序设计程序设计概述概述n 算法及其描述算法及其描述1 1算法的概念算法的概念 计算机计算机解决问题的方法和步骤，就是计算机解题的算解决问题的方法和步骤，就是计算机解题的算法。法。【例例3-13-1】求求 。算法：算法：（1 1）从键盘输入）从键盘输入a a，b b的值的值。（2 2）如果）如果abamaxxmax，则将，则将x x的的值赋给值赋给ma

3、xmax，否则，否则，maxmax值不变。值不变。（6 6）i i增加增加1 1。（7 7）返回到第（）返回到第（3 3）步。）步。（8 8）输出）输出maxmax中的数，此时中的数，此时maxmax中的数就是中的数就是1010个数中最大个数中最大的数。的数。3.1 3.1 程序设计程序设计概述概述62 2算法的算法的描述描述（1 1）用传统流程图描述算法）用传统流程图描述算法。 传统流程图用传统流程图用一些几何框图、流程线和文字说明表示各种类一些几何框图、流程线和文字说明表示各种类型的操作型的操作。 一般一般用矩形框表示进行某种用矩形框表示进行某种处理；处理；用菱形框表示用菱形框表示判断；判

4、断；用平用平行四边形框表示输入输出；流程图中用带箭头的流程线表示操作行四边形框表示输入输出；流程图中用带箭头的流程线表示操作的先后顺序。的先后顺序。【例例3-33-3】用传统流程图来描述例用传统流程图来描述例3-13-1和例和例3-23-2的算法。的算法。3.1 3.1 程序设计程序设计概述概述7（2 2）用结构化流程图描述算法。）用结构化流程图描述算法。 程序的三种基本结构。程序的三种基本结构。 顺序顺序结构、选择结构和循环结构结构、选择结构和循环结构。l 顺序结构依次顺序结构依次顺序执行不同的顺序执行不同的程序块。程序块。l 选择结构根据条件满足或不满足而去执行不同的选择结构根据条件满足或

5、不满足而去执行不同的程序块。程序块。顺序结构顺序结构选择结构选择结构3.1 3.1 程序设计程序设计概述概述8l循环结构亦称重复结构，是指重复执行某些循环结构亦称重复结构，是指重复执行某些操作。操作。循环循环结构分当型循环和直到型循环结构分当型循环和直到型循环两种。两种。 两两种循环结构的区别在于：当型循环结构是先判断条件，种循环结构的区别在于：当型循环结构是先判断条件，后执行循环体，而直到型循环结构则是先执行循环体，后后执行循环体，而直到型循环结构则是先执行循环体，后判断条件。直到型循环至少执行一次循环体，而当型循环判断条件。直到型循环至少执行一次循环体，而当型循环有可能一次也不执行循环体有

6、可能一次也不执行循环体。（a a）当型循环结构）当型循环结构 （b b）直到型循环结）直到型循环结构构3.1 3.1 程序设计程序设计概述概述9结构化流程图（结构化流程图（N-SN-S图）。图）。顺序结构的顺序结构的N-SN-S图图选择结构的选择结构的N-SN-S图图当当型循环结构型循环结构 直到直到型循环结构型循环结构3.1 3.1 程序设计程序设计概述概述10【例【例3-43-4】用】用N-SN-S图描述例图描述例3-13-1和例和例3-23-2的算法。的算法。用用N-SN-S图描述例图描述例3-13-1的算法的算法用用N-SN-S图描述例图描述例3-23-2的算法的算法3.1 3.1 程

7、序设计程序设计概述概述11n 结构化程序设计方法结构化程序设计方法 结构化结构化程序设计程序设计(Structured Programming)(Structured Programming)采用自采用自顶向下、逐步求精和模块化的分析顶向下、逐步求精和模块化的分析方法。方法。l自顶向下是指对设计的系统要有一个全面的理解，从自顶向下是指对设计的系统要有一个全面的理解，从问题的全局入手，把一个复杂问题分解成若干个相互问题的全局入手，把一个复杂问题分解成若干个相互独立的子问题，然后对每个子问题再作进一步的分解，独立的子问题，然后对每个子问题再作进一步的分解，如此重复，直到每个问题都容易解决为止。如此

8、重复，直到每个问题都容易解决为止。l逐步求精是指程序设计的过程是一个渐进的过程，先逐步求精是指程序设计的过程是一个渐进的过程，先把一个子问题用一个程序模块来描述，再把每个模块把一个子问题用一个程序模块来描述，再把每个模块的功能逐步分解细化为一系列的具体的功能逐步分解细化为一系列的具体步骤。步骤。l模块化是结构化程序的重要原则。所谓模块化就是把模块化是结构化程序的重要原则。所谓模块化就是把大程序按照功能分为较小大程序按照功能分为较小的模块程序的模块程序。3.1 3.1 程序设计程序设计概述概述123.23.2基本语句基本语句 用于用于将指定的值赋给变量或对象属性。语句格式如下：将指定的值赋给变量

9、或对象属性。语句格式如下：变量变量 表达式表达式 对象对象. .属性属性 表达式表达式例如例如：sRate sRate 0.10.1 TextBox1.Text TextBox1.Text 欢迎使用欢迎使用Visual Visual Basic .NETBasic .NET注意注意： 这里的这里的“”是赋值号，代表将右边表达式的值赋给左边的是赋值号，代表将右边表达式的值赋给左边的变量。变量。 变量或对象属性的类型应与表达式的类型相容变量或对象属性的类型应与表达式的类型相容。所谓相容是指变。所谓相容是指变量名或对象属性名能够正确存取赋值号右边的表达式的值。量名或对象属性名能够正确存取赋值号右边的

10、表达式的值。 如果变量未被赋值而直接引用，则数值型变量的值为如果变量未被赋值而直接引用，则数值型变量的值为0 0，字符型，字符型变量的值为空串，布尔型变量的值为变量的值为空串，布尔型变量的值为FalseFalse。 赋值运算包括复合赋值运算包括复合赋值赋值运算符：运算符：+=+=、-=-=、* *= =、=、/=/=、&=&=、=。例如：例如： x x += 1 += 1 等价于等价于x = x + 1 x = x + 1 y y * *= = a+b a+b 等价于等价于y = yy = y* *(a + b)(a + b) Label1.Text Label1.Text &= “&= “连

11、接连接字符串字符串“ “ 将将Label1Label1中的文字与赋值号右边的字符串连接后重新显示中的文字与赋值号右边的字符串连接后重新显示n 赋值语句赋值语句13【例例3-5】当当x 时时，求，求y 的的值。值。 程序程序如下：如下： Dim x, y, fz, fm As Single Const PI = 3.14159 x = Math.Sqrt(1 + PI) fz = Math.Abs(x - 5) + Math.Cos(47 * PI / 180) fm = 2 * Math.Log(x) + Math.Exp(2) y = fz / fm Label1.Text = y.ToSt

12、ring 3.23.2基本语句基本语句14n 数据输入数据输入3.23.2基本基本语句语句1 1用用InputBoxInputBox函数输入数据函数输入数据 将将输入的数据以返回值形式返回当前程序。输入的数据以返回值形式返回当前程序。函数格式函数格式如下：如下：InputBoxInputBox（提示信息（提示信息 ，对话框标题，对话框标题 ，默认值，默认值 ，横坐标，横坐标 ，纵坐标纵坐标 ）说明：说明： 提示信息为字符型表达式，用于提示用户该对话框要求输入何种提示信息为字符型表达式，用于提示用户该对话框要求输入何种数据数据。 对话框标题为字符型表达式，运行程序时该参数显示在对话框的对话框标题

13、为字符型表达式，运行程序时该参数显示在对话框的标题栏中标题栏中。 默认值为字符型表达式，用于显示在输入区内默认的输入信息默认值为字符型表达式，用于显示在输入区内默认的输入信息。 横坐标和纵坐标均为数值类型的可选参数。它们决定对话框左上横坐标和纵坐标均为数值类型的可选参数。它们决定对话框左上角点相对于屏幕左上角点（坐标原点角点相对于屏幕左上角点（坐标原点(0(0，0)0)）的位置坐标）的位置坐标。例如：例如： m = InputBox(m = InputBox(输入分数输入分数(0(0到之间到之间) )：, , 数据输入数据输入, 80), 80)152 2用用TextBoxTextBox控件输

14、入数据控件输入数据【例例3-63-6】运行运行时，输入梯形的上、下底和高，计算梯形的时，输入梯形的上、下底和高，计算梯形的面积。面积。Button3Button2Button13.23.2基本语句基本语句16Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickButton1.Click Dim a As Single, b As Single, h A

15、s Single Dim a As Single, b As Single, h As Single a = Val(TextBox1.Text) a = Val(TextBox1.Text) b = Val(TextBox2.Text) b = Val(TextBox2.Text) h = Val(TextBox3.Text) h = Val(TextBox3.Text) TextBox4.Text = (a + b) TextBox4.Text = (a + b) * * h / 2 h / 2 End Sub End SubPrivate Private Sub Button2_Clic

16、k(sender As Object, e As EventArgs) Handles Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickButton2.Click TextBox1.Text = TextBox1.Text = TextBox2.Text = TextBox2.Text = TextBox3.Text = TextBox3.Text = TextBox4.Text = TextBox4.Text = TextBox1.Focus() TextBox1.Focus()End SubE

17、nd SubPrivate Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickButton3.Click EndEnd End Sub End Sub3.23.2基本语句基本语句17n 数据输出数据输出 使用使用TextBoxTextBox控件、控件、LabelLabel控件、控件、MsgBoxMsgBox函数和函数和Write/PrintWrite/Print方法

18、来实现输出。方法来实现输出。【例【例3-73-7】在文本框】在文本框TextBox1TextBox1中输入任意一个英文字符，中输入任意一个英文字符，在文本框在文本框TextBox2TextBox2中显示该字符及其中显示该字符及其ASCIIASCII码码值。值。1 1用用TextBoxTextBox控件输出数据控件输出数据3.23.2基本语句基本语句18 Private Sub Button1_Click(sender As Object, e Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.

19、ClickAs EventArgs) Handles Button1.Click Dim Ch As Char Dim Ch As Char Ch = TextBox1.Text Ch = TextBox1.Text TextBox2.Text &= Ch & Space(6) & TextBox2.Text &= Ch & Space(6) & Str(Asc(Ch) & vbCrLfStr(Asc(Ch) & vbCrLf TextBox1.Focus() TextBox1.Focus() 将焦点设置在将焦点设置在文本框文本框TextBox1TextBox1 TextBox1.Select

20、All() TextBox1.SelectAll() 选中文本框选中文本框TextBox1TextBox1中所有内容中所有内容 End Sub End Sub3.23.2基本语句基本语句192 2用用LabelLabel控件输出数据控件输出数据【例【例3-83-8】利用标签输出图示窗体中的图形。】利用标签输出图示窗体中的图形。3.23.2基本语句基本语句20Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load Label1.Text = * & vbCrLf vbCrLf是回车换行是回车换行 Label

21、1.Text &= * & vbCrLf Label1.Text &= * & vbCrLf Label1.Text &= * & vbCrLf Label1.Text &= * & vbCrLf Label1.Text &= * & vbCrLfEnd Sub3.23.2基本语句基本语句213 3用用MsgBoxMsgBox函数输出函数输出数据数据MsgBoxMsgBox函数使用格式为：函数使用格式为：MsgBoxMsgBox（提示信息（提示信息 ，按钮类型，按钮类型，对话框标题，对话框标题 ）按钮类型参数的取值及功能按钮类型参数的取值及功能3.23.2基本语句基本语句22MsgBoxMsg

22、Box函数返回值函数返回值【例【例3-93-9】如】如图示图示，单击窗体上的，单击窗体上的“生成随机数生成随机数”按钮，按钮，产生一个产生一个0 05 5之间的随机数，显示与该数对应类型的对话之间的随机数，显示与该数对应类型的对话框，单击该对话框中的某一个按钮，在标签上显示各次返框，单击该对话框中的某一个按钮，在标签上显示各次返回值。回值。3.23.2基本语句基本语句23Private Sub Button1_Click(sender As Object, e As Private Sub Button1_Click(sender As Object, e As EventArgs) Hand

23、les Button1.ClickEventArgs) Handles Button1.Click Dim m As Integer, n As Integer Dim m As Integer, n As Integer Static k As Integer Static k As Integer Randomize() Randomize() n = Int(Rnd() n = Int(Rnd() * * 6) 6) k = k + 1 k = k + 1 m = MsgBox( m = MsgBox(第第 & k & & k & 次生成的数为：次生成的数为： & n, & n, n,

24、MsgBoxn, MsgBox函数示例函数示例) Label1.Text &= m & vbCrLf Label1.Text &= m & vbCrLf Label4.Text &= n & vbCrLf Label4.Text &= n & vbCrLf End Sub End Sub3.23.2基本语句基本语句244 4用用PrintPrint、WriteWrite、WriteLineWriteLine方法输出数据方法输出数据 PrintPrint、WriteLineWriteLine输出换行，输出换行，WriteWrite输出不换行。方法输出不换行。方法如下：如下：Debug.Print

25、(text)Debug.Print(text)Console.WriteConsole.Write（表达式）（表达式）Console.WriteLineConsole.WriteLine（表达式）（表达式）例如：例如：Debug.Print(Visual Basic) Debug.Print(Visual Basic) WriteWrite(Visual Basic) (Visual Basic) WriteLineWriteLine(Visual Basic)(Visual Basic)3.23.2基本语句基本语句253.33.3顺序结构顺序结构程序应用程序应用举例举例【例【例3-103-1

26、0】鸡兔同笼问题。小明数了数圈在一起的鸡和兔】鸡兔同笼问题。小明数了数圈在一起的鸡和兔共有共有a a个头，个头， b b只脚，问圈里鸡和兔各有多少只？只脚，问圈里鸡和兔各有多少只？设圈里鸡和兔各有设圈里鸡和兔各有x x、y y只。根据题意得到一个二元一次方程只。根据题意得到一个二元一次方程组：组：简化方程组，得到简化方程组，得到26程序如下：程序如下：Private Sub Button1_Click(sender As Object, e As Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button

27、1.ClickEventArgs) Handles Button1.Click Dim a As Integer, b As Integer, x As Dim a As Integer, b As Integer, x As Integer, y As IntegerInteger, y As Integer a = Val(TextBox1.Text) a = Val(TextBox1.Text) b = Val(TextBox2.Text) b = Val(TextBox2.Text) x = (4 x = (4 * * a - b) / 2 a - b) / 2 y = (b - 2

28、y = (b - 2 * * a) / 2 a) / 2 MsgBox( MsgBox(鸡有鸡有 & x & & x & 只只 & vbCrLf & & vbCrLf & 兔有兔有 & y & & y & 只只)End SubEnd Sub3.33.3顺序结构顺序结构程序应用程序应用举举例例273.33.3顺序顺序结构程序应用举例结构程序应用举例【例【例3-113-11】调用随机函数生成两个】调用随机函数生成两个5050100100之间的随机之间的随机整数存于变量整数存于变量a a和和b b，用标签控件输出这两个数。单击，用标签控件输出这两个数。单击“交换交换”按钮，将按钮，将a a和和b b

29、的内容交换后再的内容交换后再输出输出。28Dim a As Integer， b As Integer， t As IntegerDim s_out As StringPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click t = a a = b b = t s_out = 交换后：交换后： + Chr(10) + Chr(13) s_out = s_out & Space(10) & a & a & Space(10) & b & b Label2.Text = s_out End S

30、ubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load Randomize() a = Int(Rnd() * 51) + 50 b = Int(Rnd() * 51) + 50 s_out = 交换前：交换前： + Chr(10) + Chr(13) s_out = s_out & Space(10) & a & a & Space(10) & b & b Label1.Text = s_out Label2.Text = End Sub3.33.3顺序顺序结构程序应用举例结构程序应用举例293.3

31、3.3顺序顺序结构程序应用举例结构程序应用举例将将a a和和b b的内容交换也可采用以下方法：的内容交换也可采用以下方法：Private Sub Button1_Click(sender As Object, e As Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickEventArgs) Handles Button1.Click a = a + b a = a + b b = a - b b = a - b a = a - b a = a - b s_out = s_out =

32、交换后：交换后： + Chr(10) + Chr(13) + Chr(10) + Chr(13) s_out = s_out & Space(10) & a s_out = s_out & Space(10) & a & a & & a & Space(10) & bSpace(10) & b & b & b Label2.Text = s_out Label2.Text = s_outEnd SubEnd Sub303.33.3顺序顺序结构程序应用举例结构程序应用举例【例例3-123-12】调用随机函数生成一个调用随机函数生成一个0 0100000100000之间的随之间的随机整数，计算并输

33、出该数最高位数字与最低位数字之和机整数，计算并输出该数最高位数字与最低位数字之和31整型整型变量只能存储变量只能存储3276832767之间的整数，因此必之间的整数，因此必须定义一个长整型变量来存储所生成的数。须定义一个长整型变量来存储所生成的数。程序如下：程序如下：Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click Dim a As Long Dim a1 As Integer, a2 As Integer, n As Integer Randomize() a = Int(Rnd() * 10

34、0001) Label3.Text = a n = Len(Str(a) - 1 转换后的字符串包含符号位，因此数字的有效数据位数转换后的字符串包含符号位，因此数字的有效数据位数比字符串长度小比字符串长度小1 a1 = Int(a / 10 (n - 1) 求最高位求最高位 a2 = a Mod 10 求最低位求最低位 Label4.Text = a1 + a2End Sub3.33.3顺序顺序结构程序应用举例结构程序应用举例32【例【例3-133-13】从输入的一个字符串中找出指定字符】从输入的一个字符串中找出指定字符( (如逗如逗号号) )，再以此字符为界将字符串拆分成两个字符串，再以此字

35、符为界将字符串拆分成两个字符串。窗体。窗体，用文本框用文本框TextBox1TextBox1输入字符串，用文本框输入字符串，用文本框TextBox2TextBox2输入分输入分隔符。隔符。3.33.3顺序顺序结构程序应用举例结构程序应用举例33程序如下：程序如下：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As String, b As String, c As String, n As Integer a = TextBox1.Text n = InStr(a, TextBox2.Text) 查找分隔符的位置查找分隔符的位置 b = Mid(a, 1, n - 1) 取分隔符左边部分取分隔符左边部分 c = Mid(a, n + 1) 取分隔符右边部分取分隔符右边部分 Label3.Text = Label3.Text & Space(2) & b & Chr(13) & Space(16) & cEnd Sub3.33.3顺序顺序结构程序应用举例结构程序应用举例