VB 编程入门教程

会计学1VB编程入门教程VisualBasic程序设计教程2本章将介绍有关VB程序的构成和数据类型以及变量的定义和使用、表达式以及基本的输入输出操作。这些知识是编程的基础。我们将通过简单示例的分析，帮助理解如何进行VB编程。第1页/共83页VisualBasic程序设计教程3本章主要内容:确定数据的性质：数据类型两种数据表达：常量和变量算术运算符和表达式VB编程的开始：使用窗体赋值和输入输出第2页/共83页VisualBasic程序设计教程4

所谓编程就是针对要解决的任务，设计解决问题的步骤，使用计算机程序设计语言进行描述，最后通过编码、测试、修改等过程实现编程的目的。编程有两个方面的要求:一需要理解编程的任务并给出算法二要使用特定的计算机语言具体地表示这些算法。2.1概述第3页/共83页VisualBasic程序设计教程51．加法器界面设计2.2一个简单的加法器程序第4页/共83页VisualBasic程序设计教程62．编写程序代码对象列表框过程列表框过程分界线程序员在此编写代码光标标题第5页/共83页VisualBasic程序设计教程7PrivateSubCmdAdd_Click() ‘计算”按钮代码

DimTempAsLongTxtNum1.Text=""TxtNum2.Text=""TxtSum.Text=""TxtNum1.Text=InputBox("请输入第一个数")TxtNum2.Text=InputBox("请输入第二个数")Temp=Val(TxtNum1)+Val(TxtNum2)TxtSum.Text=TempEndSubPrivateSubCmdExit_Click() “退出”按钮代码

FrmAdder1.HideMsgBox("加法器程序运行结束，谢谢使用")EndEndSub第6页/共83页VisualBasic程序设计教程8

数据是程序处理的对象。为了更好地处理各种各样的数据，VB定义了多种数据类型，数据类型定义了值的范围并确定了它能够进行的操作。2.3确定数据的性质：数据类型第7页/共83页VisualBasic程序设计教程9整数:整型/长整型字节型浮点型:单/双精度货币型数值型数据类型字符型逻辑型日期型对象型变体型第8页/共83页VisualBasic程序设计教程10

使用数值类型1.字节型(Byte)

字节型数可以表示无符号的整数，0～255

2.整型(Integer)和长整型(Long)

不带小数部分的数，表示正整数、负整数和零

整型数:-32768～3276798、98％

长整型数：

-2147483648～214748364745678、45678&

第9页/共83页VisualBasic程序设计教程11

3.单精度型(Single)和双精度型(Double)

浮点数。表示带有小数部分的数

表示数的范围大，但有误差。

如超出某个表示范围，则用科学记数法

例如：4.53E8(4.53×108)，8.173E-14，3.14D23

Single保留7位十进制有效位，Double保留15位4.货币型(Currency)

专门为处理货币而设计的数据类型

它可最多保留小数点右边4位和小数点左边15位第10页/共83页VisualBasic程序设计教程12字符型(String)

用双引号括起来的一串字符。例如Canton”、”1+2=?”、”GoodMorning”等

“″”称为起止界限符。

字符串长度。分变长字符串(长度不固定)和定长字符串(长度固定)

在VB中，把汉字作为一个字符来处理。

例如：“浙江大学浙江杭州中国”

该字符串长度为12，含空格

使用字符型(String)第11页/共83页VisualBasic程序设计教程13逻辑型与日期型逻辑型(Boolean)

逻辑型又称布尔型，其数据只有True(真)和False(假)两个值逻辑值和数值类型进行转换的时候，它们是非对称的：

（1）数值数据转换为布尔值时，0对应False，非0对应为True

（2）布尔值转换为数值数据时，False对应0，True对应为-1。第12页/共83页VisualBasic程序设计教程14日期型(Date)

表示日期和时间

用两个“#”符号把日期和时间的值括起来

如：#08/20/2001#、#2001-08-20#

#12/12/200511:35:35PM#第13页/共83页VisualBasic程序设计教程15变体型和对象引用型变体型(Variant)

变体型数据是一种可变的数据类型，可以存放任何类型的数据

当指定变量为Variant变量时，VB会自动完成必要的转换

