VB 培训资料ppt课件

1、Presented by ch.wu (ENG)Visual Basic training Visual Basic 6.0的集成开发环境主界面INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION菜单栏工具栏代码窗口工具箱窗体窗口立刻窗口监视窗口工程窗口属性窗口规划窗口一、工具箱(ToolBox)窗口INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5

2、 | TOPIC 6 | TOPIC 7 | CONCLUSION 工具箱提供一组工具，用于设计时在窗体中放置控件生成运用程序的用户接口。系统启动后缺省的General工具箱就会出如今屏幕左边，上面共有21个常用“部件 一、工具箱(ToolBox)窗口INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1.对象的建立。2.对象属性一、工具箱(ToolBox)窗口INTRODUCTION | AGENDA | TOPIC 1 | TOPIC

3、2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION3.事件Event及事件过程Event Procedure。事 件 可被对象识别的动作。事件过程 是指附在该 对象上的程 序代码，是事件触发后 处置的程序。例如： Private Sub cmdHide_Click() CmdHide.Visible=FalseForm1.print VB程序设计 End Sub4.方 法Method在对象上可操作的过程，是VB系统提供的一种特殊的过程和函数方法。方法是面向对象的，所以对象的方法调用普通要指明对象。INTRODUCTI

4、ON | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION二、窗体的常用属性、方法和事件 窗体属性决议了窗体的外观与操作。窗体外观 如以下图 二、窗体的常用属性、方法和事件 INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION一根本属性1. Name称号属性任何对象都具有的 创建的对象称号,有默许的名.在程序中，

5、控件名是作为对象的标 识而援用，不会显示在窗体上。2. Height、width、top和left属性 单位为twip：1 twip=1/20点=1/1440英寸=1/567cm 留意：这四个属性决议窗体或控件的大小，在容器中的位置。如右图。二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION3. Caption 标题属性：决议出如今窗体的标题栏上的文本内容，也是当窗体被最小化后出如今窗体图标下的文本。如图2-

6、2中窗体的Caption属性值是“VB窗体4. 字体Font属性组 FontName属性是字符型，决议对象上正文的字体缺省为宋体。 FontSize属性是整型，决议对象上正文的字体大小。 FontBold属性是逻辑型，决议对象上正文能否是粗体。 FontItalic属性是逻辑型，决议对象上正文能否是斜体。 FontStrikeThru属性是逻辑型，决议对象上正文能否加一删除线。 FontUnderLine属性是逻辑型，决议对象上正文能否带下划线。二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC

7、4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION5. Enabled属性逻辑值 决议控件能否可操作。 True ：允许用户进展操作，并对操作出呼应缺省值 。 False：呈暗淡色，制止用户进展操作。6. Visible属性逻辑值 决议控件能否可见 True ：运转时控件可见缺省值 。 False：运转时控件隐藏，用户看不到，但控件本身是存在的。二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7

8、| CONCLUSION7BackColor属性和ForeColor属性 BackColor属性用于前往或设置对象的背景颜色， ForeColor属性用于前往或设置在对象里显示图片和文本的前景颜色。它们是十六进制长整型数据在程序代码中可用Windows 运转环境的红-绿-蓝 (RGB) 颜色方案，运用调色板或在代码中运用 RGB 或 QBColor 函数指定规范RGB颜色。例如，将窗体Form1的背风光设置为红色，那么可运用下面三种情况： Form1.BackColor = RGB(255, 0, 0) Form1.BackColor = &HFF& Form1.BackColor = vbR

9、ed 二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION二常用事件 1. Click/DblClick：单击/双击窗体触发。 2. Load：窗体被装入时触发的事件。该事件通常用来在启动运用 程序时对属性和变量进展初始化。 3. Unload事件 卸载窗体时触发该事件。 4. Resize事件 无论是由于用户交互，还是经过代码调整窗体的大小，都会触发一个Resize事件。二、窗体的常用属性、方法和事件INTR

