vb语言程序设计教程PPT

1、1v1.1 认识认识Visual Basic语言语言v1.2 窗体窗体21.1.1 Visual Basic1.1.1 Visual Basic的特点的特点31.1.2设计设计Visual Basic应用程序的步骤应用程序的步骤 例：例：编写应用程序完成功能编写应用程序完成功能: :当用户在应用当用户在应用程序窗体中用鼠标单击命令按钮时程序窗体中用鼠标单击命令按钮时, ,窗体中显窗体中显示示: :“祝你成功祝你成功! ! ” 。 4设计设计Visual Basic应用程序的步骤：应用程序的步骤： v第一步：创建窗体第一步：创建窗体v第二步：编写程序代码第二步：编写程序代码v第三步：运行程序第三

2、步：运行程序v第四步：保存程序第四步：保存程序v第五步：生成第五步：生成EXE文件文件51.1.3 面向对象程序设计的概念面向对象程序设计的概念v类v对象v容器对象v属性v方法v事件v事件过程v事件驱动61.2 1.2 窗体窗体.1窗体的属性窗体的属性窗体的基本属性窗体的基本属性:Name:Name、heightheight、WidthWidth、LeftLeft、TopTop、EnabledEnabled、VisibleVisible、ForeColorForeColor和和ImageImage。NameName名称名称: :所建对象的名称所建对象的名称, ,每创建一个对象每

3、创建一个对象, ,系统系统都提供一个默认的名称都提供一个默认的名称, ,可在属性窗口的可在属性窗口的NameName栏进行栏进行修改修改, ,名称是程序中引用对象的标识符名称是程序中引用对象的标识符, ,不显示在窗体不显示在窗体上。上。Height,Width,Top,Left:Height,Width,Top,Left:HeightHeight和和WidthWidth决定了控件对象显示的大小决定了控件对象显示的大小;Top;Top和和LeftLeft决定了控件对象在窗体中的位置决定了控件对象在窗体中的位置. .窗体的左上角窗体的左上角为原点为原点, ,单位为单位为twiptwip。7Enab

4、led:Enabled:决定控件是否允许操作决定控件是否允许操作 TrueTrue允许用户进行操作，并对操作作出响应允许用户进行操作，并对操作作出响应; ; False False禁止用户进行操作，呈暗淡色。禁止用户进行操作，呈暗淡色。Visible:Visible:决定控件是否可见决定控件是否可见 TrueTrue程序运行时控件可见程序运行时控件可见; ; False False程序运行时控件隐含起来看不到，但存在程序运行时控件隐含起来看不到，但存在. .ForeColorForeColor前景色前景色: :设置控件的前景色设置控件的前景色( (正文颜色正文颜色, ,若若控件有正文控件有正文

5、, ,该属性才有效该属性才有效),),其值是一个其值是一个1616进制的常进制的常数数, ,在属性窗口中在属性窗口中, ,提供有调色板供用户选择。提供有调色板供用户选择。BackColorBackColor背景色背景色: :设置控件中正文背景的颜色。设置控件中正文背景的颜色。8Caption:Caption:决定窗体标题栏显示的内容决定窗体标题栏显示的内容MaxButtonMaxButton：最大化按钮（其值为：最大化按钮（其值为TrueTrue或或False)False)MinButtonMinButton：最小化按钮（其值为：最小化按钮（其值为TrueTrue或或False)False)I

6、con:Icon:设置窗体最小化的图标设置窗体最小化的图标ControlBox:ControlBox:设置窗口右上角的控制菜单设置窗口右上角的控制菜单( (其值为其值为TrueTrue或或False)False)Picture: Picture: 设置窗体中显示的图片设置窗体中显示的图片BorderStyle:BorderStyle:设置窗体的边框有无设置窗体的边框有无, ,及形式及形式WindowsState:WindowsState:设置窗体在运行时的显示状态设置窗体在运行时的显示状态 Normal 0Normal 0（缺省值）正常（缺省值）正常 。 Minimized 1 Minimiz

7、ed 1 最小化（最小化为一个图标）最小化（最小化为一个图标） Maximized 2 Maximized 2 最大化（扩大到最大尺寸）最大化（扩大到最大尺寸） 91.2.2 1.2.2 窗体的事件窗体的事件事件事件功能功能Initialize初始化所有的数据。初始化所有的数据。Load装载窗体，发生在装载窗体，发生在Initialize之后。此时窗体是不活动的。之后。此时窗体是不活动的。Activate发生在发生在Load之后。激活窗体，等待其他事件发生，此时才能之后。激活窗体，等待其他事件发生，此时才能响应用户在界面上的交互操作。响应用户在界面上的交互操作。 Click在在Activate