第14页/共83页VisualBasic程序设计教程16在程序中不特别说明时，VB会自动将该变量默认为Variant型变量。

例：Temp=“22”’字符串

Temp=22’数值

Temp=#01/01/2002#’日期

对象引用型型(Object)

对象引用型型数据可用来表示应用程序中的对象第15页/共83页VisualBasic程序设计教程17自定义数据类型

VB为用户了提供自定义数据类型，以满足用户的需求。实际上自定义数据只是把VB已有的数据类型重新组合或者构造为一个新类型。例如我们要给员工设计一个工资数据类型，这个类型中有姓名、工号和工资数，可以使用以下方法定义：

TypePay

姓名AsString*8

工号

As Long

工资As Single

EndType第16页/共83页VisualBasic程序设计教程18类型名称字节数取值范围和有效位数整型Integer2精确表示-32768～32767范围内的整数长整型Long4精确表示-2147483648～2147483647范围内的整数单精度浮点型Single4-3.402823×1038～-1.401298×10-451.401298×10-45～3.402823×10386位有效位数双精度浮点型Double8-1.79769313486232×10308～-4.94065645841247×10-3244.94065645841247×10-324～1.79769313486232×1030815位有效位数字节型Byte10～255变长字符串String每个字符占1个字节，每个字符串最多可存放约20亿个字符定长字符串String*sizesize是小于65535的无符号整常数，为字符串长度逻辑型Boolean2True或FalseVisualBasic6.0的常用数据类型2.3确定数据的性质：数据类型第17页/共83页VisualBasic程序设计教程19类型名称字节数取值范围和有效位数货币型Currency8-922337203685477.5808～922337203685477.5807日期型Date8100.1.1～9999.12.31对象型Object4任何对象的引用变体型Variant若存放数值类型数据，占16个字节，最大可达Double的范围；若存放字符串类型数据，字符串长度与变长字符串相同VisualBasic6.0的其他数据类型第18页/共83页VisualBasic程序设计教程20说明：

(1)不同类型的数据，所占的存储空间不一样。

(2)数据的类型可在数据之后加上一个类型符来表示，例如，413&，86!，104.67#等。

第19页/共83页VisualBasic程序设计教程212.4常量与变量2.4.1常量

在程序运行期间其值始终保持不变的量

两种形式的常量：文字常量和符号常量

文字常量又分为数值常量、字符串、逻辑值和日期等

1．数值常量

例如2，35.567，它们直接出现在程序中。

第20页/共83页VisualBasic程序设计教程222．字符串常量

它是用双引号括起来的各种有效字符串组成的，如“123“，“AbcD“，“程序设计“等。字符串可以为空。

字符串常量的长度为两个引号之间所有的字符数，包括空格。VB规定定长字符串最大长度为32767。

第21页/共83页VisualBasic程序设计教程233．逻辑常量

就是逻辑值，True和False。

4．日期常量

表示日期和时间的常量，例如：#12-12-2005# 第22页/共83页VisualBasic程序设计教程242.4.2符号常量

符号常量是在程序中用符号表示的常量。符号常量定义一个符号（字符串）代表一个文字常量

格式：

[Public｜Private]Const常量名[As数据类型]=表达式

例如：ConstPI=3.14159AsSingle

使用符号常量主要是为提高程序的可读性。另外，如果需要进行常数的调整，只需要在定义的地方一次性修改就可以了。

第23页/共83页VisualBasic程序设计教程252.4.3变量和声明变量

1．变量是什么

变量是在程序运行期间其值可以发生变化的量。

在程序运行时，数据是存放在内存中的。因此变量就是指示程序将到哪个内存单元去存取数据，即变量与内存单元有关。使用变量名标识不同的变量，同时要给出变量数据的类型。因此，VB变量由数据类型和变量名组成。

程序中选择使用常量还是变量，是根据它们是否需要变化而决定的。第24页/共83页VisualBasic程序设计教程262．VB变量的特点

（1）可变性。向变量存数据，会改变变量原来的值。

（2）从变量中取数据，变量中原来的值不会改变，因此在程序中，一个变量的值可以被反复取用而不会导致数据的改变，“取之不尽”。这是变量的可复制性。