10、ODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION窗体常用的方法有： 打印输出Print、挪动Move、去除Cls、显示Show 、隐藏Hide等。方法是面向对象故运用的方式: 对象.方法 1. Print方法 方式: 对象.PrintSpc(n)|Tab(n)表达式列表；|， 作用: 在对象上输出信息 对象：窗体、图形框或打印机(Pinter) ,省略对象在窗体上输出。 Spc(n) ：插入n个空格，允许反复运用。 Tab(n) ：左端开场右挪

11、动n列，允许反复运用。 ；(分号) ：光标定位上一个显示的字符后。 ，(逗号) ：光标定位在下一个打印区的开场位置处。 无；|，：换行。二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION例. 在窗体Form1的单击事件中写入如下代码：Private Sub Form_Click()a = 10: b = 3.14: c = 100Print a=; a, b=; bPrint a=; a, b=; bPrin

12、t a=; a, b=; bPrint 空一行Print ; a=; a, b=; bPrint a=; a, Tab(18); b=; bPrint a=; a, Spc(18); b=; b PrintPrint a=; a, b=; bPrint Tab(18); “a=; a, “b=; b 从第18列开场打印输出Print Spc(18); a=; a, b=; bEnd Sub二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC

13、 7 | CONCLUSION2. Cls方法 方式 : 对象.Cls 作用 : 去除运转时在窗体或图形框中显示的文本或图形。 留意 : 不去除在设计时的文本和图形。清屏后坐标当前回到原点。3. Move方法 方式 : 对象.Move 左边间隔，上边间隔，宽度，高度 作用 : 挪动窗体或控件，并可改动其大小。 对象：可以是窗体及除时钟、菜单外的一切控件，省略代表窗体。 左边间隔，上边间隔，宽度，高度：数值表达式，以twip为单位。假设是窗体对象，那么“左边距和“上边距是以屏幕左边境和上边境为准。其它那么是以窗体的左边和上边境为准。二、窗体的常用属性、方法和事件INTRODUCTION | AG

14、ENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION例.运用Move方法挪动一个窗体。双击窗体，窗体挪动并定位在屏幕的左上角，同时窗体的长宽也减少一倍。 为了实现这一功能，可以在窗体Forml的“代码窗口中输入以下代码：Private Sub Form_DblClick()Form1.Move 0,0,Form1.Width/2,Form1.Height/2End Sub二、窗体的常用属性、方法和事件INTRODUCTION | AGENDA | TOPIC 1 | TOP

15、IC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION4. Show(显示)方法 Show方法用于在屏幕上显示一个窗体，调用 Show 方法与设置窗体 Visible 属性为 True 具有一样的效果。其调用格式如下： 窗体名.Show vbModal | vbModeless5Hide(隐藏)方法Hide方法用于使指定的窗体不显示，但不从内存中删除窗体。其调用格式为：窗体名.Hide例2.5 实现将指定的窗体在屏幕上进展显示或隐藏的切换。 为了实现这一功能，可以在窗体Form1的“代码窗口中输入以下代码：Priv

16、ate Sub Form_Click() Form1.Hide 隐藏窗体 MsgBox 单击确定按钮，使窗体重现屏幕 显示信息 Forml.Show 重现窗体End Sub三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1. 命令按钮CommandButton 接受用户输入的命令.输入命令可以有三种方式: 1鼠标单击； 2按Tab键焦点跳转到该按钮, 再按回车键； 3 快捷键Alt+有下划线的字母1.1 属性

17、 1.1.1 根本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font等与窗体的运用一样。 1.1.2 常用属性 1Caption: 标题属性命令按钮显示的内容，可在某字母前加 “&“设置快捷键。例如： &Ok ,显示 Ok三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2 Default: 确认属性逻辑值，设置为True时，按Enter键相当于用鼠标器单击了该

18、按钮。 留意：在一个窗体只能的一个按钮的Default设置为Ture3Cancel: 取消功能属性逻辑值，当设置为Ture时，程序运转时按Esc键与单击此命令按钮的效果一样。 留意: 在一个窗体只能的一个按钮的Cancel属性设置为Ture4Value: 检查该按钮能否按下. 该属性在设计时无效.5Picture: 按钮可显示图片文件(.bmp和.Ico)，只需当Style属性值设 为1时有效6Style: 确定显示的方式. 0 只能显示文字, 1 文字、图形均可 。7ToolTipText：设置工具提示，和Picture结合运用。1.1.3 事件 单击事件Click三、 命令按钮、标签、文本