8、之后，单击窗体，触发之后，单击窗体，触发Click事件。事件。DbClick在在Activate之后，双击窗体，触发之后，双击窗体，触发DbClick事件。事件。Resize在在Activate之后，如果进行了改变窗体大小的操作，才会触之后，如果进行了改变窗体大小的操作，才会触发发Resize事件。事件。Unload关闭窗口时才发生。把窗体从内存中删除（即卸载窗体）。关闭窗口时才发生。把窗体从内存中删除（即卸载窗体）。10方方 法法格格 式式功能功能ClsObject.Cls清除运行时输出的文本和清除运行时输出的文本和图形。图形。PrintObject. Print在窗体上输出文本在窗体上输出

9、文本Show Show显示窗体。显示窗体。Hide Hide隐藏窗体。隐藏窗体。MoveObject. Move Left,Top,Width,Height移动窗体或控件。移动窗体或控件。1.2.3 1.2.3 窗体的窗体的方法方法1112v2.1 2.1 基本数据类型基本数据类型v2.2 2.2 变量与常量变量与常量v2.3 2.3 运算符和表达式运算符和表达式v2.4 2.4 常用内部函数常用内部函数v2.5 2.5 编码规则编码规则第二章第二章 Visual Basic语言基础语言基础13 2.1 2.1 基本数据类型基本数据类型 数据数据描述客观事物的数、字符以及所描述客观事物的数、字

10、符以及所有能输入到计算机中并被计算机程序加有能输入到计算机中并被计算机程序加工处理的符号的集合称为数据。工处理的符号的集合称为数据。 VBVB的基本数据：的基本数据：P P1313 表表2.12.1 * * *VBVB中有多种数据类型，不同的数据类型中有多种数据类型，不同的数据类型所占的存储空间不一样。所占的存储空间不一样。142.1.1 2.1.1 数值（数值（NumericNumeric）型数据）型数据VBVB提供了提供了6 6种数值型的数据，如下：种数值型的数据，如下：1 1、整型（、整型（IntegerInteger）即常规型数据）即常规型数据优点：运算速度较快，所占内存少优点：运算速

11、度较快，所占内存少缺点：可表示数的范围相对小一些。缺点：可表示数的范围相对小一些。表示方式：十进制、八进制、十六进制表示方式：十进制、八进制、十六进制2 2、长整型（、长整型（LongLong）数的表示范围大于整型（数的表示范围大于整型（2 23232）3 3、字节型（、字节型（ByteByte）表示无符号的整数，范围表示无符号的整数，范围0 0255255。154 4、单精度（、单精度（SingleSingle）可表示最多可表示最多7 7位有效数字的数。可用定点形位有效数字的数。可用定点形式和浮点形式来表示。式和浮点形式来表示。v 单精度的定点形式是在该范围内含有小数单精度的定点形式是在该范

12、围内含有小数的数。的数。如：如： -3.4 120.0 +1.234 .00069-3.4 120.0 +1.234 .00069v 单精度的浮点形式使用科学计数法，即以单精度的浮点形式使用科学计数法，即以1010的整数次幂表示的数，以的整数次幂表示的数，以“E E”来表示底数来表示底数1010。如：。如： -3.4E5 120.0E-5 1.234E+12-3.4E5 120.0E-5 1.234E+12165 5、双精度数（、双精度数（DoubleDouble）最多可表示的最多可表示的1515位有效数字的数。也有定位有效数字的数。也有定点和浮点两种表示法。点和浮点两种表示法。v 双精度的定

13、点形式是在该范围内含有小双精度的定点形式是在该范围内含有小数的数，数的数，如：如：-31.123456789129 -31.123456789129 。 v 双精度的浮点形式使用科学计数法，即双精度的浮点形式使用科学计数法，即以以1010的整数次幂表示的数，以的整数次幂表示的数，以“D D”来表来表示底数示底数1010。 如：如：-3.412334D52 -3.412334D52 ，120.12567D-45 120.12567D-45 176 6、货币型（、货币型（CurrencyCurrency）支持小数点右面四位和小数点左面支持小数点右面四位和小数点左面1515位，位，是一个精确的定点数

14、据类型。是一个精确的定点数据类型。 182.1.2 2.1.2 字符型（字符型（StringString）数据）数据字符型数据字符型数据一切可打印的字符和字一切可打印的字符和字符串，它是用双引号括起来的一串字符串，它是用双引号括起来的一串字符。符。如：如：”abcabc”, , ”123123”192.1.3 2.1.3 布尔（布尔（Boolean)Boolean)型数据型数据 False(False(假假) 0) 0 True( True(真真) ) 非非0 0值值与数值型转换与数值型转换202.1.4 2.1.4 日期日期(Date)(Date)型数据型数据表示日期和时间表示日期和时间,

15、,可以表示多种格式的日期可以表示多种格式的日期和时间和时间, ,用用“# #” 符号把表示日期和时间的符号把表示日期和时间的值值括起来。如括起来。如 #11/18/2000#, #2000-11-18#,#11/18/2000#, #2000-11-18#, #11/18/2000 10:28:56 pm# #11/18/2000 10:28:56 pm#2.1.5 2.1.5 对象（对象（ObjectObject）型数据）型数据可用来表示应用程序中或某些其他应用程可用来表示应用程序中或某些其他应用程序中的对象。序中的对象。212.1.6 2.1.6 可变（可变（VariantVariant）

