VB第三章表达式.ppt

《VB第三章表达式.ppt》由会员分享，可在线阅读，更多相关《VB第三章表达式.ppt（76页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、VB第三章表达式第三章表达式12021/2/24要求：要求：变量名必须以字母或汉字开头，后跟字母、变量名必须以字母或汉字开头，后跟字母、数字、下划线组成的字符串不区别大小写数字、下划线组成的字符串不区别大小写 不能与关键字同名不能与关键字同名(dim,CAPTION等等 不不区分大小写，长度区分大小写，长度255字符字符举例举例:re,me date,$re,r$e,A1_b,:re,me date,$re,r$e,A1_b,工资工资1 1、变量的命名、变量的命名什么是变量：什么是变量：在程序运行过程中可以改变的量，在程序运行过程中可以改变的量，用来存放程序运行过程中所用到的数用来存放程序运行

2、过程中所用到的数据或中间结果的，每一个变量都有自据或中间结果的，每一个变量都有自己的名字，称为：变量名己的名字，称为：变量名 例：例：a1=5 sum1=5*a1+10 h=“中国地图中国地图 第三章第三章VBVBVBVB根本语言根本语言根本语言根本语言蒿社平蒿社平二、变量与常量二、变量与常量22021/2/24 第三章第三章VBVBVBVB根本语言根本语言根本语言根本语言2 2、变量声明、变量声明 变量是在程序运行过程中其值可发生变化的量。变量是在程序运行过程中其值可发生变化的量。使用之前，一般需先声明变量名和其类型，以决定使用之前，一般需先声明变量名和其类型，以决定系统为它分配存储单元。系

3、统为它分配存储单元。(1)(1)声明声明过程变量过程变量:只能在定义它的过程执行只能在定义它的过程执行期间有效期间有效,其它过程不能使用其它过程不能使用.数值型数值型;字符型字符型;布尔型布尔型;对象型对象型;变体型变体型举例举例:Dim name As String:Dim name As String name=“Lihua name=“Lihua name=“name=“确定确定 .STATIC .STATIC 变量名变量名 AS AS 类型类型(声明为静态部分变量，即使过程完毕，变量值仍保存声明为静态部分变量，即使过程完毕，变量值仍保存 DIM 变量名变量名 AS 类型类型举例举例:P

4、rivate Sub Form_Click()Private Sub Form_Click()Static)Dim i As Integer Static)Dim i As Integer i=i+1 i=i+1 Print i Print iEnd SubEnd Sub蒿社平蒿社平二、变量与常量二、变量与常量32021/2/24二、变量与常量二、变量与常量2 2模块级变量：模块级变量：同一窗体模块内所有的过程都能共享同一窗体模块内所有的过程都能共享。方法方法:在代码窗口在代码窗口“对象列表框对象列表框-选择选择“通用通用 格式：格式：Dim 变量名变量名 As 类型类型 或或 Private

5、 变量名变量名 As 类型类型不同过程中可以使用一样的变量名吗？不同过程中可以使用一样的变量名吗？(3)(3)公用公用变量变量：在整个应用程序中都有效。在整个应用程序中都有效。格式格式:Public 变量名变量名 As 类型类型注意注意:(1)(1)变量作用范围不同时变量作用范围不同时,变量同名互不影响变量同名互不影响;(2)(2)一行可以定义多个变量一行可以定义多个变量,但必须用但必须用,号分开号分开Private Sub Form_Click()Static i As Integer i=i+1 Print iEnd SubPrivate Sub Command1_Click()Dim i

6、 As String i=aaaaaa Print iEnd SubDim i As IntegerPrivate Sub Form_Click()i=i+1 Print iEnd SubPrivate Sub Command1_Click()Print iEnd Sub 第三章第三章蒿社平蒿社平VBVBVBVB根本语言根本语言根本语言根本语言42021/2/24变量的显示声明和隐式声明：变量的显示声明和隐式声明：隐式声明隐式声明：变量不经声明可以直接使用，根据：变量不经声明可以直接使用，根据赋给它的值来决定变量的类型。赋给它的值来决定变量的类型。强迫显式声明变量：强迫显式声明变量：Optio

