VB企业管理培训资料

Presentedbych.wu(ENG)

VisualBasictraining第一页，共六十一页。VisualBasic6.0

的集成开发环境第二页，共六十一页。主界面INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION菜单栏工具栏代码窗口工具箱窗体窗口立即窗口监视窗口工程窗口属性窗口布局窗口第三页，共六十一页。一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION工具箱提供一组工具，用于设计时在窗体中放置控件生成应用程序的用户接口。系统启动后缺省的General工具箱就会出现在屏幕左边，上面共有21个常用“部件”第四页，共六十一页。一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.对象的建立。2.对象属性第五页，共六十一页。一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.事件（Event）及事件过程（EventProcedure）。事件—可被对象识别的动作。事件过程—是指附在该对象上的程序代码，是事件触发后处理的程序。例如：

PrivateSubcmdHide_Click() CmdHide.Visible=False Form1.print"VB程序设计"EndSub4.方法（Method）在对象上可操作的过程，是VB系统提供的一种特殊的过程和函数—方法。方法是面向对象的，所以对象的方法调用一般要指明对象。第六页，共六十一页。INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION二、窗体的常用属性、方法和事件窗体属性决定了窗体的外观与操作。窗体外观如下图

第七页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（一）基本属性1.Name名称属性（任何对象都具有的）

创建的对象名称,有默认的名.在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2.Height、width、top和left属性

单位为twip：1twip=1/20点=1/1440英寸=1/567cm

注意：这四个属性决定窗体（或控件）的大小，在容器中的位置。如右图。第八页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.Caption标题属性：决定出现在窗体的标题栏上的文本内容，也是当窗体被最小化后出现在窗体图标下的文本。如图2-2中窗体的Caption属性值是“VB窗体”4.字体Font属性组

FontName属性是字符型，决定对象上正文的字体（缺省为宋体）。

FontSize属性是整型，决定对象上正文的字体大小。

FontBold属性是逻辑型，决定对象上正文是否是粗体。

FontItalic属性是逻辑型，决定对象上正文是否是斜体。

FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。

FontUnderLine属性是逻辑型，决定对象上正文是否带下划线。第九页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.Enabled属性（逻辑值）决定控件是否可操作。

True：允许用户进行操作，并对操作出响应（缺省值）。

False：呈暗淡色，禁止用户进行操作。6.Visible属性（逻辑值）决定控件是否可见

True：运行时控件可见（缺省值）。

False：运行时控件隐藏，用户看不到，但控件本身是存在的。第十页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION7．BackColor属性和ForeColor属性

BackColor属性用于返回或设置对象的背景颜色，

ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。它们是十六进制长整型数据在程序代码中可用Windows运行环境的红-绿-蓝

(RGB)颜色方案，使用调色板或在代码中使用

RGB或

QBColor函数指定标准RGB颜色。例如，将窗体Form1的背景色设置为红色，则可使用下面三种情况：

Form1.BackColor=RGB(255,0,0)Form1.BackColor=&HFF&Form1.BackColor=vbRed第十一页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（二）常用事件1.Click/DblClick：单击/双击窗体触发。

2.Load：窗体被装入时触发的事件。该事件通常用来在启动应用程序时对属性和变量进行初始化。

3.Unload事件卸载窗体时触发该事件。

4.Resize事件无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。第十二页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION窗体常用的方法有：打印输出Print、移动Move、清除Cls、显示Show、隐藏Hide等。方法是面向对象故使用的形式:[对象.]方法

1.Print方法

形式:[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]

作用:在对象上输出信息对象：窗体、图形框或打印机(Pinter),省略对象在窗体上输出。Spc(n)：插入n个空格，允许重复使用。Tab(n)

：左端开始右移动n列，允许重复使用。；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；|，：换行。第十三页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.在窗体Form1的单击事件中写入如下代码：PrivateSubForm_Click()a=10:b=3.14:c=100Print"a=";a,"b=";bPrint"a=";a,"b=";bPrint"a=";a,"b=";bPrint

‘空一行Print;"a=";a,"b=";bPrint"a=";a,Tab(18);"b=";b

Print"a=";a,Spc(18);"b=";bPrint

Print"a=";a,"b=";bPrintTab(18);“a=”;a,“b=”;b

‘从第18列开始打印输出PrintSpc(18);"a=";a,"b=";b

EndSub第十四页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.Cls方法

形式:[对象.]Cls

作用:清除运行时在窗体或图形框中显示的文本或图形。

注意:不清除在设计时的文本和图形。清屏后坐标当前回到原点。3.Move方法形式:

[对象.]Move左边距离[，上边距离[，宽度[，高度]]]