（3）变量的取值和它的类型有关，但VB能够进行自动转换。第25页/共83页VisualBasic程序设计教程273．给VB变量命名

应遵守一些规则：

(1)变量名必须以字母开头；

(2)只能由字母、数字和下划线组成。不能含有小数点、空格等字符；

(3)字符个数不得超过255个；

第26页/共83页VisualBasic程序设计教程28

(4)不能使用VB的关键字(如语句名、函数名等)。例如，Print、Sub、End等

(5)变量名在一个程序区域内不能同名。

(6)不区分变量名中字母的大小写，一般情况下变量的第一个字母以大写表示。变量取名应使用能够望名知义的单词或者缩写等，提高程序的可读性。第27页/共83页VisualBasic程序设计教程294.变量的声明变量的声明就是向程序说明要使用的变量。有以下2种方法(显式声明与隐式声明)(1)声明变量(显式声明)

用Dim、Public、Private或Static语句来声明变量例如：DimsumAsInteger′把sum定义为整型变量

第28页/共83页VisualBasic程序设计教程30(2)隐式声明

不加说明就直接使用变量，此时默认的变量类型为变体类型(Variant)也允许使用类型符来声明变量的类型，如Num%，Sum!(3)定义多个变量第29页/共83页VisualBasic程序设计教程312.4.4强制要求必须声明变量：OptionExplicit

OptionExplicit

一般情况下，该语句放置在程序模块的外部开始部分，强制要求所有变量必须显式声明后才能使用。

OptionExplicitPrivateSubCmdAdd_Click()……EndSub第30页/共83页VisualBasic程序设计教程322.4.5VB的关键字

VB有许多关键字，也叫做保留字，它们为VB系统本身所用，具有特定的含义。这些已经被VB使用了的单词或者缩写就是“关键字”。关键字不能被使用作为用户定义的变量名，也不能被编程者重新定义使用。如我们已知的：As，Dim，Private，Sub，End，Integer，Long，String，OptionExplicit，Date，Const，……等等。第31页/共83页VisualBasic程序设计教程33VB有五类表达式：算术表达式、字符串表达式、日期表达式、关系表达式和逻辑表达式运算符说明运算符说明+加法\整数除法－减法^幂*乘法Mod求模/浮点数除法－取负2.5算术运算符和表达式算术运算符

第32页/共83页VisualBasic程序设计教程341．除法计算机使用“/”和“\”代表数学中的除号。“/”用于浮点数除，它将产生一个有小数部分的商。而“\”则是整数除法，它在进行除之前先将运算数四舍五入，结果为丢掉小数部分取其整数部分。注意下面的几个例子：

3/2 结果为1.5 3\2 结果为1 3.5\2 结果为2第33页/共83页VisualBasic程序设计教程352．取模运算Mod

取模运算是取整除后余数的整数部分。VB支持整数和带小数的数的取模运算。如果是带小数的，则在运算前进行四舍五入操作。注意下面的例子：

13Mod3结果为1，即余数为1 3.5Mod2结果为0。先将3.5四舍五入为4，除2的余数为0 7Mod2.6结果为1 5Mod0.49 除数为0错误（如果你把0.49改为0.5和0.51，试试看会发生什么？）第34页/共83页VisualBasic程序设计教程362.5.2

算术表达式算术表达式也称数值表达式，是用算术运算符把数值型常量、变量、函数连接起来的式子。表达式的运算结果是一个数值例如：(A1＋B1/3－X\0.5)*Sin(X) 第35页/共83页VisualBasic程序设计教程372.5.3算术运算符的优先规则运算符优先级

^(乘方)→-(求负)→*/→\→Mod→+-

同级左到右第36页/共83页VisualBasic程序设计教程38说明：(1)/和＼的区别：1/2=0.5，1＼2=0

(2)Mod用来求整型数除法的余数。例如：9Mod7结果为2

(3)在表达式中乘号不能省略，如a*b不能写成ab(或a·b)

(4)括号不分大、中、小，一律采用圆括号。可以嵌套使用