7、n Explicit Option Explicit“工具工具“选项选项“编辑器编辑器要求变量声明要求变量声明 第三章第三章蒿社平蒿社平二、变量与常量二、变量与常量VBVBVBVB根本语言根本语言根本语言根本语言52021/2/24在程序运行中不变的量，在在程序运行中不变的量，在VBVB中有三种常量：中有三种常量：直接常量：直接常量：各种类型的常数值。各种类型的常数值。例：例：176176、23.6723.67、8978&8978&、0.65E5.0.65E5.内部常量内部常量:应用程序和控件提供的内部的或系统定义的常应用程序和控件提供的内部的或系统定义的常量量 例：例：BorderStyle

8、BorderStyle属性中，常数属性中，常数0(None)0(None)代表无代表无边框，边框，1(fixe)1(fixe)代表单线框等。代表单线框等。例如：系统常量：例如：系统常量：Vbred Vbred 红色、红色、Vbgreen Vbgreen 绿色绿色 第三章第三章3 3、常量、常量蒿社平蒿社平二、变量与常量二、变量与常量VBVBVBVB根本语言根本语言根本语言根本语言62021/2/24 第三章第三章VBVBVBVB根本语言根本语言根本语言根本语言3 3、常量、常量蒿社平蒿社平 例例:Const pi=3.1416:Const pi=3.1416 Private Const N A

9、s Integer=6 Private Const N As Integer=6 Const D=#3/22/80#Const D=#3/22/80#Private Const F=“Private Const F=“河北工程学院河北工程学院可用逗号分隔可用逗号分隔,在一行中放置多个常数说明在一行中放置多个常数说明.Const a as integer=23,b as double=1.23e-5 Const a as integer=23,b as double=1.23e-5一旦已定义常数一旦已定义常数,就可将其放置在代码中就可将其放置在代码中.例例:If T=D Then Print:I

10、f T=D Then Print生日快乐生日快乐!“!“命名规那么同变量名命名规那么同变量名取值为数字或字符串的取值为数字或字符串的式子式子,不能使用函数调用不能使用函数调用常量和变量的主要区别：常量是不能改变其数值的常量是不能改变其数值的使用常量比定义成变量的程序运行速度快使用常量比定义成变量的程序运行速度快自定义常量自定义常量：用：用ConstConst语句声明的符号的常量语句声明的符号的常量 Public|Private Public|PrivateConst Const 常量名常量名AsAs类型类型=表达式表达式二、变量与常量二、变量与常量72021/2/241.1.算术运算符和算术表