19、框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2. 标签 Label 用于显示文本(输出)信息，不能作为输入信息的界面。2.1 根本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的运用一样。2.2 常用属性1Caption属性 Caption属性用来改动Label控件中显示的文本。Caption属性允许文本的长度最多为1024字节。

20、缺省情况下，当文本超越控件宽度时，文本会自动换行，而当文本超越控件高度时，超出部分将被裁剪掉。三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2 Alignment属性 设置Caption属性中文本的对齐方式，共有三种可选值： 0 左对齐(Left Justify)； 1 右对齐(Right Justify)； 2 居中对齐(Center Justify)。3BackStyle属性 该属性用于确定标签的背景能

21、否透明。有两种情况可选：值为0时，表示背景透明，标签后的背景和图形可见；值为1时，表示不透明，标签后的背景和图形不可见。4AutoSize属性 AutoSize属性确定标签能否会随标题内容的多少自动变化。假设值为True，那么随Caption内容的大小自动调整控件本身的大小，且不换行；假设值为False，表示标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2

22、.3 事件 标签可呼应单击Click)和双击 DblClick事件，但普通情况不对它进展编程三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION3. 文本框 TextBox 是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。3.1 根本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font，ForeColor、BackColor等与标签控件一样。3.2 常用属性

23、1.Text文本属性 在文本框中显示的正文内容存放在Text属性中。当程序运转时，用户经过键盘输入正文内容，保管在Text属性中。 文本框没有Caption属性三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2Maxlength： 设置正文的最多字符个数, 0恣意长度值。3 MultiLine： 能否为多行,默许一行. False4ScrollBars： 当MultiLine为True时,该属性才有效,滚动条

24、的方式。 0-None: 无滚动条、1-Horizontal: 程度滚动条、 2-Vertical: 垂直滚动条、3-Both: 程度和垂直滚动条。5Locked： 能否可被编辑属性，False，表示为可编辑。6PassWordChar属性 设置PasswordChar属性为了掩盖文本框中输入的字符。 该属性的设置只需在MultiLine设为 False才有效三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION7

25、SelStart、SelLength和SelText属性 这三个属性是文本框中对文本的编辑属性。 SelStart：确定在文本框选中文本的起始位置。第一字符 的位置为0。假设没有选择文本，那么用于前往或设置文本的插入点位置，假设SelStart的值大于文本的长度，那么SelStart取当前文本的长度： SelLength：设置或前往文本框中选定的文本字符串长度字符个数。 SelText：设置或前往当前选定文本中的文本字符串。三、 命令按钮、标签、文本框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5

26、| TOPIC 6 | TOPIC 7 | CONCLUSION3.3 常用事件 Change ： 当改动文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件。 KeyPress(KeyAscii As Integer)： 当用户按下并释放键盘上一个ANSI键时，就会触发一次该事件，并前往一个KeyAscii参数字符的Ascii值到该事件过程中。 例如：输入“A，那么KeyAscii的值是65。可用函数Chr$(KeyAscii)可得到字符“A。 LostFocus ： 当控件失去焦点时发生。 GotFocus ： 当控件获得焦点时发生。三、 命令按钮、标签、文本

27、框INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION3.4 常用方法 文本框最有用的方法是：SetFocus，运用方式： 对象.SetFocus 功能： 是把光标移到指定的文本框对象中。四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1. 规范数据类型四、数据类型

28、和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2. 常量和变量2.1 常 量 在程序运转过程中，其值不能被改动的量称为常量。有三类常量： 普通常量 符号常量 系统常量。 2.1.1 普通常量 2.1.1.1 整型常量 1整型Integer：表示-32768至32767之间的整数 2长整型Long： 表示-2,147,483,648至2,147,483,647之间的整数 例如：长整型常数的书写： 23& 四、数据类型和运算INTR