作用:移动窗体或控件，并可改变其大小。

对象：可以是窗体及除时钟、菜单外的所有控件，省略代表窗体。左边距离，上边距离，宽度，高度：数值表达式，以twip为单位。如果是窗体对象，则“左边距”和“上边距”是以屏幕左边界和上边界为准。其它则是以窗体的左边和上边界为准。第十五页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.使用Move方法移动一个窗体。双击窗体，窗体移动并定位在屏幕的左上角，同时窗体的长宽也缩小一倍。为了实现这一功能，可以在窗体Forml的“代码”窗口中输入下列代码：PrivateSubForm_DblClick()Form1.Move0,0,Form1.Width/2,Form1.Height/2EndSub第十六页，共六十一页。二、窗体的常用属性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.Show(显示)方法

Show方法用于在屏幕上显示一个窗体，调用

Show方法与设置窗体

Visible属性为

True具有相同的效果。其调用格式如下：

窗体名.Show[vbModal|vbModeless]5．Hide(隐藏)方法Hide方法用于使指定的窗体不显示，但不从内存中删除窗体。其调用格式为：窗体名.Hide例2.5实现将指定的窗体在屏幕上进行显示或隐藏的切换。为了实现这一功能，可以在窗体Form1的“代码”窗口中输入下列代码：PrivateSubForm_Click()Form1.Hide'隐藏窗体

MsgBox"单击确定按钮，使窗体重现屏幕"'显示信息

Forml.Show'重现窗体EndSub第十七页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.命令按钮CommandButton

接受用户输入的命令.输入命令可以有三种方式:

（1）鼠标单击；（2）按Tab键焦点跳转到该按钮,再按回车键；（3）快捷键（Alt+有下划线的字母）1.1属性

1.1.1基本属性

Name、Height、Width、Top、Left、Enabled、Visible、Font等与窗体的使用相同。1.1.2常用属性

（1）Caption:

标题属性——命令按钮显示的内容，可在某字母前加“&“设置快捷键。例如：&Ok,显示

Ok第十八页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（2）Default:确认属性（逻辑值），设置为True时，按Enter键相当于用鼠标器单击了该按钮。注意：在一个窗体只能的一个按钮的Default设置为Ture（3）Cancel:取消功能属性（逻辑值），当设置为Ture时，程序运行时按Esc键与单击此命令按钮的效果相同。注意:在一个窗体只能的一个按钮的Cancel属性设置为Ture（4）Value:

检查该按钮是否按下.该属性在设计时无效.（5）Picture:

按钮可显示图片文件(.bmp和.Ico)，只有当Style属性值设为1时有效（6）Style:

确定显示的形式.0只能显示文字,1文字、图形均可。（7）ToolTipText：设置工具提示，和Picture结合使用。1.1.3事件

单击事件Click第十九页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.标签Label

用于显示文本(输出)信息，不能作为输入信息的界面。2.1基本属性

Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同。

2.2常用属性（1）Caption属性Caption属性用来改变Label控件中显示的文本。Caption属性允许文本的长度最多为1024字节。缺省情况下，当文本超过控件宽度时，文本会自动换行，而当文本超过控件高度时，超出部分将被裁剪掉。第二十页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（2）

Alignment属性设置Caption属性中文本的对齐方式，共有三种可选值：

0左对齐(LeftJustify)；1右对齐(RightJustify)；

2居中对齐(CenterJustify)。（3）BackStyle属性该属性用于确定标签的背景是否透明。有两种情况可选：值为0时，表示背景透明，标签后的背景和图形可见；值为1时，表示不透明，标签后的背景和图形不可见。（4）AutoSize属性AutoSize属性确定标签是否会随标题内容的多少自动变化。如果值为True，则随Caption内容的大小自动调整控件本身的大小，且不换行；如果值为False，表示标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。第二十一页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.3事件标签可响应单击（Click)和双击（DblClick）事件，但一般情况不对它进行编程第二十二页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.

文本框TextBox

是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。3.1基本属性

Name、Height、Width、Top、Left、Enabled、Visible、Font，ForeColor、BackColor等与标签控件相同。

3.2常用属性（1）.Text文本属性在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。

文本框没有Caption属性第二十三页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（2）Maxlength：设置正文的最多字符个数,

0任意长度值。（3）MultiLine：是否为多行,默认一行.False（4）ScrollBars：

当MultiLine为True时,该属性才有效,滚动条的形式。

0-None:无滚动条、1-Horizontal:水平滚动条、