11、达式算术运算符和算术表达式5656页页+-*/MOD(+-*/MOD(求两个数相除的余数求两个数相除的余数表达式表达式:-52+5MOD3 103-10/3:-52+5MOD3 103-10/32.2.字符运算符和字符表达式字符运算符和字符表达式包括：包括：+&+&都是将两个字符串连起来都是将两个字符串连起来表达式表达式:“234:“234+8 “asd+8 “asd&“56g&“56g +&“123“3 “1233 “1233“123 3 126 “1233 123 3 126 “1233“123a 3 出错 “123a3 3.3.关系运算符和关系表达式关系运算符和关系表达式5757页页 运

12、算结果为运算结果为“FALSE逻辑型的值逻辑型的值.表达式表达式:1.15+234*8 2.“art:1.15+23 asyasy 3.“3.“中国中国“China“China 4.“red 4.“redlike“rsefdlike“rsefd 5.“student 5.“student Like“?tu*Like“?tu*运算符：进展各种运算的符号。运算符：进展各种运算的符号。表达式：进展各种运算的式子。表达式：进展各种运算的式子。包括包括:,=,=,=,Like:,=,=,=,Like匹配运算匹配运算 第三章第三章蒿社平蒿社平三、运算符和表达式三、运算符和表达式VBVBVBVB根本语言根本

13、语言根本语言根本语言82021/2/244.4.逻辑运算符和逻辑表达式逻辑运算符和逻辑表达式 常用的逻辑运算符：常用的逻辑运算符：AND:AND:逻辑与逻辑与,两边的值均为真时两边的值均为真时,结果为真结果为真,否那么结果否那么结果 为假为假OR:OR:逻辑或逻辑或,两边的值有一个为真两边的值有一个为真,结果为真结果为真,否那么结否那么结 果为假果为假NOT:NOT:对表达式的值取反对表达式的值取反.只有一个参数只有一个参数.逻辑表达式：将取值为逻辑值的式子用逻辑运算逻辑表达式：将取值为逻辑值的式子用逻辑运算符连起来的式子，其结果为逻辑值符连起来的式子，其结果为逻辑值truetrue、fals

14、e)false)x100 and y100 and y100 or x+y100 or x+y90 and 英语英语=85 Not(数学数学80)Or 物理物理78 and “asd=6000 Then x=0:Cls:i=Int(Rnd(1)*11)End Sub习题：动态绘制彩色正弦和余弦曲线习题：动态绘制彩色正弦和余弦曲线112021/2/246.常用内部函数常用内部函数 为了编程更简单为了编程更简单VB系统提供了一大批标准函系统提供了一大批标准函数供你使用，包括：数学函数、转换函数、字符串数供你使用，包括：数学函数、转换函数、字符串函数、日期函数以及格式输出函数。本节我们只介函数、日期

15、函数以及格式输出函数。本节我们只介绍其中最简单和最常用的一些函数，假如编程中用绍其中最简单和最常用的一些函数，假如编程中用到其它函数直接从书中查阅或从到其它函数直接从书中查阅或从“帮助查阅即可。帮助查阅即可。为了讲解函数方便，约定：为了讲解函数方便，约定：N-表示数值表达式表示数值表达式 C-表示字符表达式表示字符表达式 D-表示日期表达式表示日期表达式 第三章第三章蒿社平蒿社平三、运算符和表达式三、运算符和表达式VBVBVBVB根本语言根本语言根本语言根本语言122021/2/24(1)数学函数数学函数：Sin(N)正弦函数，要求自变量为弧度正弦函数，要求自变量为弧度 Cos(N)余弦函数，

16、要求自变量为弧度余弦函数，要求自变量为弧度 Exp(N)-相当于数学中的相当于数学中的 eN.Log(N)-相当于数学中求以相当于数学中求以e为底为底N的对数的对数 Abs(N)-相当于数学中求相当于数学中求N的绝对值的绝对值 Sqr(N)-相当于数学中求相当于数学中求N的算术平方根的算术平方根,N为正为正 Rnd(N)-产生产生01之间的一个随机小数之间的一个随机小数举例举例例子：例子：（1）将代数式：）将代数式：X2+|Y|+e3+sin300-写成写成VB表达式：表达式：x*x+Abs(y)+exp(3)+sin(30*3.14159/180)-sqr(x*y)(2)产生产生150470

17、之间的随机整数之间的随机整数 Int(Rnd*320+150)因为因为RND函数产生大于等于函数产生大于等于0并且小于并且小于1的小数，既：的小数，既：0Rnd1.所以上式产生的数不包括所以上式产生的数不包括470这个数，要包括这个数，要包括这个数，上式应写成：这个数，上式应写成：Int(Rnd*321+150)通式：通式：Int(Rnd*(B-A+1)+A)xy 第三章第三章蒿社平蒿社平6.常用内部函数常用内部函数三、运算符和表达式三、运算符和表达式VBVBVBVB根本语言根本语言根本语言根本语言132021/2/246.常用内部函数常用内部函数三、运算符和表达式三、运算符和表达式(2)转换