例如，x[x(x+1)+1]→x*(x*(x+1)+1)第37页/共83页VisualBasic程序设计教程39窗体是我们进入VB编程所遇到的第一个对象，它是进行程序界面设计的基础平台。在程序运行时它就是程序的实际窗口。使用窗体的“属性”定义窗体的外观使用窗体的“方法”定义窗体的行为使用窗体的“事件”定义与用户之间的交互因此了解窗体（包括后续的控件等对象），就是围绕它的属性、方法和事件展开。这也是学习VB对象编程的主要思路。2.6VB编程的开始：使用窗体第38页/共83页VisualBasic程序设计教程40‘程序入口：开始装载窗体‘设置窗体显示功能‘设置窗体的背景色为绿色‘设置窗体的前景色为红色‘设置窗体上对象的字体为黑‘使用字号为15磅‘换行‘显示WelcomeToTheVisualBasic‘显示ThisisaDemoProgram‘结束装载过程PrivateSubForm_Load() ShowForm1.BackColor=vbGreenForm1.ForeColor=vbRedForm1.FontName="黑体"Form1.FontSize=15PrintPrint"WelcomeToTheVisualBasic"Print"ThisisaDemoProgram"EndSub2.6.1一个使用窗体显示文本的例子第39页/共83页VisualBasic程序设计教程41

窗体的绝大多数属性可以在属性窗口中设置，也可以在程序代码中设置，在程序中输入窗体对象名称和“.”分割后会自动跳出窗体的属性和方法，在这里可以区分属性和方法。2.6.2窗体的属性第40页/共83页VisualBasic程序设计教程42窗体的常用属性

自动重画窗体。如需要直接在窗体上显示文本，选择TrueAutoRedraw3设置窗体显示3D效果，默认值为1为3DAppearace2窗体名称（中文版使用(名称)）。可在程序中使用，但不能设置Name1功能描述属性名编号第41页/共83页VisualBasic程序设计教程43决定窗体是否响应用户事件(如单击窗体)。属性值为True或FalseEnabled8决定窗体的左上角设置控制菜单按钮，选择True或FalseControlBox7标题。也是程序运行后在标题栏所显示的内容Caption6窗体边框样式。有六种选择，只能在属性窗口选择BorderStyle5背景色。在属性窗口选择或者程序代码设置BackColor4第42页/共83页VisualBasic程序设计教程44这四个属性决定窗体的大小和位置。程序可进行设置。Height、Width设置窗体的高度和宽度。Top为窗体到屏幕顶部的距离，Left为窗体到屏幕左边的距离HeightWidthTopLeft11前景色。在属性窗口选择或者程序代码设置ForeColor10设置窗体上对象的字体、字型、大小等。可在程序中设置Font9第43页/共83页VisualBasic程序设计教程45设置窗体运行时的状态，0为正常，1为最小化，2为最大化WindowState16可见性。默认为True。False使窗体及窗体上的对象都不可见Visible15给窗体加载一个图像或图形Picture14确定窗体右上角最大化按钮是否有效。确定窗体右上角最小化按钮是否有效MaxButtonMinButton13指定图标。可以选择窗体最小化时的图标。选择图标文件。Icon12第44页/共83页VisualBasic程序设计教程462.6.3窗体的方法窗体方法就是对窗体的操作行为。方法使用格式为：

Object.方法名[可选参数]Object为窗体对象的名称（Name），如果在当前活动窗体，可省略Object或者用关键字Me。第45页/共83页VisualBasic程序设计教程471．显示窗体方法（Show）功能：显示窗体对象。Show方法的使用格式为：

Object.Show[Style]

使用Show方法如果没有指定窗体名称，则默认当前活动窗体。参数Style是一个整数，决定窗体的模式，取值0为无模式，1为有模式第46页/共83页VisualBasic程序设计教程482．隐藏窗体方法（Hide）功能：隐藏窗体。注意这只是不显示窗体而不是卸载。要再次显示窗体，使用Show方法即可。Hide方法的格式为：

Object.Hide

如果Object没有被指定，则当前活动窗体被隐藏。第47页/共83页VisualBasic程序设计教程493．移动窗体方法（Move）

Move方法可以移动或者改变窗体的大小。使用格式为：