16、类型数据）类型数据 能够表示所有系统定义的数据，当能够表示所有系统定义的数据，当把它们赋予把它们赋予VariantVariant型数据时，不必在这型数据时，不必在这些数据间进行转换，些数据间进行转换，VBVB会自动完成任何会自动完成任何必要的转换。必要的转换。例如：例如： SomeValue=SomeValue=1818 SomeValue=SomeValue-15 SomeValue=SomeValue-15 SomeValue= SomeValue=UU&SomeValue&SomeValue目录目录222.2 2.2 常量与变量常量与变量2.2.1 Visual Basi

17、c2.2.1 Visual Basic的标识符的标识符标识符的组成：标识符的组成：必须以字母或汉字开头，只能包含字母、汉字、数字和下划必须以字母或汉字开头，只能包含字母、汉字、数字和下划线；线；字符的个数不能超过字符的个数不能超过255255个，控件和窗体等的名字不能超过个，控件和窗体等的名字不能超过4040个字符；个字符；不能和不能和VBVB的关键字同名；的关键字同名；VBVB不区分大小写；不区分大小写；为了增加程序的可读性，可以在符号名前加上表明数据类型为了增加程序的可读性，可以在符号名前加上表明数据类型的前缀，如的前缀，如strstr，intint，dtmdtm等。等。232.2.2 2

18、.2.2 常量常量常量常量在程序运行过程中始终保持不变的在程序运行过程中始终保持不变的常数、字符串等。在常数、字符串等。在VBVB中，有两种形式的中，有两种形式的常量：一般常量和符号常量常量：一般常量和符号常量1 1、一般常量、一般常量根据使用的数据类型，常量分为：根据使用的数据类型，常量分为：字符串常量、数值常量、布尔常量、日期字符串常量、数值常量、布尔常量、日期常量常量242 2、符号常量、符号常量符号常量分为两种：系统内部定义和用户符号常量分为两种：系统内部定义和用户定义的符号常量定义的符号常量（1 1）系统内部定义的常量）系统内部定义的常量25（2 2）用户定义的符号常量）用户定义的符

19、号常量用户定义常量使用用户定义常量使用ConstConst语句来给常量分配语句来给常量分配名字、值和类型。声明常量的语法为：名字、值和类型。声明常量的语法为：Public|PrivateConstPublic|PrivateConst常量名常量名AsAs数据类数据类型型=表达式表达式v 的命名规则遵循符号的命名规则。的命名规则遵循符号的命名规则。v 由数值常量、字符串常量等常量及运算符组由数值常量、字符串常量等常量及运算符组成，也可以包含前面定义的常量，成，也可以包含前面定义的常量，但不能使用函数但不能使用函数调用。调用。261 1、变量的声明变量的声明声明语句的语法：声明语句的语法：Dim|

20、Private|Static|Public Dim|Private|Static|Public As As ， As As 2说明：说明：uPublicPublic语句声明公有的模块级变量，语句声明公有的模块级变量，PrivatePrivate或或DimDim语句声明私有的模块级变量，语句声明私有的模块级变量，DimDim或或PrivatePrivate或或StaticStatic语句声明过程级局部变量。语句声明过程级局部变量。2.2.3 2.2.3 变量变量27针对字符串变量而言：针对字符串变量而言：1、变长字符型变量、变长字符型变量字符串的长度是不固定的。字符串的长度是不固定的。2、定长字

21、符型变量、定长字符型变量字符串的长度是不变的。字符串的长度是不变的。如：如： Dim sname As String*8 sname= janenjggnj 相当于相当于(sname= janenjgg)282 2、强制显示声明变量语句、强制显示声明变量语句 Option ExplicitOption Explicit（可有效降低错误率）可有效降低错误率）方法：方法：1 1）在类模块、窗体模块或标准模块的声）在类模块、窗体模块或标准模块的声明段中加入语句明段中加入语句 Option ExplicitOption Explicit2 2）工具工具选项选项编辑器选项卡编辑器选项卡要求变量声明要求变

22、量声明292.3 2.3 运算符和表达式运算符和表达式运算运算对数据进行加工的过程对数据进行加工的过程运算符运算符描述各种不同运算的符号称为描述各种不同运算的符号称为运算符。运算符。操作数操作数参与运算的数据参与运算的数据表达式表达式表示某个规则，它由运算符和配表示某个规则，它由运算符和配对的圆括号将常量、变量、函数、对象等对的圆括号将常量、变量、函数、对象等操作数以合理的形式组合而成。操作数以合理的形式组合而成。302.3.1 2.3.1 算术运算符与表达式算术运算符与表达式 由算术运算符、数值型常量、变量、函数和由算术运算符、数值型常量、变量、函数和括号组成，其运算结果为一数值。括号组成，