18、函数转换函数：Asc(C)产生产生C的值的第一个字符的的值的第一个字符的Ascll码值码值 Asc(“art)=97 Asc(“B)=66 Chr$(N)将将Ascll码值转换成字符码值转换成字符.Chr$(65)=“A Int(N)-产生不大于产生不大于N的最大整数的最大整数.Int(32.8)=32 Int(-4.7)=-5 Val(C)将数值字符串转换成数值将数值字符串转换成数值 Val(“45.76)=45.76举例举例 例题例题：对于任意输入的汉字和字符转换成：对于任意输入的汉字和字符转换成Ascii码，码，反之亦然反之亦然Private Sub Command1_Click()Te

19、xt2=Asc(Text1)End SubPrivate Sub Command2_Click()Text1=Chr$(Text2)End Sub 第三章第三章蒿社平蒿社平VBVBVBVB根本语言根本语言根本语言根本语言142021/2/24(3)字符串操作函数字符串操作函数：Len(C)产生产生C的值的字符个数。的值的字符个数。Len(“地理地理abc)=5 Mid$(C,n1,n2)从从C中的第中的第n1个字符开场取出个字符开场取出 n2个个字符字符.Mid$(“student,3,3)=“ude Left$(C,n)-从从C中取出中取出 最左边最左边n个字符个字符.Left$(“stud

20、ent,4)=“stud Right$(C,n)从从C中取出中取出 最右边最右边n个字符个字符 Right$(“student,4)=“dent 第三章第三章蒿社平蒿社平6.常用内部函数常用内部函数三、运算符和表达式三、运算符和表达式VBVBVBVB根本语言根本语言根本语言根本语言152021/2/24(4)日期函数日期函数：Date()产生系统当前日期。产生系统当前日期。Now 产生系统当前日期和时间产生系统当前日期和时间 Time 产生系统当前时间产生系统当前时间.Private Sub Form_Click()Print Date Print Now Print Time End Sub