[Object].MoveLeft，[Top]，[Width]，[Height]

其中，Left是必选参数，Top是可选参数，分别代表窗体的x,y方向的坐标。Width和Height为窗体移动到新位置后的高度和宽度。坐标参数的单位默认为缇（Twip，1/1440英寸）。可在窗体属性ScaleMode中选择参数单位。第48页/共83页VisualBasic程序设计教程504．清除窗体方法（Cls）

Cls（ClearScreen）是清除窗体上的显示的文本和图形。如Me.Cls为清除当前窗体的显示。5．打印方法（Print）

Print是在窗体上输出文本。6．打印窗体方法（PrintForm）把整个窗体作为位图图像输出到打印机。该方法使用的格式为：Object.PrintForm。第49页/共83页VisualBasic程序设计教程512.6.4

窗体识别的动作：事件在窗体中使用某种事件触发一个过程，以便完成某个任务，因此我们也叫它为事件过程。例如：PrivateSubForm_Load()……EndSub

第50页/共83页VisualBasic程序设计教程52

这里程序就是窗体的装载事件过程，称为Load过程，Load就是窗体的一个事件。窗体事件过程的一般格式为：

PrivateSubForm_事件名（参数表）

…… ‘我们在这里编写处理事件的程序代码EndSub第51页/共83页VisualBasic程序设计教程53窗体常用事件：1.装载事件（Load）程序运行时，通过Load事件把窗体装载到内存。2.卸载事件（Unload）窗体卸载时触发Unload事件，使窗体从内存中退出并从屏幕上消失。

PrivateSubForm_Unload(CancelAsInteger)第52页/共83页VisualBasic程序设计教程543.活动/非活动事件（Activate/Deactivate）

PrivateSubForm_Activate()PrivateSubForm_Deactivate()

使用Show可触发这个活动过程，使用Hide触发非活动过程。第53页/共83页VisualBasic程序设计教程554.重绘窗体事件（Paint/Resize）当窗体被移动或者改变大小时，触发Paint事件。如果在窗体上有图形输出，则可以使用Paint事件过程重绘图形。窗体改变了大小，原来窗体上的控件的布局比例发生了改变，为此可以进入Resize事件过程重新调整控件的布局，使之适合新的窗体大小。第54页/共83页VisualBasic程序设计教程562.6.6Tab键和焦点焦点——对象的活动状态。改变对象焦点的方法：1.使用鼠标点击或者使用Tab键使用Tab键焦点的移动次序与对象的Tabindex属性有关。第55页/共83页VisualBasic程序设计教程572.程序中改变对象. SetFocus

对象.LostFocus一个对象能否得到焦点还与对象本身、对象的其他属性(Enabled)有关。第56页/共83页VisualBasic程序设计教程58计算机的工作原理：数据输入→处理机（程序）→信息输出在构造一个程序时必须考虑：如何给变量赋值，如何输入数据并如何把有关计算结果输出。赋值就是把一个合适的值（数或字符）存入指定的变量中，而值的来源可以是程序直接产生，也可以是从键盘输入，也可以来自其他程序的传送或来自于文件。2.7赋值和输入输出第57页/共83页VisualBasic程序设计教程592.7.1如何进行赋值操作赋值语句的格式如下：

[Let]变量名=表达式或者： 变量名=表达式例如：Sum=100 x=x+1CmdAdd.Caption=“计算”第58页/共83页VisualBasic程序设计教程60使用赋值语句要注意以下问题：

1．“=”不是数学中的等号的意思，是一个赋值的运算符，叫做赋值号。

2．对变量的赋值后，以新值代替了原来的值。

3．在表达式中的变量应先赋值。如果是首次直接被用在表达式中，则VB自动赋初值：（1）如果是数值型变量，则自动赋初值为0。（2）字符型变量的初值为空。第59页/共83页VisualBasic程序设计教程614．同一个变量出现在赋值号的两边的意义不同。在右边的变量是取出变量的值参与运算，在左边则是保存右边表达式结果值。