2-Vertical:垂直滚动条、3-Both:水平和垂直滚动条。（5）Locked：是否可被编辑属性，False，表示为可编辑。（6）PassWordChar属性设置PasswordChar属性为了掩盖文本框中输入的字符。该属性的设置只有在MultiLine设为

False才有效第二十四页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（7）SelStart、SelLength和SelText属性这三个属性是文本框中对文本的编辑属性。

SelStart：确定在文本框选中文本的起始位置。第一字符的位置为0。若没有选择文本，则用于返回或设置文本的插入点位置，如果SelStart的值大于文本的长度，则SelStart取当前文本的长度：

SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。

SelText：设置或返回当前选定文本中的文本字符串。第二十五页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.3常用事件

Change：当改变文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件。

KeyPress(KeyAsciiAsInteger)：当用户按下并释放键盘上一个ANSI键时，就会触发一次该事件，并返回一个KeyAscii参数（字符的Ascii值）到该事件过程中。例如：输入“A”，则KeyAscii的值是65。可用函数Chr$(KeyAscii)可得到字符“A”。

LostFocus：当控件失去焦点时发生。

GotFocus：当控件获得焦点时发生。第二十六页，共六十一页。三、命令按钮、标签、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.4常用方法

文本框最有用的方法是：SetFocus，使用形式：

[对象.]SetFocus

功能：是把光标移到指定的文本框对象中。第二十七页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.标准数据类型第二十八页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.常量和变量2.1常量在程序运行过程中，其值不能被改变的量称为常量。有三类常量：普通常量符号常量系统常量。2.1.1普通常量整型常量（1）整型（Integer）：表示-32768至32767之间的整数（2）长整型（Long）：表示-2,147,483,648至2,147,483,647之间的整数例如：长整型常数的书写：23&

第二十九页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION实数单精度实型（Single）：有效数为7位表示-3.37E+38至3.37E+38之间的实数双精度实型（Double）：有效数为15位常量的表示：十进制小数形式。它是由正负号（+，-）、数字（0~9）和小数点（.）或类型符号（！、#）组成，即±n.n，±n！或±n#，其中n是0~9的数字。例如0.123、.123、123.0、123！、123#等都是十进制小数形式。指数形式：±nE±m或

±n.nE±m,±nD±m或

±n.nD±m

例：1.25E+3和

1.25D+3相当于1250.0或者1.25×103。第三十页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION字符串常量在VB中字符串常量是用双引号“"”括起的一串字符，例如"ABC"，"abcdefg"，"123"，"0"，"VB程序设计"等。说明：（1）字符串中的字符可以是所有西文字符和汉字、标点符号等；（2）""表示空字符串，而""表示有一个空格的字符串；（3）若字符串中有双引号，例如ABD"XYZ，则用连续两个双引号表示，即：

"ABD""XYZ“逻辑（Boolean）数据类型只有两个值True，或False。将逻辑数据转换成整型时：True为-1，False为0；其它数据转换成逻辑数据时：非0为True,0为False。第三十一页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION日期常量

日期（Date）型数据按8字节的浮点数来存储，表示日期范围从公元100年1月1日~9999年12月31日，而时间范围从0:00:00~23:59:59。一种在字面上可被认作日期和时间的字符，只要用号码符“#”括起来，都可以作为日期型数值常量。例：#09/02/99#、#January4,1989#，#2002-5-414:30:00PM#都是合法的日期型常量。说明：当以数值表示日期数据时，整数部分代表日期，而小数部分代表时间；例如1表示1899年12月31日。大于1的整数表示该日期以后的日期，0和小于0的整数表示该日期以前的日期。第三十二页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.2变量声明2.2.1用Dim语句显式声明变量形式：Dim变量名[AS类型]Dim变量名[类型符]

例：DimiCountAsinteger,sumAssingle

等价于DimiCount%,sum!2.2.2隐式声明

VisualBasic允许用户在编写应用程序时，不声明变量而直接使用，系统临时为新变量分配存储空间并使用，这就是隐式声明。所有隐式声明的变量都是Variant数据类型。VisualBasic根据程序中赋予变量的值来自动调整变量的类型。第三十三页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.2.3强制显式声明——OptionExplicit语句良好的编程习惯都应该是“先声明变量，后使用变量”，这样做可以提高程序的效率，同时也使程序易于调试。VisualBasic中可以强制显式声明，可以在窗体模块、标准模块和类模块的通用声明段中加入语句：OptionExplicit第三十四页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.运算符和表达式第三十五页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.关系运算符与关系表达式