23、其运算结果为一数值。格式：格式： 31 1、算术运算符、算术运算符 * * / Mod + - / Mod + -2 2、书写规则、书写规则3 3、优先级、优先级 -(负数）负数） （ *、/） Mod （+、-）312.3.2 2.3.2 字符串运算符与表达式字符串运算符与表达式字符串表达式的格式：字符串表达式的格式： & & & & 3例如：例如： AbcAbc & & 999999=Abc999=Abc999 123 & 123 & 999999=123999 =123999 * * * * *“+ +”也能将两个字符串连接

24、成一个字符串，也能将两个字符串连接成一个字符串，但但“& &”能自动将非字符串类型的数据转换成能自动将非字符串类型的数据转换成字符串后再进行连接，而字符串后再进行连接，而“+ +”则不能。则不能。 322.3.3 2.3.3 日期运算符与表达式日期运算符与表达式日期运算符：日期运算符：“+ +”，“- -”日期型数据是一种特殊的数值型数据，它日期型数据是一种特殊的数值型数据，它们之间的运算情况有如下们之间的运算情况有如下3 3种：种：（1 1）两个日期相减，结果是一个数值型数）两个日期相减，结果是一个数值型数据据（两个日期相差的天数）（两个日期相差的天数）如：如：#12/19/

25、1999# - #11/16/1999#12/19/1999# - #11/16/1999# 结果为：结果为： 333333（2 2）一个表示天数的数值型数据可以加到日）一个表示天数的数值型数据可以加到日期数据中，结果仍然是一个日期型数据。期数据中，结果仍然是一个日期型数据。 #11/16/1999# + 33#11/16/1999# + 33结果为：结果为：#1999-12-19#1999-12-19#（3 3）一个表示天数的数值型数据可以从日期）一个表示天数的数值型数据可以从日期型数据中减掉，其结果仍然为一个日期型数型数据中减掉，其结果仍然为一个日期型数据。据。 #12/19/1999#

26、- 33#12/19/1999# - 33结果为：结果为：#1999-11-16#1999-11-16#目录目录342.4 2.4 常用内部函数常用内部函数 分为：分为：u数学函数数学函数u随机函数随机函数u字符串函数字符串函数u日期时间函数日期时间函数u转换函数转换函数 35函数名函数名返回值类型返回值类型功功 能能举举 例例返回值返回值Abs(N)Abs(N)同同N N的类型的类型求求N N的绝对值的绝对值Abs(-4.8)Abs(-4.8)4.84.8Sgn(N)Sgn(N)IntegerIntegerN N为正、零、负分别返为正、零、负分别返回回1 1、0 0、-1-1Sng(4)Sn

27、g(4)Sng(0)Sng(0)Sng(-4)Sng(-4)1 10 0-1-1Sqr(N)Sqr(N)DoubleDouble求求N N的算术平方根的算术平方根,N=0,N=0Sqr(16)Sqr(16)4 4Exp(N)Exp(N)DoubleDouble求自然常数求自然常数e e的的N N次幂次幂Exp(2)Exp(2)7.38907.3890Log(N)Log(N)DoubleDouble求求N N的自然对数值的自然对数值,N0,N0Log(2)Log(2)0.69310.6931Int(N)Int(N)IntegerInteger求不大于求不大于N N的最大整数的最大整数Int(4.

28、8)Int(4.8)Int(-4.8)Int(-4.8)4 4-5-5Fix(N)Fix(N)IntegerInteger求求N N的整数部分的整数部分Fix(4.8)Fix(4.8)Fix(-4.8)Fix(-4.8)4 4-4-4Rnd(N)Rnd(N) SingleSingle求求0,1)0,1)之间的一个随之间的一个随机数，机数，N N作为产生随机作为产生随机数的种子数的种子RndRndRnd(-1)Rnd(-1)Rnd(0)Rnd(0)Rnd(1)Rnd(1)序列中下一随机数序列中下一随机数得相同的随机数得相同的随机数最近生成的随机数最近生成的随机数序列中下一随机数序列中下一随机数2