21、 举例举例例题：制作一个模拟电子时钟例题：制作一个模拟电子时钟Private Sub Timer1_Timer()Text1=Time()End Sub 第三章第三章蒿社平蒿社平6.常用内部函数常用内部函数三、运算符和表达式三、运算符和表达式VBVBVBVB根本语言根本语言根本语言根本语言162021/2/24 举例举例(5)输出格式函数略输出格式函数略(6)Shell函数函数 本函数主要用于在本函数主要用于在VB调用各种应用程序调用各种应用程序.格式：格式：Shell(“应用程序名称，窗口类型应用程序名称，窗口类型 窗口类型：表示程序执行时窗口的大小，取窗口类型：表示程序执行时窗口的大小，取

22、04，6的整数值。的整数值。1-正常、正常、2-最小化、最小化、3-最大化最大化 例：例：I=Shell(c:windowscalc.exe,1)j=Shell(c:Command ,1)将括号去掉可以做为语句使用：将括号去掉可以做为语句使用：例如：例如：Shell c:windowscalc.exe,1 第三章第三章蒿社平蒿社平6.常用内部函数常用内部函数三、运算符和表达式三、运算符和表达式VBVBVBVB根本语言根本语言根本语言根本语言172021/2/24 书写vb应用程序应遵循一定的书写规那么，系统才可以识别和承受。下面来介绍有关书写规那么：1.断行断行 当一个长语句需占用多个语句行时

23、，必当一个长语句需占用多个语句行时，必须在换行处添加续行符须在换行处添加续行符(一个空格后跟一个一个空格后跟一个下划线下划线)将一个长语句分成多行。将一个长语句分成多行。Text1.Text=欢送使用欢送使用vb6.0 _&来编写您的应用程序来编写您的应用程序 2.同一行上书写多个语句同一行上书写多个语句 vb允许在一行上书写多个语句，语句之允许在一行上书写多个语句，语句之间要用冒号间要用冒号(:)分开。分开。Form1.caption=“画圆：画圆：a=124：b=6783.在代码中添加注释在代码中添加注释 为了进步程序的可读性，在程序中可添加为了进步程序的可读性，在程序中可添加注释内容。注

24、释内容前只须加上注释标示符注释内容。注释内容前只须加上注释标示符单引号单引号这是一个例如程序这是一个例如程序form1.circle(1000,1000),500 在窗体上在窗体上画圆画圆 第三章第三章蒿社平蒿社平四、程序书写规那么四、程序书写规那么VBVBVBVB根本语言根本语言根本语言根本语言182021/2/24一、顺序构造一、顺序构造二、选择构造二、选择构造三、循环构造三、循环构造四、常用算法四、常用算法 本章讲述编写程序代码要用到的各种语句及本章讲述编写程序代码要用到的各种语句及其语法规定。学完本章大家可以编写一些较复杂其语法规定。学完本章大家可以编写一些较复杂的程序。的程序。第三章

25、第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平192021/2/24如如:v=26 v=26 v=v+1 v=v+1 book=“book=“计算机应用计算机应用 sum=v*123.4+56.7 sum=v*123.4+56.7 n%=34 n%=34一、顺序构造一、顺序构造1.1.赋值语句赋值语句(1)(1)给变量赋值给变量赋值 格式：格式：变量名变量名=表达式表达式错误的例子：错误的例子：cos(x)=t+1cos(x)=t+1 x+5=h x+5=h a=b=c=8 a=b=c=8Private Sub Form_Click()Dim a,b As SingleDi

26、m s As Stringa=5:b=10a=a+2a=a*bs=ABCDs=s&EFPrint a,b,sEnd Sub 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平202021/2/24 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造(1)(1)输入框输入框InputBoxInputBox函数函数语法：语法：InputBox(prompt,title,default,xpos,yposInputBox 函数的参数说明函数的参数说明Prompt 必要。作为对话框消息出现的字符串表达式必要。作为对话框消息出现的字符串表达式title 可选。显示对话框标

27、题栏中的字符串表达式。可选。显示对话框标题栏中的字符串表达式。提示提示标题标题2.2.与用户交互函数和过程参阅与用户交互函数和过程参阅p72)p72)蒿社平蒿社平一、顺序构造一、顺序构造默认默认212021/2/241.语法：语法：InputBox(prompt,title,default,xpos,ypos2.InputBox 函数的参数说明函数的参数说明Default 可选。显示文本框中的字符串表达式，假如省可选。显示文本框中的字符串表达式，假如省略略 default，那么文本框为空，那么文本框为空 xpos 可选。数值表达式，指定对话框与屏幕左边的距可选。数值表达式，指定对话框与屏幕左边

28、的距 离。离。假如省略假如省略 xpos，那么对话框会在程度方向居中，那么对话框会在程度方向居中ypos 可选。数值表达式，指定对话框与屏幕的上边距。可选。数值表达式，指定对话框与屏幕的上边距。假如省略假如省略 ypos，那么对话框出如今距屏幕下边，那么对话框出如今距屏幕下边1/3处。处。(1)(1)输入框输入框InputInput函数函数Private Sub Command1_Click()a=InputBox(“输入变量的值输入变量的值,“输入对话框输入对话框,_ abc,2000,1500)Print aEnd Sub 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造2.2

29、.与用户交互函数和过程参阅与用户交互函数和过程参阅p72)p72)蒿社平蒿社平一、顺序构造一、顺序构造222021/2/24注意：注意：无论向对话框输入什么类型的数据，无论向对话框输入什么类型的数据，InputBoxInputBox函数函数只能将它作为字符串返回只能将它作为字符串返回 中间缺省的参数也要留有位置中间缺省的参数也要留有位置,用用,号分隔号分隔 Inputbox对话框的应用举例对话框的应用举例1?例例1 1：利用一个输入框输入一句贺词利用一个输入框输入一句贺词 Dim str1 As String str1=InputBox(请输入一段贺词请输入一段贺词:,_ 贺词贺词,身体安康身

30、体安康,万事如意万事如意)Print str1232021/2/24例例2：设计一程序输入两个：设计一程序输入两个0100之间的数，假设之间的数，假设在规定的范围内，那么将在规定的范围内，那么将2个数相加并显示出和；假个数相加并显示出和；假设不在此范围内，那么提示用户是否继续求和。假如设不在此范围内，那么提示用户是否继续求和。假如用户选择用户选择“是，那么加上此数，否那么那么不加此是，那么加上此数，否那么那么不加此数。数。界面：窗体界面：窗体，2个命令按钮，个命令按钮，3个标签框，个标签框，3个文本个文本框框 Inputbox对话框的应用举例对话框的应用举例2?242021/2/24?Dim

