VB程序设计基础顺序结构课件.pptx

第第四四章章 V VB B程程序序设设计计基基础础本章学习目标：本章学习目标：p掌握常用输入输出语句和函数；掌握常用输入输出语句和函数；p掌握三种基本控制结构及相关控制掌握三种基本控制结构及相关控制结构语句；结构语句；p熟悉常用算法；熟悉常用算法；第1页/共75页第第四四章章 V VB B程程序序设设计计基基础础第第4 4章章 VBVB程序设计基础程序设计基础4.1 VB的程序语句规则的程序语句规则4.2 顺序结构顺序结构4.3 选择结构选择结构4.4 循环结构循环结构4.5 其它控制语句其它控制语句4.6 综合应用综合应用第2页/共75页第第四四章章 V VB B程程序序设设计计基基础础4.1 VB的程序语句的程序语句n语句书写规则语句书写规则1.VB代码不区分字母的大小写；代码不区分字母的大小写；系统保留字自动转换每个单词的首字母大写系统保留字自动转换每个单词的首字母大写用户自定义变量、过程名以第一次为准用户自定义变量、过程名以第一次为准2.语句书写自由；语句书写自由；一行可书写几句语句，之间用一行可书写几句语句，之间用冒号冒号分隔分隔一句语句可分若干行书写，用续行符一句语句可分若干行书写，用续行符 _ 连接连接一行一行=255个字符个字符使用缩进格式反映代码的逻辑结构和嵌套关系使用缩进格式反映代码的逻辑结构和嵌套关系3.注释有利于程序的维护和调试；注释有利于程序的维护和调试；整行注解整行注解 或或 语句后注解语句后注解Rem 整行注解整行注解（不可加在语句后）（不可加在语句后）第3页/共75页第第四四章章 V VB B程程序序设设计计基基础础方法方法2：利用多个字符函数实现替换功能利用多个字符函数实现替换功能 例例 模仿字处理软件中字符串替换功能。模仿字处理软件中字符串替换功能。text1text3text2text4Click事件事件第4页/共75页第第四四章章 V VB B程程序序设设计计基基础础 Private Sub Command1_Click()Dim s1$,s2$,s3$,s4$s1=Text1.Text：s2=Text2.Text：s3=Text3.TextDim n1%,n2%,Lstring$,Rstring$Rem n1保存被替换串开始的位置保存被替换串开始的位置,n2保存被替换串之后的位置保存被替换串之后的位置 Rem Lstring保存左子串保存左子串,Rstring保存右子串保存右子串n1=InStr(s1,s2)被替换串开始的位置被替换串开始的位置Lstring=Left(s1,n1-1)取左子串取左子串n2=n1+Len(s2)计算被替换串之后的位置计算被替换串之后的位置Rstring=Mid(s1,n2)s4=Lstring&s3&Rstring 左子串、新串、右子串连接左子串、新串、右子串连接Text4.Text=s4End Sub一行写多个语句，用一行写多个语句，用冒号冒号分隔分隔整行注释整行注释整行注解整行注解 或或 语句后注解语句后注解第5页/共75页第第四四章章 V VB B程程序序设设计计基基础础4.1 VB的程序语句规则的程序语句规则n命令格式中的符号约定命令格式中的符号约定（1）：必选参数表示符，该项必须根据具体问题必选参数表示符，该项必须根据具体问题选择一个确定的参数，在输入时选择一个确定的参数，在输入时“”本身不要输入；本身不要输入；（2）：可选参数表示符，表示方括号中的内容可根可选参数表示符，表示方括号中的内容可根据需要选或不选；据需要选或不选；（3）|：多取一表示符，含义为多取一表示符，含义为“或者选择或者选择”，必须选，必须选择其中之一；择其中之一；（4）：包含多中取一的各项；包含多中取一的各项；（5）,：表示同类项目的重复出现；表示同类项目的重复出现；第6页/共75页第第四四章章 V VB B程程序序设设计计基基础础第第4 4章章 VBVB程序设计基础程序设计基础4.1 VB的程序语句规则的程序语句规则 4.2 顺序结构顺序结构4.3 选择结构选择结构4.4 循环结构循环结构4.5 其它控制语句其它控制语句4.6 综合应用综合应用第7页/共75页第第四四章章 V VB B程程序序设设计计基基础础n程序特点：各语句按出现的程序特点：各语句按出现的先后次序先后次序依次执行依次执行。n顺序结构程序中常用的语句：顺序结构程序中常用的语句：赋值语句赋值语句数据的输入输出语句数据的输入输出语句4.2 顺序结构顺序结构第8页/共75页第第四四章章 V VB B程程序序设设计计基基础础n程序特点：各语句按出现的程序特点：各语句按出现的先后次序先后次序依次依次执行。执行。语句语句1语句语句21.顺序结构顺序结构程序特点：程序特点：第9页/共75页第第四四章章 V VB B程程序序设设计计基基础础 顺序结构示例顺序结构示例(第第3章已经介绍）章已经介绍）n设计如图所示界面。单击设计如图所示界面。单击“随机产生随机产生”按钮时，生成一按钮时，生成一个个110之间的随机数，在之间的随机数，在“半径半径”文本框中显示，并文本框中显示，并计算圆的周长与面积，显示计算圆的周长与面积，显示在相应的文本框中，如图所在相应的文本框中，如图所示；示；Private Sub Command1_Click()Dim r%定义原始变量定义原始变量Dim s!,l!定义结果变量定义结果变量Const PI As Single=3.1415926Randomizer=Int(Rnd*(10-1+1)+1)Text1.Text=rl=r*2*PIs=r*r*PIText2.Text=lText3.Text=sEnd Sub第10页/共75页第第四四章章 V VB B程程序序设设计计基基础础n赋值语句赋值语句n数据的输入输出数据的输入输出2.顺序结构程序中常用的语句：顺序结构程序中常用的语句：第11页/共75页第第四四章章 V VB B程程序序设设计计基基础础n赋值语句可以给变量赋值或设定属性值。赋值语句可以给变量赋值或设定属性值。例：例：X=1X=1 Text1.text=Text1.text=“欢迎学习欢迎学习VB!VB!”Form1.caption=Form1.caption=“窗体举例窗体举例“n 赋值语句形式赋值语句形式形式形式1：变量名变量名=表达式表达式形式形式2：对象名：对象名.属性属性=表达式表达式n作用作用：计算右边表达式的值计算右边表达式的值,然后赋给左边的变量然后赋给左边的变量例如例如：a=3*6+1 计算后赋值计算后赋值 Text1.Text=清除文本框的内容清除文本框的内容Lab1.Caption=“欢迎使用欢迎使用VB”设置标签标题设置标签标题4.2.1 赋值语句赋值语句第12页/共75页第第四四章章 V VB B程程序序设设计计基基础础赋值语句示例赋值语句示例(第第3章已经介绍）章已经介绍）n设计如图所示界面。单击设计如图所示界面。单击“随机产生随机产生”按钮时，生成一按钮时，生成一个个110之间的随机数，在之间的随机数，在“半径半径”文本框中显示，并文本框中显示，并计算圆的周长与面积，显示计算圆的周长与面积，显示在相应的文本框中，如图所在相应的文本框中，如图所示；示；Private Sub Command1_Click()Dim r%定义原始变量定义原始变量Dim s!,l!定义结果变量定义结果变量Const PI As Single=3.1415926Randomizer=Int(Rnd*(10-1+1)+1)Text1.Text=rl=r*2*PIs=r*r*PIText2.Text=lText3.Text=sEnd Sub赋值赋值语句语句第13页/共75页第第四四章章 V VB B程程序序设设计计基基础础n注意注意：赋值号左边的变量只能是：赋值号左边的变量只能是变量变量或或控件属性控件属性，不能是常量、常数符号、表达式，下面均为不能是常量、常数符号、表达式，下面均为错误错误的的赋值语句：赋值语句：Now=x+y 左边是表达式左边是表达式(函数函数)5=sqr(s)+x+y 左边是常量左边是常量4.2.1 赋值语句赋值语句第14页/共75页第第四四章章 V VB B程程序序设设计计基基础础4.2.1 赋值语句赋值语句n 赋值语句的两个常用形式赋值语句的两个常用形式 累加累加例如：例如：sum=sum+x 累加累加 假设假设sum原值是原值是100，x值是值是10，执行后执行后sum值是多少？值是多少？计数计数例如：例如：n=n+1 计数计数第15页/共75页第第四四章章 V VB B程程序序设设计计基基础础累加举例累加举例1：单击窗体，窗体的高和宽：单击窗体，窗体的高和宽都增加都增加500缇缇Private Sub Form_Click()Form1.Height=Form1.Height+500Form1.Width=Form1.Width+500End Sub第16页/共75页第第四四章章 V VB B程程序序设设计计基基础础累加举例累加举例2：移动足球：移动足球n将窗体背景设置为白色，在窗体上添加一图像框将窗体背景设置为白色，在窗体上添加一图像框（Image），用来显示），用来显示“足球足球.jpg”图片；图片；n运行窗体后，在文本框中输入一数值，运行窗体后，在文本框中输入一数值，单击单击表示移动方表示移动方向的某向的某按钮按钮，使图片能按照按钮上指示方向，移动文本框，使图片能按照按钮上指示方向，移动文本框中数值所指定的距离（单位为缇）。中数值所指定的距离（单位为缇）。n提示：提示：图像框图像框image显示的图形通过显示的图形通过Picture属性设置；属性设置；按钮上的按钮上的“”、“”、“”、“”符号通过软符号通过软键盘输入；键盘输入；图片的位置改变，即距离上边的距离和左边的距离在变图片的位置改变，即距离上边的距离和左边的距离在变化，通过化，通过Top属性和属性和Left属性设置。注意控件没有属性设置。注意控件没有Below和和Right属性。属性。第17页/共75页第第四四章章 V VB B程程序序设设计计基基础础累加举例累加举例2：移动足球：移动足球lefttop第18页/共75页第第四四章章 V VB B程程序序设设计计基基础础累加举例累加举例2：移动足球：移动足球Private Sub Command1_Click()Image1.Top=Image1.Top-Val(Text1.Text)End SubPrivate Sub Command2_Click()Image1.Left=Image1.Left-Val(Text1.Text)End SubPrivate Sub Command3_Click()Image1.Left=Image1.Left+Val(Text1.Text)End SubPrivate Sub Command4_Click()Image1.Top=Image1.Top+Val(Text1.Text)End Sub第19页/共75页第第四四章章 V VB B程程序序设设计计基基础础赋值语句用于计数举例：如图赋值语句用于计数举例：如图：在文本框中显示单击窗体的次数 Option ExplicitDim n%Private Sub Form_Click()n=n+1Text1.Text=nEnd Sub窗体级变量：在该窗体的任意过窗体级变量：在该窗体的任意过程中都有效！程中都有效！第20页/共75页第第四四章章 V VB B程程序序设设计计基基础础使用赋值语句注意问题使用赋值语句注意问题n注意注意：“=“两边数据类型不同时的处理两边数据类型不同时的处理 （右边转左边）（右边转左边）1)当表达式为数值型并与变量精度不同时，会自动强制转换当表达式为数值型并与变量精度不同时，会自动强制转换成左边变量的精度成左边变量的精度:例如：例如：Dim n%n=3.5Form1.Print n结果结果n的值为的值为42)当表达式为数字型字符串，左边变量是数值类型时，自动当表达式为数字型字符串，左边变量是数值类型时，自动转换成数值类型再赋值；例如：转换成数值类型再赋值；例如：Dim n%n=“123”n的值为的值为123n =“12ab3”出错出错第21页/共75页第第四四章章 V VB B程程序序设设计计基基础础3)当把逻辑型值赋值给数值型变量时，当把逻辑型值赋值给数值型变量时，True转换为转换为-1，False转换为转换为0；反之，非；反之，非0转换为转换为True，0转换为转换为False例如：例如：Dim n%n=TrueForm1.Print n n的值为的值为-1例如：例如：Dim n1 As Boolean,n2 As Booleann1=123n2=0Form1.Print n1=;n1 n1=trueForm1.Print n2=;n2 n2=false4)非字符型的值赋给字符型变量，自动转换为字符型。非字符型的值赋给字符型变量，自动转换为字符型。Text1.text=12使用赋值语句注意问题使用赋值语句注意问题第22页/共75页第第四四章章 V VB B程程序序设设计计基基础础4.2.2 数据的输入和输出数据的输入和输出n数据的输入（数据的输入（2 2种方法）种方法）（1 1）利用文本框实现数据的输入：）利用文本框实现数据的输入：属性属性Text可用作输入可用作输入（2 2）利用函数利用函数Inputbox()Inputbox()输入数据输入数据n数据的输出数据的输出 （5 5种方法）种方法）1.1.利用文本框实现数据输出：利用文本框实现数据输出：属性属性Text可用作输出可用作输出2.2.利用标签实现数据的输出：利用标签实现数据的输出：属性属性Caption可用作输出可用作输出3.3.利用利用窗体的窗体的PrintPrint方法实现数据的输出：在窗体上输出方法实现数据的输出：在窗体上输出4.4.利用利用MsgboxMsgbox过程输出数据过程输出数据,或利用函数或利用函数MsgBox()MsgBox()输出数据，输出数据，第23页/共75页第第四四章章 V VB B程程序序设设计计基基础础文本框用于文本框用于 数据的输入和输出举例数据的输入和输出举例文本框：文本框：属性属性Text可用作输入和输出可用作输入和输出文本框用于输出数据文本框用于输出数据文本框用于输入数据文本框用于输入数据第24页/共75页第第四四章章 V VB B程程序序设设计计基基础础文本框用于文本框用于 数据的输入和输出数据的输入和输出-代码代码Option ExplicitConst PI As Single=3.1415926窗体级符号常量，在本窗体的任何一个事件程序中都有效窗体级符号常量，在本窗体的任何一个事件程序中都有效Private Sub Command1_Click()Dim r%,s!r=Text1.Text text1用于数据输入用于数据输入s=Val(r)*Val(r)*PIText2.Text=s text2用于数据输出用于数据输出End SubPrivate Sub Command2_Click()Dim r%,l!r=Text1.Text text1用于数据输入用于数据输入l=Val(r)*2*PIText3.Text=l text3用于数据输入用于数据输入End Sub第25页/共75页第第四四章章 V VB B程程序序设设计计基基础础问题：问题：此例如何改为用标签作为输出？此例如何改为用标签作为输出？第26页/共75页第第四四章章 V VB B程程序序设设计计基基础础标签用于数据的输出举例标签用于数据的输出举例标签的标签的属性属性Caption可用作输出可用作输出标签用于数据输出标签用于数据输出文本框用于数据输入文本框用于数据输入第27页/共75页第第四四章章 V VB B程程序序设设计计基基础础标签用于数据的输出举例标签用于数据的输出举例-代码：代码：Option ExplicitConst PI As Single=3.1415926窗体级符号常量，在本窗体的任何一个事件程序中都有效窗体级符号常量，在本窗体的任何一个事件程序中都有效Private Sub Command1_Click()Dim r%,s!r=Text1.Text text1用于数据输入用于数据输入s=Val(r)*Val(r)*PILabel2.Caption=s label2用于数据输出用于数据输出End SubPrivate Sub Command2_Click()Dim r%,l!r=Text1.Text text1用于数据输入用于数据输入l=Val(r)*2*PILabel3.Caption=l label3用于数据输出用于数据输出End Sub第28页/共75页第第四四章章 V VB B程程序序设设计计基基础础问题：问题：此例如何改为将结果在窗体上输出？此例如何改为将结果在窗体上输出？第29页/共75页第第四四章章 V VB B程程序序设设计计基基础础Print方法用于方法用于 数据的输出举例数据的输出举例Option ExplicitConst PI As Single=3.1415926窗体级符号常量，在本窗体的任何一个事件程序中都有效窗体级符号常量，在本窗体的任何一个事件程序中都有效Private Sub Command1_Click()Dim r%,s!r=Text1.Text text1用于数据输入用于数据输入s=Val(r)*Val(r)*PIForm1.Print 圆的面积为：圆的面积为：;s 在窗体上输出数据在窗体上输出数据End SubPrivate Sub Command2_Click()Dim r%,l!r=Text1.Text text1用于数据输入用于数据输入l=Val(r)*2*PIForm1.Print 圆的周长为圆的周长为:;l 在窗体上输出数据在窗体上输出数据End Sub第30页/共75页第第四四章章 V VB B程程序序设设计计基基础础窗体的窗体的Print方法使用说明方法使用说明1n作用作用:在对象上输出信息。在对象上输出信息。n格式格式1（最常用）：（最常用）：对象对象.Print 输出列表输出列表;|,说明：说明：对象：对象：对象名，缺省为窗体名对象名，缺省为窗体名输出列表：输出列表：用逗号分开的表达式用逗号分开的表达式分号：分号：定位在上一个被显示的字符之后定位在上一个被显示的字符之后逗号：逗号：定位在下一个打印区开始处定位在下一个打印区开始处(每区每区14列列)Print语句尾若无分号或逗号，输出后自动换行语句尾若无分号或逗号，输出后自动换行第31页/共75页第第四四章章 V VB B程程序序设设计计基基础础对象对象.PrintSpc(n)|Tab(n)输出列表输出列表;|,说明：说明：对象：对象：对象名，缺省为窗体名对象名，缺省为窗体名输出列表：输出列表：用逗号分开的表达式用逗号分开的表达式分号：分号：定位在上一个被显示的字符之后定位在上一个被显示的字符之后逗号：逗号：定位在下一个打印区开始处定位在下一个打印区开始处(每区每区14列列)Print语句尾若无分号或逗号，输出后自动换语句尾若无分号或逗号，输出后自动换行行Spc(n)Spc(n)函数函数：从当前位置起插入从当前位置起插入n n个空格个空格Tab(n)Tab(n)函数函数：从最左端开始计算的第从最左端开始计算的第n n列列窗体的窗体的Print方法使用说明方法使用说明2第32页/共75页第第四四章章 V VB B程程序序设设计计基基础础例例：在第在第2行第行第5列显示列显示“张三丰收苹果张三丰收苹果”;接着显示接着显示5个个空格；再显示空格；再显示 张三丰收苹果张三丰收苹果#Private Sub Command1_Click()PrintForm1.Print Tab(5);张三丰收苹果张三丰收苹果;Space(5);张三丰收苹果张三丰收苹果End SubPrint方法示例方法示例第33页/共75页第第四四章章 V VB B程程序序设设计计基基础础n例例：在第在第2行第行第3列显示列显示5个个*，6个空格，个空格，2个个#print print tab(3);string(5,*);spc(6);string(2,#)Print方法示例方法示例第34页/共75页第第四四章章 V VB B程程序序设设计计基基础础4.2.2 数据的输入和输出数据的输入和输出以下介绍本次课重点：以下介绍本次课重点：利用输入输出函数实现数利用输入输出函数实现数据的输入输出据的输入输出（1 1）利用输入函数）利用输入函数Inputbox()Inputbox()输入数据输入数据（2 2）利用输出）利用输出MsgBoxMsgBox过程输出数据，过程输出数据，（3 3）利用输出函数）利用输出函数MsgBox()MsgBox()输出数据，输出数据，New!第35页/共75页第第四四章章 V VB B程程序序设设计计基基础础（1 1）利用输入函数）利用输入函数Inputbox()Inputbox()输入数据输入数据n作用：作用：打开一个对话框，等待用户输入，打开一个对话框，等待用户输入，返回返回字符串类型字符串类型的输入值。的输入值。n形式：形式：InputBox(InputBox(提示信息提示信息 ,对话框标题对话框标题,默认值默认值）如果要输入的数据经如果要输入的数据经常是某个数据，个别常是某个数据，个别情况下不是，则可将情况下不是，则可将该数据设置为默认值，该数据设置为默认值，以减少输入量。以减少输入量。标题显示在对标题显示在对话框的标题区，话框的标题区，如省略，标题如省略，标题区域显示工程区域显示工程名。名。提示用户要输入提示用户要输入的数据，注意要的数据，注意要用引号引起来用引号引起来第36页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox使用说明使用说明1-最简形式最简形式n 最简单的使用形式：最简单的使用形式：InputBox(InputBox(提示信息）提示信息）InputBox(输入边长输入边长a:)工程名工程名第37页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox使用说明使用说明-最简形式最简形式n如果需要存放函数的返回值，一般使用形式为：如果需要存放函数的返回值，一般使用形式为：Dim x$x=InputBoxInputBox(提示信息提示信息 ,对话框标题对话框标题,默认值默认值）或者：或者：Dim x%x=val(InputBoxInputBox(提示信息提示信息),对话框标题对话框标题,默认值默认值）第38页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox使用说明使用说明1-最简形式例最简形式例n 最简单的使用形式：最简单的使用形式：InputBox(InputBox(提示信息）提示信息）Dim a!a=val(InputBox(输入边长输入边长a:)工程名工程名第39页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox使用说明使用说明2-完整形式完整形式 InputBox InputBox(提示信息提示信息 ,标题标题 ,默认值默认值）n例：例：Dim a!a=Val(InputBox(“输入边长输入边长a:”,“输入输入,10)第40页/共75页第第四四章章 V VB B程程序序设设计计基基础础计算三角形面积：输入计算三角形面积：输入3 3条边长，按照条边长，按照t=(a+b+c)/2，s=s=InputBox使用举例使用举例第41页/共75页第第四四章章 V VB B程程序序设设计计基基础础计算三角形面积：输入计算三角形面积：输入3条边长，按照条边长，按照t=(a+b+c)/2，s=Private Sub Command1_Click()Dim a!,b!,c!,t!,s!a=Val(InputBox(输入边长输入边长a:)b=Val(InputBox(输入边长输入边长b:)c=Val(InputBox(输入边长输入边长c:)t=(a+b+c)/2s=Sqr(t*(t-a)*(t-b)*(t-c)Form1.Print 三角形的三条边分别为：三角形的三条边分别为：,a,b,cForm1.Print 三角形的面积为：三角形的面积为：,sEnd Sub第42页/共75页第第四四章章 V VB B程程序序设设计计基基础础同前例：但界面改变同前例：但界面改变编写一个求三角形面积的程序：编写一个求三角形面积的程序：计算三角形面积：输入计算三角形面积：输入3 3条条边长，按照边长，按照t=(a+b+c)/2 s=s=n单击输入按钮，输入三条边长单击输入按钮，输入三条边长n单击计算按钮单击计算按钮,在窗体上输出计算结果在窗体上输出计算结果第43页/共75页第第四四章章 V VB B程程序序设设计计基基础础代码：代码：Option ExplicitDim a!,b!,c!Private Sub Command1_Click()a=Val(InputBox(输入边长输入边长a:)b=Val(InputBox(输入边长输入边长b:)c=Val(InputBox(输入边长输入边长c:)End SubPrivate Sub Command2_Click()Dim t!,s!t=(a+b+c)/2s=Sqr(t*(t-a)*(t-b)*(t-c)Form1.Print 三角形的三条边分别为：三角形的三条边分别为：,a,b,cForm1.Print 三角形的面积为：三角形的面积为：,sEnd Sub窗体级变量：在该窗体的任意过窗体级变量：在该窗体的任意过程中都有效！程中都有效！过程级变量：只在定过程级变量：只在定义它的过程中有效！义它的过程中有效！第44页/共75页第第四四章章 V VB B程程序序设设计计基基础础n提示项不能省略提示项不能省略。n若要多行提示，可在每行行末加回车换行若要多行提示，可在每行行末加回车换行vbCrLfvbCrLf。如：如：a=InputBox(请输入请输入+VbCrLf+本月的工资金额本月的工资金额)InputBox的的提示提示参数注意：参数注意：第45页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox例题例题（略，可自学）（略，可自学）n例例:创建如图所示程序，要求：创建如图所示程序，要求：单击单击“输入数值输入数值”按钮时，依次弹出按钮时，依次弹出2次输入框，供用次输入框，供用户输入数据，然后在窗体上输出相关信息，如图。户输入数据，然后在窗体上输出相关信息，如图。单击单击“求和求和”按钮，求出输入值的和并显示。按钮，求出输入值的和并显示。单击单击“求平均求平均”按钮，求出输入值的平均值并显示。按钮，求出输入值的平均值并显示。第46页/共75页第第四四章章 V VB B程程序序设设计计基基础础Option ExplicitDim a%,b%Private Sub Command1_Click()a=Val(InputBox(请输入请输入a:)b=Val(InputBox(请输入请输入b:)Form1.Print 您输入的数值是：您输入的数值是：;a,bEnd SubPrivate Sub Command2_Click()Dim s%s=a+bForm1.Print 您输入数值的和是：您输入数值的和是：;sEnd SubPrivate Sub Command3_Click()Dim aver!aver=(a+b)/2Form1.Print 您输入数值的平均值是：您输入数值的平均值是：;averEnd Sub代代码码：第47页/共75页第第四四章章 V VB B程程序序设设计计基基础础使用过程或函数输出数据使用过程或函数输出数据以下介绍以下介绍（2 2）利用）利用MsgBoxMsgBox过程输出数据，过程输出数据，（3 3）利用函数）利用函数MsgBox()MsgBox()输出数据输出数据第48页/共75页第第四四章章 V VB B程程序序设设计计基基础础（2）（）（3）MsgBox过程和过程和MsgBox函数函数nMsgBox过程形式：过程形式：MsgBox 提示信息提示信息,按钮值按钮值,对话框标题对话框标题nMsgBox函数的使用形式：函数的使用形式：变量变量%=MsgBox(提示信息提示信息,按钮值按钮值,对话框标题对话框标题)作用：打开一个信息框，等待用户选择一个按作用：打开一个信息框，等待用户选择一个按钮，如果程序中需要返回值，则使用函数，如钮，如果程序中需要返回值，则使用函数，如程序中不需要返回值，仅仅是要显示一个信息程序中不需要返回值，仅仅是要显示一个信息框，等待选择按钮，则使用过程。框，等待选择按钮，则使用过程。MsgBox函数返回所选函数返回所选按钮的值按钮的值，MsgBox过过程程不返回值不返回值第49页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox按钮设置按钮设置第第3个按钮为默认个按钮为默认512VBDefaultButton3第第2个按钮为默认个按钮为默认 56VBDefaultButton2第第1个按钮为默认个按钮为默认 0VBDefaultButton1默认默认按钮按钮 信息图标信息图标 64VBInformation警告信息图标警告信息图标 48VBExclamation询问信息图标询问信息图标 32VBQuestion关键信息图标关键信息图标 16VBCritical图标图标类型类型 重试、取消按钮重试、取消按钮 5VBRetryCancel是、否按钮是、否按钮 4VBYesNo是、否、取消按钮是、否、取消按钮 3VBYesNoCancel终止、重试、忽略按钮终止、重试、忽略按钮 2VBAbortRetryIgnore确定、取消按钮确定、取消按钮 1VBOkCancel确定按钮确定按钮(缺省缺省)0VBOkOnly按钮按钮数目数目 描描 述述值值内内 部部 常常 数数分组分组 第50页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox过程使用说明过程使用说明-最简形式最简形式最简形式的使用最简形式的使用-只有提示信息：只有提示信息：例：例：MsgBox 密码错误！密码错误！按钮值省略按钮值省略-只有确定按钮，相当于按钮值为只有确定按钮，相当于按钮值为0对话框标题省略对话框标题省略-工程名作为标题工程名作为标题第51页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox过程使用说明过程使用说明-完整形式完整形式例：例：MsgBox 密码错误！密码错误！,1,密码验证密码验证“第52页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox过程使用说明过程使用说明-完整形式完整形式例：例：MsgBox 密码错误！密码错误！,2,密码验证密码验证3.第53页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox过程使用说明过程使用说明-完整形式完整形式按钮值可以与图标类型值相加。例：按钮值可以与图标类型值相加。例：MsgBox 密码错误！密码错误！,2+48,密码验证密码验证或或(等价）：等价）：MsgBox 密码错误！密码错误！,2+vbExclamation,密码验证密码验证或或(等价）：等价）：MsgBox 密码错误！密码错误！,VBAbortRetryIgnore+vbExclamation,密码验证密码验证第54页/共75页第第四四章章 V VB B程程序序设设计计基基础础例：用例：用Msgbox过程输出计算结果过程输出计算结果计算三角形面积：输入计算三角形面积：输入3 3条边长，按照条边长，按照t=(a+b+c)/2，s=s=第55页/共75页第第四四章章 V VB B程程序序设设计计基基础础代码：代码：Private Sub Command1_Click()Dim a!,b!,c!,t!,s!a=Val(InputBox(输入边长输入边长a:)b=Val(InputBox(输入边长输入边长b:)c=Val(InputBox(输入边长输入边长c:)t=(a+b+c)/2s=Sqr(t*(t-a)*(t-b)*(t-c)MsgBox 三角形的三条边分别为：三角形的三条边分别为：&a&b&cMsgBox 三角形的面积为：三角形的面积为：&sEnd Sub第56页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox函数的使用形式：函数的使用形式：变量变量%=MsgBox(提示信息提示信息,按钮值按钮值,对话框标题对话框标题)MsgBox函数所选按钮返回值函数所选按钮返回值 内部常数内部常数返回值返回值被单击的按钮被单击的按钮vbOk1确定确定vbCancel2取消取消vbAbort3终止终止vbRetry4重试重试vbIgnore5忽略忽略vbYes6是是vbNo7否否第57页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox函数使用举例：函数使用举例：Dim i!i=MsgBox(数据输入错误！数据输入错误！,5+48,警告警告)按钮为重试和取消按钮为重试和取消对话框标题对话框标题为为”警告警告“如果用户单击了重试按钮，如果用户单击了重试按钮，I 的值为的值为4如果用户单击了取消按钮，如果用户单击了取消按钮，I 的值为的值为2第58页/共75页第第四四章章 V VB B程程序序设设计计基基础础MsgBox按钮设置特别说明按钮设置特别说明按钮值的表示可用按钮数目的值与图标类型按钮值的表示可用按钮数目的值与图标类型的值相加表示有几个按钮，是什么图标的值相加表示有几个按钮，是什么图标例如，使用函数例如，使用函数MsgBox():i=MsgBox(数据输入错误！数据输入错误！,5+48,警告警告)等价于：等价于：i=MsgBox(密码错误密码错误,VBRetryCancel+vbExclamation,警告警告)或：或：i=MsgBox(密码错误密码错误,5+vbExclamation,警告警告)或：或：i=MsgBox(密码错误密码错误,VBRetryCancel+48,警告警告)第59页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox函数函数、MsgBox过程的使用举例过程的使用举例1n程序运行时界面如图程序运行时界面如图n当单击输入半径时显示如图输入对话框当单击输入半径时显示如图输入对话框n当单击计算面积按钮时，将所计算的面积用如图信息框当单击计算面积按钮时，将所计算的面积用如图信息框显示出来。显示出来。第60页/共75页第第四四章章 V VB B程程序序设设计计基基础础InputBox函数函数、MsgBox过程的使用举例过程的使用举例1Option ExplicitDim r%Private Sub Command1_Click()r=Val(InputBox(请输入圆的半径：请输入圆的半径：)End SubPrivate Sub Command2_Click()Dim s!s=r*r*3.1415926MsgBox 圆的面积是：圆的面积是：&sEnd Sub第61页/共75页第第四四章章 V VB B程程序序设设计计基基础础n同前例，增加功能：如果用户误输入了一个小于同前例，增加功能：如果用户误输入了一个小于0的数，的数，要求程序显示错误提示信息，如图要求程序显示错误提示信息，如图n对错误提示信息，如果用户单击确定按钮，重新输入半对错误提示信息，如果用户单击确定按钮，重新输入半径；如果用户单击取消按钮，则结束程序运行。径；如果用户单击取消按钮，则结束程序运行。InputBox函数、函数、MsgBox函数函数的使用举例的使用举例第62页/共75页第第四四章章 V VB B程程序序设设计计基基础础Option ExplicitDim r%Private Sub Command1_Click()D