29、.4.1 2.4.1 ( (表表2-5)2-5)362.4.2 2.4.2 ( (表表2-6)2-6)函数名函数名返回值返回值类型类型功功 能能举举 例例返回值返回值Asc(C)Asc(C)IntegerInteger求字符串求字符串C C首字母的首字母的ASCIIASCII码码Asc(Asc(“ABCABC”) )6565Chr(N)Chr(N)StringString求以数值求以数值N N为为ASCIIASCII码的字符码的字符Chr(65)Chr(65)AAStr(N)Str(N)StringString将数值将数值N N转换为数字转换为数字字符串字符串Str(-12345)Str(-1

30、2345)-12345-12345Val(C)Val(C)DoubleDouble将数字字符串将数字字符串C C转换转换为数值为数值Val (1234abc)Val (1234abc)12341234Len(C)Len(C)LongLong求字符串求字符串C C的字符数的字符数Len(AbabLen(Abab字符串字符串)7 7LenB(C)LenB(C)LongLong求字符串求字符串C C占用的字占用的字节数节数 LenB(AbabLenB(Abab字符串字符串)1414Ucase(C)Ucase(C)StringString将小写字母转换为将小写字母转换为大写字母大写字母UCase (a

31、bcABC)UCase (abcABC)ABCABCABCABCLcase(C)Lcase(C)StringString将大写字母转换为将大写字母转换为小写字母小写字母Lcase(abcABC)Lcase(abcABC)abcabcabcabc37Space(N)Space(N)StringString产生产生N N个空格个空格Len(Space(6)Len(Space(6)6 6String(N,C)String(N,C)StringString产生产生N N个由个由C C的第一个的第一个字符组成的字符串字符组成的字符串,C,C可以是可以是ASCIIASCII码码String(6, ABC)

32、String(6, ABC)String(6,65)String(6,65)AAAAAAAAAAAAAAAAAAAAAAAALeft(C,N)Left(C,N)StringString取取C C左边左边N N个字符个字符Left(ABCDEF,3)Left(ABCDEF,3)ABCABCRight(C,N)Right(C,N)StringString取取C C右为右为N N个字符个字符Right(ABCDEF,3)Right(ABCDEF,3)DEFDEFMid(C,N1,NMid(C,N1,N2)2)StringString从从C C的第的第N1N1开始取开始取N2N2个个字符字符Mid(A

33、BCDEF,2,3)Mid(ABCDEF,2,3)BCDBCDLtrim(C)Ltrim(C)StringString去掉去掉C C左边的空格左边的空格Ltrim( ABCD )Ltrim( ABCD )ABCD ABCD Rtrim(C)Rtrim(C)StringString去掉去掉C C右边的空格右边的空格Rtrim( ABCD )Rtrim( ABCD ) ABCD ABCDTrim(C)Trim(C)StringString去掉去掉C C左、右两边的空左、右两边的空格格Trim( ABCD )Trim( ABCD )ABCDABCDSplit(C,DSplit(C,D,N,M,N,M

34、数组数组将将C C按分隔符分成字符按分隔符分成字符串数组中的各个元素串数组中的各个元素A=Split(123,ab,c)A=Split(123,ab,c)A(0)=123A(0)=123A(1)= abA(1)= abA(2)= cA(2)= c382.4.3 2.4.3 ( (表表2-7)2-7)函数名函数名返回值类型返回值类型功功 能能举举 例例返回值返回值DateDateDate返回系统日期返回系统日期DateDate2007-3-122007-3-12TimeTimeDate返回系统时间返回系统时间TimeTime15:51:5115:51:51NowNowDate返回系统日期和时间返

35、回系统日期和时间NowNow2007-3-12 15:52:43 2007-3-12 15:52:43 Year(D)Year(D)Integer返回返回D D的年份的年份Year(Date)Year(Date)20072007Month(D)Month(D)Integer返回返回D D的月份的月份Month(Date)Month(Date)3 3Day(D)Day(D)Integer返回返回D D的日数的日数Day(Date)Day(Date)1212WeekDay(D)WeekDay(D) Integer返回返回D D是星期几是星期几WeekDay(Date)WeekDay(Date)2(

36、2(即星期一即星期一) )Hour(T)Hour(T)Integer返回返回T T的小时数的小时数Hour(Time)Hour(Time)1515Minute(T)Minute(T)Integer返回返回T T的分钟数的分钟数Minute(Time)Minute(Time)5252Second(T)Second(T)Integer返回返回T T的秒数的秒数Second(Time)Second(Time)434339* *2.4.4 2.4.4 ( (表表2-8)2-8)函数名函数名返回值类型返回值类型功功 能能举举 例例返回值返回值CBool(x)CBool(x)Boolen把把x x转换为逻

37、辑型数据转换为逻辑型数据CBool(31)CBool(31)TrueTrueCByte(x)CByte(x)Byte把把x x转换为字节型数据转换为字节型数据CByte(31.56)CByte(31.56)3232CInt(x)CInt(x)Integer把把x x转换整型数转换整型数, ,小数部分四小数部分四舍五入舍五入CInt(1234.57)CInt(1234.57)1234512345CLng(x)CLng(x)Long把把x x转换长整型数转换长整型数, ,小数部分小数部分四舍五入四舍五入CLng(325.3)CLng(325.3)325325CSng(x)CSng(x)Single

38、把把x x舍入为单精度数舍入为单精度数 CSng(56.5421117)CSng(56.5421117)56.5421156.54211CDbl(x)CDbl(x)Double把把x x转换为双精度数转换为双精度数CDbl(1234.5678)CDbl(1234.5678)1234.56781234.5678CCur(x)CCur(x)Currency把把x x转换为货币型数转换为货币型数, ,最多保最多保留留4 4位小数位小数CCur(876.43216)CCur(876.43216)867.4322867.4322CVar(x)CVar(x)Variant把把x x转换为变体型数转换为变体

39、型数CVar(99 & 00)CVar(99 & 00)99009900CDate(x)CDate(x)Date把把x x转换为日期型数据转换为日期型数据CDate(30.5)CDate(30.5)1900-1-29 12:00:001900-1-29 12:00:00CStr(x)CStr(x)String把把x x转换为字符串型数据转换为字符串型数据CDate(-30.25)CDate(-30.25)1899-11-30 6:00:001899-11-30 6:00:00Hex(x)Hex(x)String把十进制数把十进制数x x转换为十六进转换为十六进制数字串制数字串H

40、ex(31)Hex(31)1F1FOct(x)Oct(x)String把十进制数把十进制数x x转换为八进制转换为八进制数字串数字串Oct(20)Oct(20)242440* * 2.4.5 2.4.5 用格式输出函数用格式输出函数Format()Format()可以使数值、可以使数值、日期或字符型数据按指定的格式输出。日期或字符型数据按指定的格式输出。语法格式：语法格式： FormatFormat（ ， )41符号符号作作 用用数值表达式数值表达式格式化字符串格式化字符串显示结果显示结果0 0实际数字小于格式符实际数字小于格式符号位数时，数字前后号位数时，数字前后加加0 01234.5671

41、234.5671234.5671234.56700000.000000000.0000000.0000.001234.567001234.56701234.61234.6# #实际数字小于格式符实际数字小于格式符号位数时，数字前后号位数时，数字前后不加不加0 01234.5671234.5671234.5671234.567#.#.#.#.#1234.5671234.5671234.61234.6. .加小数点加小数点123451234500000.0000000.0012345.0012345.00, ,千分位千分位1234.5671234.567#,#0.00#,#0.001,234.57

42、1,234.57% %数值乘以数值乘以100,100,加百分加百分号号1234.5671234.567#.#%#.#%123456.7%123456.7%$ $在数字前强加在数字前强加$ $1234.5671234.567$#.#$#.#$1234.57$1234.57+ +在数字前强加在数字前强加+ +-124.567-124.567+#.#+#.#+-124.57+-124.57- -在数字前强加在数字前强加- -1234.5671234.567-#.#-#.#-1234.57-1234.57E+E+用指数表示（强制显用指数表示（强制显示示+ +号）号）1234.5671234.5670.

43、00E+000.00E+001.23E+031.23E+03E-E-用指数表示用指数表示1234.5671234.5670.00E-000.00E-001.23E031.23E03数值格式字符串：数值格式字符串：42符号符号作作 用用符号符号作作 用用d d显示日期显示日期(1(131),31),个位前不加个位前不加0 0yyyy显示两位年份显示两位年份(00(0099)99)dddd显示日期显示日期(01(0131),31),个位前加个位前加0 0yyyyyyyy显示四位年份显示四位年份(0100(01009999)9999)dddddd显示星期缩写显示星期缩写(Sun(SunSat)Sat

44、)q q显示季度数显示季度数(1(14)4)dddddddd显示星期全名显示星期全名(Sunday(SundaySaturday)Saturday)h h显示小时显示小时(0(023),23),个位前不加个位前不加0 0dddddddddd显示完整日期显示完整日期: :日、月、年日、月、年(mm/dd/yy) (mm/dd/yy) hhhh显示小时显示小时(00(0023),23),个位前加个位前加0 0w w星期为数字星期为数字(1(17,17,1是星期日是星期日) )m m在在h h后显示分后显示分(0(059),59),个位前不加个位前不加0 0wwww一年中的星期数一年中的星期数(1(

45、153)53)mmmm在在h h后显示分后显示分(00(0059),59),个位前加个位前加0 0m m显示月份显示月份(1(112),12),个位前不加个位前不加0 0s s显示秒显示秒(0(059),59),个位前不加个位前不加0 0mmmm显示月份显示月份(1(112),12),个位前加个位前加0 0ssss显示秒显示秒(00(0059),59),个位前加个位前加0 0mmmmmm显示月份缩写显示月份缩写(Jan(JanDec)Dec)tttttttttt显示完整的时间显示完整的时间: :时、分、秒时、分、秒(hh:mm:ss)(hh:mm:ss)mmmmmmmm显示月份全名显示月份全名

46、(January(JanuaryDecember)December)AM/PMAM/PM显示显示1212小时时钟小时时钟, ,午前午前AMAM午后午后PMPMy y显示一年中的天数显示一年中的天数(1(1366)366)A/PA/P显示显示1212小时时钟小时时钟, ,午前午前A A午后午后P P日期格式字符串：日期格式字符串：43符符号号作作 用用字符串表达式字符串表达式格式化字符串格式化字符串显示结果显示结果 强迫字母以小写显示强迫字母以小写显示 HelloHello 强迫字母以大写显示强迫字母以大写显示HelloHelloHELLOHELLO 实际字符位数小于符号实际字符位数小于符号位数

47、位数, ,字符前加空格字符前加空格HelloHello Hello Hello& &实际字符位数大于符号实际字符位数大于符号位数位数, ,字符前不加空格字符前不加空格HelloHello&HelloHello! !与与 配合使用配合使用, ,空格加在空格加在字符后字符后HelloHello!Hello Hello 字符格式字符串：字符格式字符串：目录目录442.5 编写规则编写规则v2.5.1 语句及语法v2.5.2 代码书写规则4546数据输入数据输入基本控制语句基本控制语句常用控件常用控件数据输出数据输出程序调试程序调试473.1 数据输出的基本办法数据输出的基本办

48、法483.1.1 Print方法方法 使用使用Print方法可以在方法可以在窗体窗体或或图片框图片框上输上输出文本字符串或表达式的值。出文本字符串或表达式的值。 语法格式语法格式:.Print,|;说明说明:可以是窗体可以是窗体,图片框或打印机图片框或打印机.缺省是窗体缺省是窗体.49是一个或多个表达式是一个或多个表达式,可可以是数值表达式或字符串表达式以是数值表达式或字符串表达式.输出多个表达式时输出多个表达式时,各表达式之间的分隔各表达式之间的分隔符可以用符可以用: 逗号逗号,或分号或分号;.在语句行末尾使用分隔符的情况在语句行末尾使用分隔符的情况: 使用分号则会使用分号则会? 使用逗号则

49、会使用逗号则会?Print具有计算和输出的双重功能具有计算和输出的双重功能.对于对于表达式总是先计算后输出表达式总是先计算后输出. 如如:Print 3+350例例:使用使用Print方法在窗体中直接输出字符方法在窗体中直接输出字符串或数值表达式的值串或数值表达式的值.Private Sub Form_Click() dim a as integer a=123 Print 123 Print a Print Visual Basic Print Print a * 2 Print 123;a , Visual BasicEnd Sub512、与、与PRINT方法有关的函数方法有关的函数（1）

50、Tab（n）函数函数特点：特点：1）当）当TAB（x）与输出项之间以分号分隔时输出）与输出项之间以分号分隔时输出项按项按x指定的位置显示。指定的位置显示。2）TAB（x）与输出项之间是逗号分隔时，）与输出项之间是逗号分隔时，该该TAB（x）无效，仅逗号起作用。）无效，仅逗号起作用。3）当打印的当前位置超过）当打印的当前位置超过x是，输出项在下一行是，输出项在下一行指定的指定的x位置输出。位置输出。4）如果指定位置）如果指定位置x大于行宽，则先进行大于行宽，则先进行x MOD 行宽的计算，再用余数作为指定位置显示。行宽的计算，再用余数作为指定位置显示。 52例例: :Print TAB（6）；）

51、；3 Print TAB（6），），3 Print HELLO，CHINA ；TAB（6）；）；3 Print TAB（86）；）；3（2 2）Spc函数函数 SpcSpc函数输出函数输出n n个空格，其格式为个空格，其格式为: :Spc(n)Spc(n)例：例： PRINT TAB（6）；）；3；Spc（20）；）；453 3 3、使用位置属性、使用位置属性 精确地把文本输出到窗体、图片框或打精确地把文本输出到窗体、图片框或打印页上。印页上。 CurrentX 和和 CurrentY. 例：例：P P4242 3.1 3.154Private Sub Form_Activate()Priva

52、te Sub Form_Activate() Dim a as string, w as integer, h as integerDim a as string, w as integer, h as integer Me.FontSize = 30 Me.FontSize = 30 a = Visual Basic a = Visual Basic w = Me.TextWidth(a) w = Me.TextWidth(a) h = Me.TextHeight(a) h = Me.TextHeight(a) Me.CurrentX = (Me.ScaleWidth - w) / 2 Me

53、.CurrentX = (Me.ScaleWidth - w) / 2 Me.CurrentY = (Me.ScaleHeight - h) / 2 Me.CurrentY = (Me.ScaleHeight - h) / 2 Print a Print aEnd SubEnd Sub553.1.2 3.1.2 信息对话框输出信息信息对话框输出信息 MsgBoxMsgBox函数在对话框中输出信息，等待用户函数在对话框中输出信息，等待用户单击按钮，并返回一个整数以确认用户单击单击按钮，并返回一个整数以确认用户单击了哪个按钮了哪个按钮(P(P4444) )。 格式为：格式为： 变量变量 = Msg

54、Box= MsgBox（ ， ， ） 56说明：说明：P P4343信息内容信息内容指定在对话框中出现的文本指定在对话框中出现的文本对话框类型对话框类型指定对话框中出现的按钮和图标，指定对话框中出现的按钮和图标，一般有一般有3 3个内容。个内容。对话框标题对话框标题指定对话框中出现的标题指定对话框中出现的标题MsgboxMsgbox（）返回的值（）返回的值指明了在对话框中选择了哪指明了在对话框中选择了哪一个按钮。一个按钮。第二个参数的值可以是第二个参数的值可以是数值数值，也可以是，也可以是符号常量符号常量如果省略了某些选项，必须加入相应的逗号分隔符。如果省略了某些选项，必须加入相应的逗号分隔符

55、。若不需要返回值，则可以使用若不需要返回值，则可以使用MsgBoxMsgBox的命令形式的命令形式。57参数类型参数类型参数值参数值符号常量符号常量含义含义显示的按钮显示的按钮0 0vbOKOnlyvbOKOnly显示显示“确定确定”按钮按钮1 1vbOKCancelvbOKCancel显示显示“确定确定”和和“取消取消”按钮按钮2 2vbAbortRetryIgnorevbAbortRetryIgnore显示显示“终止终止”、“重试重试”和和“忽略忽略”按钮按钮3 3vbYesNoCancelvbYesNoCancel显示显示“是是”、“否否”和和“取消取消”按钮按钮4 4vbYesNovb

56、YesNo显示显示“是是”和和“否否”按钮按钮5 5vbRetryCancelvbRetryCancel显示显示“重试重试”和和“取消取消”按钮按钮显示的图标显示的图标1616vbCriticalvbCritical显示停止显示停止(X)(X)图标图标3232vbQuestionvbQuestion显示问号显示问号(?)(?)图标图标4848vbExclamationvbExclamation显示感叹号显示感叹号(!)(!)图标图标6464vbInformationvbInformation显示消息显示消息(I)(I)图标图标默认按钮默认按钮0 0vbDefaultButton1vbDefau

57、ltButton1第一个按钮为默认按钮第一个按钮为默认按钮256256vbDefaultButton2vbDefaultButton2第二个按钮为默认按钮第二个按钮为默认按钮512512vbDefaultButton3vbDefaultButton3第三个按钮为默认按钮第三个按钮为默认按钮第二个参数包含的内容：第二个参数包含的内容：583.2 数据输入的基本方法数据输入的基本方法593.2.1 赋值语句赋值语句LET 赋值语句可以将指定的值赋给某个赋值语句可以将指定的值赋给某个内存变量或对象的某个属性变量。内存变量或对象的某个属性变量。 格式格式: LET = 603.2.2 用用InputB

58、ox函数输入数据函数输入数据InputBox函数显示一个能接受用户输入的对函数显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。话框，并返回用户在对话框中输入的信息。 格式为：格式为： 变量变量= InputBox（， ，,XPOS,YPOS）例：例：h=InputBox(请输入你的姓名请输入你的姓名,输入输入,张三张三） 61说明说明信息内容信息内容指定在对话框中出现的文本指定在对话框中出现的文本对话框标题对话框标题指定对话框中出现的标题指定对话框中出现的标题默认内容默认内容可以指定输入框中显示的默可以指定输入框中显示的默认文本。认文本。XPOSXPOS可以指定输入框与屏幕左边

59、的距离可以指定输入框与屏幕左边的距离YPOSYPOS可以指定输入框与屏幕上边的距离可以指定输入框与屏幕上边的距离用户单击用户单击“确定确定”：返回文本框内容到变量中：返回文本框内容到变量中用户单击用户单击“取消取消”：返回一个零长度的字符串。：返回一个零长度的字符串。 623.3 常用基本语句常用基本语句633.3.1 3.3.1 注释与暂停注释与暂停1 1、注释语句、注释语句 格式：格式： RemRem 或或 643.3.2 3.3.2 加载对象语句加载对象语句LoadLoad 在程序运行的过程中，有时需要添加新的窗在程序运行的过程中，有时需要添加新的窗体或为控件数组增加新的元素，这类操作可

60、以体或为控件数组增加新的元素，这类操作可以通过加载对象语句通过加载对象语句LoadLoad来完成。来完成。 语法格式：语法格式： Load Load 对象名对象名 功能：功能：把对象名代表的对象，如窗体、控件把对象名代表的对象，如窗体、控件数组元素等加载到内存中，以供程序使用。数组元素等加载到内存中，以供程序使用。 说明：说明：使用使用LoadLoad语句可以加载窗体，但不显语句可以加载窗体，但不显示窗体。当示窗体。当VBVB加载窗体对象时，先把窗体属性加载窗体对象时，先把窗体属性设置为初始值，再执行设置为初始值，再执行LoadLoad事件过程。事件过程。 例如：例如：Load Form2Form2.Visible = True653.3.3 3.3.3 卸载对象卸载对象 UnloadUnload语句语句当要结束应