29、ODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2.1.1.2 实数单精度实型Single：有效数为7位 表示-3.37E+38至3.37E+38之间的实数 双精度实型Double：有效数为15位常量的表示： 十进制小数方式。它是由正负号+，-、数字09和小数点.或类型符号！、#组成，即n.n，n！或n#，其中n是09的数字。例如0.123、.123、123.0、123！、123#等都是十进制小数方式。指数方式： nEm 或 n.nEm, nD

30、m 或 n.nDm 例：1.25E+3 和 1.25D+3相当于1250.0 或者1.25103。四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2.1.1.3 字符串常量 在VB中字符串常量是用双引号“括起的一串字符，例如ABC，abcdefg，123，0，VB程序设计等。阐明： 1字符串中的字符可以是一切西文字符和汉字、标点符号等； 2表示空字符串，而 表示有一个空格的字符串； 3假设字符串中有双引号，例如ABDX

31、YZ，那么用延续两个双引号表示，即： ABDXYZ“2.1.1.4 逻辑Boolean数据类型 只需两个值True，或False。将逻辑数据转换成整型时：True为-1，False为0；其它数据转换成逻辑数据时：非0为True, 0为False。四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2.1.1.5 日期常量 日期Date型数据按8字节的浮点数来存储，表示日期范围从公元100年1月1日9999年12月31日，而

32、时间范围从0:00:0023:59:59。 一种在字面上可被认作日期和时间的字符，只需用号码符“#括起来，都可以作为日期型数值常量。 例：#09/02/99#、#January 4,1989#，#2002-5-4 14:30:00 PM#都是合法的日期型常量。 阐明：当以数值表示日期数据时，整数部分代表日期，而小数部分代表时间；例如1表示1899年12月31日。大于1的整数表示该日期以后的日期，0和小于0的整数表示该日期以前的日期。四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 |

33、 TOPIC 6 | TOPIC 7 | CONCLUSION2.2 变量声明2.2.1 用Dim语句显式声明变量 方式：Dim 变量名 AS 类型 Dim 变量名类型符 例： Dim iCount As integer , sum As single 等价于 Dim iCount%, sum!2.2.2 隐式声明 Visual Basic允许用户在编写运用程序时，不声明变量而直接运用，系统暂时为新变量分配存储空间并运用，这就是隐式声明。一切隐式声明的变量都是Variant数据类型。Visual Basic根据程序中赋予变量的值来自动调整变量的类型。 四、数据类型和运算INTRODUCTION

34、 | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2.2.3 强迫显式声明Option Explicit语句 良好的编程习惯都应该是“先声明变量，后运用变量，这样做可以提高程序的效率，同时也使程序易于调试。Visual Basic 中可以强迫显式声明，可以在窗体模块、规范模块和类模块的通用声明段中参与语句：Option Explicit四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | T

35、OPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION3. 运算符和表达式四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION4. 关系运算符与关系表达式 关系运算符都是双目运算，是用来比较两个运算量之间的关系，关系表达式的运算结果为逻辑量。假设关系成立，结果为True，假设关系不成立，结果为False。 VB中的关系运算符如下表所示。 运算符含义优先级实例结果小于一切关系运算优

36、先级一样。低于算术运算的加“+，减“-运算，高于逻辑非“Not运算。15+1020False=小于或等于10大于1020False=大于或等于This= ThatTrue=等于This= ThatFalse不等于This ThatTrueLike字符串匹配This Like *isTrueIs对象比较四、数据类型和运算INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION 5. 逻辑运算符与逻辑表达式 Not 逻辑非为单目运算符要求一个操作数

37、，其它为双目运算符。 条件表达式1 And 条件表达式2 条件表达式均为T 结果为T 条件表达式1 Or 条件表达式2 条件表达式有一个T 结果为T五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1. 选择构造 1.1 IfThen语句(单分支构造) If Then 语句块 End If 或 If Then 例:知两个数x和y，比较它们的大小， 使得x大于y. If xy Then t=x : x=y: y=t End I