关系运算符都是双目运算，是用来比较两个运算量之间的关系，关系表达式的运算结果为逻辑量。若关系成立，结果为True，若关系不成立，结果为False。VB中的关系运算符如下表所示。运算符含义优先级实例结果<小于所有关系运算优先级相同。低于算术运算的加“+”，减“-”运算，高于逻辑非“Not”运算。15+10<20False<=小于或等于10<=20True>大于10>20False>=大于或等于"This">="That"True=等于"This"="That"False<>不等于"This"<>"That"TrueLike字符串匹配"This"Like"*is"TrueIs对象比较

第三十六页，共六十一页。四、数据类型和运算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.逻辑运算符与逻辑表达式

Not逻辑非为单目运算符（要求一个操作数），其它为双目运算符。条件表达式1And条件表达式2条件表达式均为T结果为T

条件表达式1Or条件表达式2条件表达式有一个T结果为T第三十七页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.选择结构

1.1If…Then语句(单分支结构)

If<表达式>Then

语句块

EndIf

或

If<表达式>Then<语句>

例:已知两个数x和y，比较它们的大小，使得x大于y.

Ifx<yThent=x:x=y:y=tEndIf

或Ifx<yThent=x:x=y:y=t第三十八页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.2.If…Then…Else语句(双分支结构)

If<表达式>Then<语句块1>Else<语句块2>EndIf

If<表达式>Then<语句1>Else<语句2>

例如：输出x,y两个中值较大的一个值。IFX>YThenPrintXElsePrintYEndIf也可以写成如下的单行形式：

IFX>YThenPrintXElsePrintY第三十九页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.3.If…Then…ElseIf语句(多分支结构)

形式:

If<表达式1>Then <语句块1> ElseIf<表达式2>Then <语句块2> … [Else

语句块n+1] EndIf第四十页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION

例.输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格”使用IF语句实现的程序段如下：Ifx>=90thenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIf第四十一页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.4.SelectCase语句（情况语句）形式：

SelectCase变量或表达式

Case表达式列表1

语句块1 Case表达式列表2

语句块2 … [CaseElse

语句块n+1] EndSelect第四十二页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

将上例使用selectcase…..语句来实现的程序段如下：SelectCasexCase90to100Print"优秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect第四十三页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.循环结构2.1For循环语句(一般用于循环次数已知)形式

For循环变量＝初值to终值[Step步长]

语句块

[ExitFor]

语句块

Next循环变量

>0初值<终值=1时,可省略<0初值>终值=0死循环步长第四十四页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

编程计算：S=1+2+3+…+100DimS%,I%S=0'累加前变量S为0ForI=1to100S=S+INextIPrint"S=",S第四十五页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION形式1：（当型循环）

Do{While|Until}<条件>

语句块

[ExitDo]

语句块

Loop2.2Do…Loop循环语句第四十六页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION形式2：(直到循环）

Do

语句块

[ExitDo]

语句块

Loop{While|Until}<条件>第四十七页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION

DoUntil…Loop执行过程Do…LoopUntil执行过程条件语句块语句块TFExitDo条件语句块语句块TFExitDo第四十八页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.3While…Wend语句使用格式如下：While<条件><循环块>Wend

说明：该语句的功能与DoWhile<条件>….Loop实现的循环完全相同。第四十九页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

求两个整数的最大公约数、最小公倍数Dimn%,m%,nm%,r%m=Val(InputBox("m="))n=Val(InputBox("n="))nm=n*mIfm<nThent=m:m=n:n=tr=mmodnDoWhile(r<>0)m=nn=rr=mmodnLoopPrint"最大公约数=",nPrint"最小公倍数=",nm/n算法使用转碾除法，流程图如右，实现的程序代码如下：第五十页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

打印九九乘法表.

Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNexti第五十一页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.End语句

形式：End

功能：结束一个程序的运行。在VisualBasic中还有多种形式的End语句，用于结束一个程序块或过程。其形式有：

EndIfEndSelectEndTypeEndWithEndSubEndFunction等它们与对应的语句配对使用。

第五十二页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.暂停语句

Stop语句用来暂停程序的执行，相当于在事件代码中设置断点。语法格式为：

Stop说明：1.Stop语句的主要作用是把解释程序置为中断(Break)模式，以便对程序进行检查和调试。可以在程序的任何地方放置Stop语句，当执行Stop语句时，系统将自动打开立即窗口。2.与End语句不同。第五十三页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.With...EndWith语句形式：

With对象名语句块

EndWith

说明：With语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。例如，要改变一个对象的多个属性，可以在With控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。下面的例子显示了如何使用With语句来给同一个对象的几个属性赋值。第五十四页，共六十一页。五、语句和语法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

需要对同一对象设置几个属性。途径之一是使用多条语句。PrivateSubForm_Load()Command1.Caption="退出(E&xit)"Comma