31、a,b,r As SinglePrivate Sub Command1_Click()a=Val(InputBox(输入变量输入变量A的值的值&Chr(13)&_ 提示：提示：0=100,输入输入,0)b=Val(InputBox(输入变量输入变量B的值的值&Chr(13)&_ 提示：提示：0=100,输入输入,0)Text1=a:Text2=b If a=0 And a=0 And b=100 Then Text3=a+b Else r=MsgBox(“所给数据超出范围，是否继续求和所给数据超出范围，是否继续求和?,_ vbOKCancel+vbQuestion)If r=vbOK Then

32、 Text3=a+b End IfEnd Sub252021/2/24 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平(2)消息框消息框Msgbox函数函数语法语法 MsgBox(prompt,buttons,title)2.MsgBox 函数的常用参数的说明函数的常用参数的说明提示提示假如假如 prompt 的内容超过一行，可用的内容超过一行，可用 回车符回车符(Chr(13)、换行符、换行符(Chr(10)回车与换行符的组合回车与换行符的组合(Chr(13)&Chr(10)Buttons 可选。数值表达式值的总和，缺省值为可选。数值表达式值的总和，缺省值为 0 指

33、定显示按钮的数目、形式、使用的图标款式，指定显示按钮的数目、形式、使用的图标款式，缺省按钮以及消息框的强迫回应等。缺省按钮以及消息框的强迫回应等。按钮按钮Prompt 必要。字符表达式，即显示在对话框中必要。字符表达式，即显示在对话框中的消息。的消息。=60 Then:If S=60 Then Print“Print“你及格了你及格了!Print“Print“希望继续努力希望继续努力!Endif Endif1.IfThen 1.IfThen 构造构造 格式格式:If :If 条件条件 Then Then (假设干语句假设干语句)Endif Endif(2)(2)If If 条件条件 Then

34、Then 语句语句只有一条语句时只有一条语句时例例:If S=60 Then Print“:If S=60 Then Print“你及格了你及格了!例例:程序要求程序要求:设计一个设计一个计数器计数器,当单击命令按钮当单击命令按钮1 1到达到达5 5次时次时,使其失效使其失效,使使命令按钮命令按钮2 2生效生效.假设条件成立假设条件成立,执行该程执行该程序段序段;条件不成立条件不成立,执行执行END IF END IF 后面的语句后面的语句Private Sub Command1_Click()Static a As Integera=a+1Print aIf a 5=a/5 Then Com

35、mand1.Enabled=False Command2.Enabled=TrueEnd IfEnd SubPrivate Sub Command2_Click()Command1.Enabled=TrueCommand2.Enabled=FalseEnd Sub二、选择构造二、选择构造342021/2/24习题：编程显示以下图形习题：编程显示以下图形Dim r,i As IntegerPrivate Sub Timer1_Timer()r=r+5 If r/100=r 100 Then i=i+1 ForeColor=QBColor(i)End If Circle(2000,1500),r

36、If r=1500 Then r=0:i=0:ClsEnd Sub352021/2/242 IfThenElse 2 IfThenElse 构造构造(1)If 1)If 条件条件 Then Then 语句序列语句序列1 1 Else Else 语句序列语句序列2 2 END IF END IF 执行过程执行过程:条件成立条件成立,执执行语句序列行语句序列1,1,否那么条件否那么条件不成立不成立,执行语句序列执行语句序列2 2例例:要求要求:从窗体的文本框从窗体的文本框中输入成绩中输入成绩,然后显示然后显示分析结果分析结果.(.(条件是大于条件是大于6060分为通过分为通过)Private Su

37、b Command1_Click()a=Text1 If a 60 Then Print 你通过了你通过了 Else Print 你没有通过你没有通过 End IfEnd Sub 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平二、选择构造二、选择构造362021/2/24.Dim r,i,k As IntegerPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If(r 2=r/2)Then i=255:k=0 Else i=0:k=255 End

38、 If ForeColor=RGB(i,0,k)r=r+5 Circle(X,Y),rEnd Sub习题：编程显示以下图形习题：编程显示以下图形372021/2/24.(2)(2)条件语句的多分支条件语句的多分支(多条件构造多条件构造 If If 条件条件1 Then 1 Then 语句序列语句序列1 1 ElseIf ElseIf 条件条件2 Then2 Then 语句序列语句序列2 2 Elseif Elseif 条件条件3 Then3 Then 语句序列语句序列3 3 Else Else 语句序列语句序列n n Endif Endif2 IfThenElse 2 IfThenElse 构

39、造构造例例:将输入的成绩按每个分将输入的成绩按每个分数段进展分析显示数段进展分析显示何种情况下使用该构造形式：何种情况下使用该构造形式：当你处理的问题涉及多个当你处理的问题涉及多个条件而且符合不同的条件时要条件而且符合不同的条件时要做不同的操作，这种情况下使做不同的操作，这种情况下使用该构造。用该构造。Private Sub Command1_Click()a=Text1 If a 90 Then Print 优秀优秀 ElseIf a 80 Then Print 良好良好 ElseIf a 60 Then Print 成绩一般成绩一般 Else Print 不及格不及格 End IfEnd

40、Sub 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平二、选择构造二、选择构造382021/2/24.Dim r,i,j,k As IntegerPrivate Sub Timer1_Timer()DrawWidth=2 If(r 300=r/300)Then i=255:j=0:k=0 ElseIf r 200=r/200 Then i=0:j=255:k=0 Else i=0:j=0:k=255 End If ForeColor=RGB(i,j,k)r=r+100 Circle(2000,2000),r If r=Form1.Height/2 Then Cls:r

41、=0End Sub习题：编程显习题：编程显示以下红绿蓝示以下红绿蓝间隔图形间隔图形392021/2/24 例例2 2 设计一个要征求设计一个要征求用户意见用户意见的程序，显示询问图的程序，显示询问图标，并根据用户所作的选择。显示标，并根据用户所作的选择。显示不同意见不同意见 .Dim r As IntegerPrivate Sub Command1_Click()r=MsgBox(你是否同意开设第二门外语你是否同意开设第二门外语?,vbQuestion+_ vbYesNoCancel,征求意见征求意见)If r=6 Then Print 我同意我同意 ElseIf r=7 Then Print

42、 我不同意我不同意 Else Print 我弃权我弃权 End IfEnd Sub根据不同的选择做出相应答复根据不同的选择做出相应答复402021/2/24 Msgbox对话框的对话框的 应用举例应用举例(3)?设计输入准考证号的对话框并进展核对设计输入准考证号的对话框并进展核对(模拟题模拟题)分析分析:窗体设计窗体设计:窗体窗体1,1,利用文本框完成输入准考证号利用文本框完成输入准考证号 窗体窗体1,LABEL1,label2,TEXT11,LABEL1,label2,TEXT1 利用函数形成一个核对对话框利用函数形成一个核对对话框,要求有确认和取消要求有确认和取消 事件：单击窗体事件：单击

43、窗体 412021/2/24 Msgbox对话框的对话框的 应用举例应用举例(2)?If C=vbCancel Then EndEnd SubDim A As StringDim B,C As IntegerPrivate Sub Form_CLICK()A=Text1.TextB=MsgBox(准考证号是否正确准考证号是否正确?,vbYesNo+vbQuestion+_ vbDefaultButton2,提示提示!)If B=vbYes ThenEnd IfIf Then MsgBox 如今进入考试操作主菜单如今进入考试操作主菜单ElseEnd IfA=123456789AC=MsgBox(

44、“准考证号无效准考证号无效!,_ vbOKCancel+vbExclamation ,“提示提示!)Private Sub Form_CLICK()422021/2/241.IfThen 1.IfThen 构造构造 2.IfThenElse 2.IfThenElse 构造构造 3.Select Case 3.Select Case 构造构造进展条件判断，根据判断的结果断定执行不同进展条件判断，根据判断的结果断定执行不同的操作的操作P76P76三种构造三种构造:例如：例如：当学生的成绩超过当学生的成绩超过60分时，那么分时，那么在窗体上显示在窗体上显示“你的成绩合格。你的成绩合格。当学生的成绩不

45、超过当学生的成绩不超过60分时，分时，那么在窗体上显示那么在窗体上显示“你的成绩不合格你的成绩不合格 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平二、选择构造二、选择构造432021/2/24例例4.4：对于任意给定的三个对于任意给定的三个数，编程按照从大到小的顺数，编程按照从大到小的顺序显示在窗体上。序显示在窗体上。代码：代码：Dim x,y,z,dPrivate Sub Command1_Click()x=val(Text1):y=val(Text2):z=val(Text3)If x y Then d=x:x=y:y=dEnd IfIf y z Then d=

46、y:y=z:z=d If x 100功能：功能：当表达式当表达式1的值与测试条件的的值与测试条件的值匹配时，执行语句序列值匹配时，执行语句序列1。否。否那么，当表达式那么，当表达式2的值与测试条件的值与测试条件的值匹配时，执行语句序列的值匹配时，执行语句序列2。否那么，否那么，当所有表达式的值当所有表达式的值不与测试条件的值匹配时，执行不与测试条件的值匹配时，执行语句序列语句序列n.第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平例：写出程序的运行结果：例：写出程序的运行结果：Dim t As SinglePrivate Sub Command1_Click()t=Va

47、l(Text1.Text)Select Case t Case 100,200 Print t;A Case 1 To 10 Print t;B Case 1000,Is 1000 Print t;C Case Else Print t;D End SelectEnd Sub452021/2/24二、选择构造二、选择构造 第三章第三章根本控制构造根本控制构造根本控制构造根本控制构造蒿社平蒿社平例例:将输入的成绩将输入的成绩按每个分数段按每个分数段进展分析显示进展分析显示Private Sub COMMAND1_Click()Dim CJ As Integer CJ=Val(Text1.Text

48、)10 Select Case CJ Case 10,9 Form1.Caption=你的成绩优秀你的成绩优秀 Case 8 Form1.Caption=你的成绩良好你的成绩良好 Case 6,7 Form1.Caption=你的成绩一般你的成绩一般 Case Else Form1.Caption=希望你继续努力希望你继续努力 End Select End Sub462021/2/24472021/2/24Dim i,j,s,qDim t,t1,suan As StringDim x!,y!,r!Private Sub Form_Load()MsgBox 系统开场计时，答题时间为系统开场计时，

49、答题时间为5分钟分钟 t=Str$(Time)End SubPrivate Sub Timer1_Timer()Dim a,b As Integer caption=Time t1=Str$(Time)a=Val(Mid$(t1,3,2):b=Val(Mid(t,3,2)If a-b=5 Then MsgBox 时间到，停顿答题时间到，停顿答题 End End Ifend sub习题：考试计时程序习题：考试计时程序482021/2/24Private Sub Command1_Click()Text1=x=InputBox(输入输入X的值的值)y=InputBox(输入输入y的值的值)suan

50、=InputBox(输入运算符符号输入运算符符号+、-、*、/：)Select Case suan Case+Label1=x&suan&y&=:r=x+y Case-Label1=x&suan&y&=:r=x-y Case*Label1=x&suan&y&=:r=x*y Case/Label1=x&suan&y&=:r=x/y End SelectEnd Sub习题：考试计时程序习题：考试计时程序492021/2/24Private Sub Command2_Click()If Text1=r Then i=i+1:s=s+10Else j=j+1End IfText1=:Label1=En