38、f 或 If xy Then t=x: x=y: y=t五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1.2. IfThenElse语句(双分支构造) If Then Else End If If Then Else 例如：输出x,y两个中值较大的一个值。IF XY Then Print XElse Print YEnd If也可以写成如下的单行方式： IF XY Then Print X Else Print Y五、语

39、句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1.3. IfThenElseIf语句(多分支构造) 方式: If Then Else If Then Else 语句块 n+1 End If五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION 例. 输入一学生成

40、果，评定其等级。方法是：90100分为“优秀，8089分为“良好，7079分为“中等，6069分为“及格，60分以为“不合格运用IF语句实现的程序段如下：If x=90 thenPrint 优秀ElseIf x=80 ThenPrint 良好ElseIf x=70 ThenPrint 中等ElseIf x=60 ThenPrint 及格ElsePrint 不及格End If五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION1

41、.4. Select Case语句情况语句方式：Select Case 变量或表达式Case 表达式列表1语句块1Case 表达式列表2语句块2Case Else语句块n+1End Select五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION例. 将上例运用select case.语句来实现的程序段如下：Select Case x Case 90 to 100 Print 优秀 Case 80 to 89 Print 良好

42、 Case 70 to 79 Print 中等 Case 60 to 69 Print 及格 Case Else Print 不及格End Select五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2. 循环构造2.1 For循环语句 (普通用于循环次数知)方式 For 循环变量初值 to 终值 Step 步长 语句块Exit For 语句块 Next 循环变量 0 初值终值 =1 时,可省略终值=0 死循环 步长五、语

43、句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION例. 编程计算：S=1+2+3+100Dim S%, I%S=0 累加前变量S为0For I=1 to 100 S=S+INext IPrint S=,S 五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION方式1

44、：当型循环 Do While|Until 语句块 Exit Do 语句块 Loop2.2 DoLoop循环语句 五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION方式2：(直到循环Do 语句块 Exit Do 语句块Loop While|Until 五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6

45、| TOPIC 7 | CONCLUSION Do UntilLoop执行过程 DoLoop Until执行过程 条 件语句块语句块TFExit Do条 件语句块语句块TFExit Do五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION2.3 WhileWend语句运用格式如下：While Wend 阐明：该语句的功能与Do While .Loop实现的循环完全一样。五、语句和语法INTRODUCTION | AGENDA

46、| TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION例. 求两个整数的最大公约数、最小公倍数Dim n%,m%,nm%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)nm=n*mIf mn Then t=m: m=n: n=t r=m mod n Do While (r 0) m=n n=r r= m mod n LoopPrint 最大公约数=, n Print 最小公倍数=, nm/n 算法运用转碾除法，流程图如右，实现的程序代码如下：五、语句和语法

47、INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION例. 打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.Print Next i五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 |

48、TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION3. End 语句 方式： End 功能：终了一个程序的运转。 在Visual Basic中还有多种方式的End语句，用于终了一个程序块或过程。 其方式有： End If End Select End Type End With End Sub End Function等它们与对应的语句配对运用。 五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 |

49、 CONCLUSION4. 暂停语句 Stop语句用来暂停程序的执行，相当于在事件代码中设置断点。语法格式为： Stop阐明：1. Stop语句的主要作用是把解释程序置为中断(Break)方式，以便对程序进展检查和调试。可以在程序的任何地方放置Stop语句，当执行Stop语句时，系统将自动翻开立刻窗口。2. 与End语句不同。 五、语句和语法INTRODUCTION | AGENDA | TOPIC 1 | TOPIC 2 | TOPIC 3 | TOPIC 4 | TOPIC 5 | TOPIC 6 | TOPIC 7 | CONCLUSION5. With.End With 语句 方式： With 对象名 语句块 End With 阐明：With 语句可以对某个对象执行一系列的语句，而不用反复指出对象的称号。 例如，要改动一个对象的多个属性，可以在 With 控制构造中加上属性的赋值语句，这时候只是援用对象一次而不是在每个属性赋值时都要援用它。下面的例子显示了如何运用 With 语句来给同一个对象的几个属性赋值。五、语句和语法INTRODUCTION | AGENDA |