《第2章顺序结构程序设计ppt课件.ppt》由会员分享，可在线阅读，更多相关《第2章顺序结构程序设计ppt课件.ppt（35页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第2章 顺序结构程序设计第2章 顺序结构程序设计目录目录2.1 程序的基本编写方法程序的基本编写方法2.2 赋值语句赋值语句2.3 数据的输入数据的输入2.4 数据的输出数据的输出2.5 常用函数常用函数2.1 2.1 程序的基本编写方法程序的基本编写方法 程序设计遵循一个基本方法，称为程序设计遵循一个基本方法，称为IPO方法。方法。 I: Input（输入），程序的输入。（输入），程序的输入。 P: Process（处理），程序的主要逻辑。（处理），程序的主要逻辑。 O: Output（输出），程序的输出。（输出），程序的输出。设计技巧：设计技巧： 使用三种基本的逻辑结构：使用三种基本的逻辑
2、结构： 顺序结构顺序结构 选择结构选择结构 循环结构循环结构 自顶向下的设计。自顶向下的设计。 模块的独立性。模块的独立性。 结构化程序设计结构化程序设计 顺序结构：顺序结构： 程序执行是按照语句的书写次序一条一条的执行程序执行是按照语句的书写次序一条一条的执行。语句段语句段1语句段语句段2语句段语句段3a= 2b = 2c = a+ b2.2 2.2 赋值语句赋值语句 a=val(textbox1.text) b=val(textbox2.text) c= a + b格式格式2: 对象对象.属性名属性名=表达式表达式1. 1. 简单赋值语句简单赋值语句格式格式1: 变量名变量名=表达式表达式
3、textbox3.text =str(c ) label1.text=button1.text说明：说明：（1）赋值语句兼有计算与赋值的双重功能，它首先计算赋值号右边）赋值语句兼有计算与赋值的双重功能，它首先计算赋值号右边“表表达式达式”的值，然后把结果赋给赋值号左边的的值，然后把结果赋给赋值号左边的“变量名变量名”或或“对象对象.属性属性名名”。（2）在赋值语句中，）在赋值语句中，“=”是赋值号，与数学上的等号意义不一样。是赋值号，与数学上的等号意义不一样。（3）若右边表达式类型与左边变量类型不同时，系统会进行适当的类型）若右边表达式类型与左边变量类型不同时，系统会进行适当的类型转换。转换。
4、 （4）Visual Basic.NET中的语句通常按中的语句通常按“一行一句，一句一行一行一句，一句一行”的规则书的规则书写，但也允许多个语句放在同一行中，各语句之间用写，但也允许多个语句放在同一行中，各语句之间用冒号冒号隔开。隔开。 a=3:b=4:c=5（5）续行符： _ 空格+下划线 _ 注释语句 注释内容注释内容说明：说明：（1）注释语句是非执行语句，仅对程序的有关内）注释语句是非执行语句，仅对程序的有关内容起注释作用。容起注释作用。（2）注释语句通常放在过程、模块的开头作为标）注释语句通常放在过程、模块的开头作为标题，也可以放在执行语句的后面。在这种情况下，题，也可以放在执行语句的
5、后面。在这种情况下，注释语句必须是最后一个语句。注释语句必须是最后一个语句。（3）注释语句不能放在续行符的后面。）注释语句不能放在续行符的后面。 2. 2. 复合赋值语句复合赋值语句其一般格式为：其一般格式为：变量名变量名 复合赋值运算符复合赋值运算符 表达式表达式例如：例如：（1）n +=1 等价于等价于 n=n+1（2）n *=2+3 等价于等价于 n=n * *（2+3 ）目的目的:简化代码，提高编译效果。简化代码，提高编译效果。功能为：功能为：先计算右边表达式的值，然后与左边的变量进行相应的运算，最后把结果赋值给变量。先计算右边表达式的值，然后与左边的变量进行相应的运算，最后把结果赋值
6、给变量。复合赋值运算符运算符运算符示例示例作用作用=X=4X=X4*=Y*=2Y=Y*2/=Y/=XY=Y/X=Y=XY=YX+=i+=1i=i+1-=i-=1i=i-1&=Textbox1.Text &= “A”Textbox1.Text=Textbox1.Text & “A”2.3 2.3 数据的输入数据的输入 2.3.1 直接赋值输入直接赋值输入 r=1 s=3.14*r*r利用控件交互输入利用控件交互输入1. 利用利用textbox控件输入控件输入2. 利用利用inputbox()函数函数1 1TextBoxTextBox控件控件在输入数据处可使用在输入数据处可使用TextBox控件控
7、件使用使用Label控件在窗体上显示提示信息控件在窗体上显示提示信息可以在一个界面上输入多个数据。可以在一个界面上输入多个数据。输入矩形的长和宽，求矩形的面积。输入矩形的长和宽，求矩形的面积。 LabelLabe2Labe3TextBox1TextBox2TextBox32. InputBox2. InputBox函数函数 InputBox函数的语法为：函数的语法为： InputBox(prompt,title, DefaultResponse,xpos,ypos) 含义：含义： （1）prompt：对话框内显示的信息，用来提示用户输入。：对话框内显示的信息，用来提示用户输入。 换行：换行：
8、Vbcrlf | vbNewLine | chr(10)+chr(13) （2）title：对话框的标题，显示在对话框顶部的标题区。：对话框的标题，显示在对话框顶部的标题区。 （3）defaultResponse：文本框的缺省信息。：文本框的缺省信息。 （4）xpos,ypos：是两个整数值，分别用来确定对话框与屏幕：是两个整数值，分别用来确定对话框与屏幕左边界的距离左边界的距离(xpos)和上边界的距离（和上边界的距离（ypos）。）。 例例2-5 输入圆的半径，求圆的面积。输入圆的半径，求圆的面积。 程序如下：程序如下： Dim r, s As Double r = val(InputBo
9、x(请输入圆的半径：请输入圆的半径：, 求圆的面积求圆的面积) s =math.pi * r 2 TextBox1.Text = str(s) 2.4 2.4 数据的输出数据的输出 常用方法有：常用方法有：TextBox控件控件 Label控件控件 MsgBox() 函数函数 在文件操作中，可以用：在文件操作中，可以用：Write()Writeline()Print()1. PrintLine() 3 MsgBox() 格式格式: MsgBox(Prompt ,buttons, Title)Prompt：消息对话框：消息对话框提示信息提示信息，必需项必需项。Buttons：按钮类型按钮类型，可
10、选项。，可选项。Title：消息对话框：消息对话框标题栏信息标题栏信息，可选项。，可选项。n思考练习：思考练习： 利用利用inputbox()从键盘输入从键盘输入4个数，个数，编写程序，计算并利用编写程序，计算并利用msgbox()输输出出这这4个数的平均值，保留个数的平均值，保留3位小数。位小数。注意：注意： 每执行一次每执行一次InputBox( )函数只能输入一个值，如果需要输入多函数只能输入一个值，如果需要输入多个值，则必须多次调用个值，则必须多次调用InputBox( )函数。这时，通常与循环语句、函数。这时，通常与循环语句、数组结合使用。数组结合使用。 对话框显示的信息，若要分多行
11、显示，必须加回车换行符，即对话框显示的信息，若要分多行显示，必须加回车换行符，即VB系统常量系统常量vbcrlf。2.5 常用内部函数 1数学函数函数名称函数名称用法用法功能说明功能说明AbsAbsAbsAbs（x x）返回绝对值返回绝对值|x|x|SinSinSinSin（x x）返回返回 sinxsinxCosCosCosCos（x x）返回返回 cosxcosxTanTanTanTan（x x）返回返回 tgxtgxAtanAtanAtanAtan（x x）返回返回 atgxatgxSqrtSqrtSqrtSqrt（x x）返回返回x x的平方根的平方根ExpExpExpExp（x x）
12、返回返回 e ex xLogLogLogLog（x x）返回返回 lnxlnxLog10Log10Log10Log10（x x）返回返回 lgxlgxSignSignSignSign（x x）返回返回x x的符号，的符号，x0 x0时为时为1 1x0 x0时为时为-1-1，x=0 x=0时为时为0 0Math类() 数学函数的使用数学函数的使用 ： Math类的方法在使用的时候格式为：类的方法在使用的时候格式为： Math.函数名函数名 如：如：y=3+math.abs(x) 代码编辑窗口的代码编辑窗口的首行，首行，即在即在“Public Class Form1”的上面的上面加上加上 Impo
13、rts System.Math 将将System.Math类导入系统，然后直接使用函数名。类导入系统，然后直接使用函数名。 Math类同时还提供了像类同时还提供了像e、 这样的数学中的常数，这样的数学中的常数， 如如 Math.E、Math.PI。例题例题2-6 p422-6 p42 已知三角形的三个边已知三角形的三个边a,b,c，求三角形的面积。，求三角形的面积。L=(a+b+c)/2S=sqrt(L*(L-a)*(L-b)*(L-c)知识扩展：将下列数学表达式写成vb 表达式： 已知有如下分段函数：已知有如下分段函数： 5x+3x2+6x1/40 (x1)y= ln(x+1)+lg(x+1
14、)+3x15 (1x2) e(x-1) +sin(2x+1)/x+tg(x) (x2)依次输入依次输入X的值的值0.5、1.7、4.5，计算其对应的函数值，计算其对应的函数值Y。2转换函数转换函数函数名称函数名称用法用法功能说明功能说明FixFix Fix Fix（x x）返回返回x x的整数部分，舍掉小数部分的整数部分，舍掉小数部分IntInt Int Int（x x）返回不大于返回不大于x x的最大整数的最大整数HexHexHexHex（x x）将十进制数将十进制数x x转换为十六进制数转换为十六进制数OctOct Oct Oct（x x）将十进制数将十进制数x x转换为八进制数转换为八进
15、制数AscAsc Asc Asc（str1str1）返回字符串返回字符串str1str1中第一个字符的中第一个字符的ASCIIASCII码码ChrChr Chr Chr（x x）返回数值返回数值x x所对应的所对应的ASCIIASCII字符字符ValVal Val Val（str1str1）返回字符串返回字符串str1str1中的数字，当遇到第一个不能转换的中的数字，当遇到第一个不能转换的字符时停止字符时停止StrStr Str(x) Str(x)将将x x转换为字符串类型转换为字符串类型Fix函数和Int函数 Fix函数函数返回的是返回的是舍掉小数部分的整数部分；舍掉小数部分的整数部分； I
16、nt函数函数求得的是求得的是不大于函数参数的最大整数。不大于函数参数的最大整数。 对于参数大于或等于零时，两者返回的值相同，而当参对于参数大于或等于零时，两者返回的值相同，而当参数小于零时，两者返回的值绝对值相差数小于零时，两者返回的值绝对值相差1。例如：例如： Dim fix1, fix2, int1, int2 As Integer fix1 = Fix(7.6) 结果为结果为7 fix2 = Fix(-7.6) 结果为结果为-7 int1 = Int(7.6) 结果为结果为7 int2 = Int(-7.6) 结果为结果为-8Asc函数和 Chr函数 Asc函数函数求指定字符的求指定字符
17、的ASCII码码 Chr函数函数求某一求某一ASCII码所对应的字符码所对应的字符Dim chrA As StringDim ascA As Integer chrA = Chr(65) ascA = Asc(“A”) chr(asc(“A”)=? chr(asc(“A”)+1)=?3.字符串函数字符串函数函数名称函数名称用法用法功能说明功能说明LcaseLcaseLcaseLcase（str1str1）将字符串将字符串str1str1全部转换为全部转换为小写小写UcaseUcaseUcaseUcase（str1str1）将字符串将字符串str1str1全部转换为全部转换为大写大写LenLen
18、Len(str1)Len(str1)返回字符串返回字符串str1str1的的长度长度MidMidMid(str1,n1,n2)Mid(str1,n1,n2)返回字符串返回字符串str1str1中从中从n1n1指定的指定的位置开始的位置开始的n2n2个个字符字符LeftLeftLeft(str1,n)Left(str1,n)返回字符串返回字符串str1str1左边的左边的n n个字符个字符RightRightRight(str1,n)Right(str1,n)返回字符串返回字符串str1str1右边的右边的n n个字符个字符Dim x as string, n as integerabcdeAB
19、CDE5Bcdx=Ucase(“aBcdE”)n=len(“aBcdE”)x=mid(“aBcdE”,2,3)x=Lcase(“aBcdE”)Left和和 Right函数如果用于函数如果用于 Windows 窗体或其他任何具有窗体或其他任何具有 Left和和 Right 属性的类时，前面必须加上属性的类时，前面必须加上Microsoft.VisualBasic，即写为，即写为Microsoft.VisualBasic. Left或或Microsoft.VisualBasic. Right的形式。的形式。 x=Microsoft.VisualBasic.Left( aBcdE , 2) aBx=
20、Microsoft.VisualBasic.right( aBcdE , 3) cdE Left和 Right函数4. 时间和日期函数函数名称函数名称用法用法功能说明功能说明YearYearYear(DateValue)Year(DateValue)返回返回DateDate类型类型DateValueDateValue中的年份中的年份MonthMonthMonth(DateValue)Month(DateValue)返回返回DateDate类型类型DateValueDateValue中的月份中的月份DayDayDay(DateValue)Day(DateValue)返回返回DateDate类型类
21、型DateValueDateValue中的日期中的日期HourHourHour(DateValue)Hour(DateValue)返回返回DateDate类型类型DateValueDateValue中的小时中的小时MinuteMinuteMinute(DateValue)Minute(DateValue)返回返回DateDate类型类型DateValueDateValue中的分钟中的分钟SecondSecondSecond(DateValue)Second(DateValue)返回返回DateDate类型类型DateValueDateValue中的秒中的秒 Dim datevalue As D
22、ate datevalue = #3/15/2019 9:16:28 # MsgBox(Year(datevalue) 返回返回2019 MsgBox(Month(datevalue) 返回返回3 MsgBox(Microsoft.VisualBasic.Day(datevalue) 返回返回15 MsgBox(Hour(datevalue) 返回返回9 MsgBox(Minute(datevalue) 返回返回16 MsgBox(Second(datevalue) 返回返回28 Now( ):获取本机的日期和时间。获取本机的日期和时间。5随机数函数随机数函数函数名称函数名称用法用法功能说明功
23、能说明RandomizeRandomizeRandomize(x)Randomize(x)以数以数x x为为“种子数种子数”初始化随机数初始化随机数发生器发生器RndRndRnd( x)Rnd( x)返回一个返回一个00，1 1）区间的随机数区间的随机数如果x小于等于0，则每次调用Rnd(x)会产生同样的数；如果x大于0或缺省，则每次调用Rnd(x)会产生不同的随机数，但重新启动运行后又是同样的随机序列。因此，在调用 Rnd 之前，先使用无参数的 Randomize 函数初始化随机数生成器。产生产生n1,n2之间的随机整数：之间的随机整数： Int( (n2-n1+1)* Rnd()+n1)如
24、如0100之间的随机整数之间的随机整数: Int( (100-0+1)* Rnd()+0) Int( (101)* Rnd() 6.几个特殊符号的用途：. 点（对象的属性或方法间隔符）: 冒号（语句间隔符）_ 下划线( 对象_事件） _ 空格+下划线 （续行符） 单引号（注释符）Vbcrlf | vbNewLine | chr(10)+chr(13) 换行命令实验2 常用函数的用法 1. 编写程序，利用inputbox()从键盘输入4个整数，计算这4个数的平均值,并利用msgbox()输出显示平均值，保留3位小数。 2. 实践教程p12 已知三角形的三边长A,B,C，求三角形的面积S。 3. 实践教程 p16： 创建“随机数平均值”应用程序，程序运行界面如图2-1所示。单击“生成随机数”按钮，随机生成3个正整数，分别是2位数、3位数、4位数，单击“求平均值”按钮，计算它们的平均值。结果保留两位小数。 4.实践教程p18 编写程序测试常用字符串函数的用法。 设计图2-4所示的程序界面，设计文本框1，输入原始字符串，设计文本框2和文本框3，分别输入某些函数运算中需要的数值n1和n2；设计多个按钮，分别实现Asc()、Chr()、Len()、Lcase()、Ucase()、Mid()、Left()、Right()函数的运算；设计文本框4，输出运算结果。