5．一般要求变量的数据类型和表达式的结果值的类型一致，或者说表达式的值能够被所赋值的变量的类型所接纳。第60页/共83页VisualBasic程序设计教程62【例2-3】计算半径为5的圆面积和圆周长。PrivateSubForm_Click() ConstPI=3.141526 '定义常量π DimRAsinteger,AreaAsSingle,PerimeterAsSingle'定义变量

R=5 '给半径变量赋值

Area=PI*R*R '计算后的面积值赋给变量Area Perimeter=2*PI*R '周长值赋给变量ParimeterPrint“半径＝”;R,”面积”;Area,”周长”;Perimeter '输出半径、面积。周长EndSub

第61页/共83页VisualBasic程序设计教程632.7.2使用输入对话框InputBox函数【例2-4】计算半径为R的圆面积和周长，半径值由键盘输入。PrivateSubForm_Click()ConstPI=3.141526DimRAsInteger,AreaAsSingle,PerimeterAsSingleR=Val(InputBox("请输入圆的半径：","输入"))Area=PI*R*RPerimeter=2*PI*RPrint"半径＝";R,"面积";Area,"周长";PerimeterEndSub

这个例子中使用了InputBox函数产生输入对话框。

第62页/共83页VisualBasic程序设计教程641．输入对话框的使用InputBox函数的使用格式如下：InputBox（提示[，标题][，默认值][，xpos][，ypox]）它们的含义如下：（1）提示信息。这是InputBox对话框所必须的信息，也可以使用空文本，即“”。（2）标题。这是在对话框窗口标题栏显示的内容。可设置，也可以没有标题。第63页/共83页VisualBasic程序设计教程65（3）默认值。在输入框中的默认输入。系统默认为空，可选。（4）xpos和ypos为对话框的左侧与屏幕左边的距离和上边与屏幕顶部的距离值。可选。

第64页/共83页VisualBasic程序设计教程662．在提示中使用多行文本如果提示信息比较多，可以使用ASCII控制符回车Chr（13）和换行符Chr（10）产生另起一行。例如：提示信息为“请输入圆的半径”+Chr（13）+Chr（10）+“使用正整数”，产生如图效果第65页/共83页VisualBasic程序设计教程673．使用转换函数

InputBox函数接受的是文本，也就是字符型数据，在程序中根据变量类型不同，可以使用转换函数。如：R=Val(InputBox("请输入圆的半径：","输入"))这里的Val就是转换函数，将文本类型的数据转换为整型数以便参加运算。VB提供了在不同类型数据之间的转换。

第66页/共83页VisualBasic程序设计教程682.7.3使用Print方法输出数据使用Print在对象中显示（打印）输出文本。使用格式如下：

[对象名].Print[表达式][,表达式]……

1．对象名一般情况下，Print输出到窗体或者图片框。在本窗体中输出，可以缺省对象名。第67页/共83页VisualBasic程序设计教程692．表达式

Print方法支持多个表达式的输出，可输出数字、文字字符、日期、逻辑值等。如果Print后面没有任何表达式，则输出空行（在显示效果上相当于回车换行）。第68页/共83页VisualBasic程序设计教程703．输出格式多个表达式输出，可以使用分号和逗号分隔。（1）逗号分隔（标准格式输出）。逗号后的下一个表达式按照14个字符的空间分开显示。实际分隔位置还与所在输出行的宽度和分隔的数目有关。（2）分号分隔（紧凑格式输出）。后一个表达式的值接着前一个表达式的输出。第69页/共83页VisualBasic程序设计教程71（3）在Print语句最后使用逗号或分号结束，不换行，下一个Print接着按格式输出。（4）使用Spc()和Tab()函数，前者控制插入空格，后者确定列位置第70页/共83页VisualBasic程序设计教程72例：PrivateSubForm_click()Me.FontSize=16Print'空行

Print"A=";1,"B=";2Print1,2;3,4Print"A";Spc(4);"B"PrintTab(10);"B"Print"1234567890"EndSub第71页/共83页VisualBasic程序设计教程73

2.7.4使用消息对话框MsgBox函数MsgBox函数提供了一个显示应用程序运行信息的标准途径，如图所示：MsgBox的格式如下：变量名=MsgBox(提示

[,对话框类型][,对话框标题])第72页/共83页VisualBasic程序设计教程74（1）使用形式:MsgBo