900字范文 > vba数据类型运算符内置函数循环判断语句窗体控件

vba数据类型运算符内置函数循环判断语句窗体控件

时间：2023-06-07 07:33:12

文章目录

VBA基本数据类型示例代码声明常量，运算符和表达式内置函数代码可视化编程判断语句循环语句窗体控件，窗体的加载卸载listbox,checkbox，combobox

VBA基本数据类型

VB的数据类型比较丰富，可以分为两大类：基本数据类型和用户自定义类型。

一、基本数据类型

表3-1列出了VB使用的基本数据类型。

表3-1VB 基本数据类型

基本数据类型是系统定义的标准数据类型，可以直接使用。分为6类：数值型，日期型，逻辑型，字符型和变体型。

(一)数值型数据

数值型数据分为整型和实型两类。整型数据分为整数和长整数，实型数据分为单精度和双精度数据。有时把货币型和字节型数据也归为数值型数据。

1.整数（Interger）。整数是不带小数点，范围在-32768~32767之间，在机器内使用2个字节存储的整数。在VB中数尾常加“%”表示整型数据，也可省略。如-34，78%。

2.长整数（Long）。长整数可以超过整数-32768~32767范围，可以是-2147483648~2147483647之间的不带小数点的整数，在机器内用4个字节存储。在VB中数尾常加：“&”表示长整型数据。如-334&，67785649&。整数（Interger）和长整数（Long）均用于保存整数，其可以是正整数、负整数或者0。例如：369、-369、+369均表示整数，而369.0就不是整数；-9993977、12345678均表示长整数，而123,456则是非法数。整型数的运算速度快、精确，且占用存储空间较小，但表示数的范围也较小。

3.单精度数（Single）。单精度数是带小数点的实数，有效数字为7位，在机器内用4个字节存储。通常以指数形式表示，指数部分用“E”或“e”表示。在VB中数尾常加“！”表示单精度数据，也可省略。如-234.78,45.56！，2.67e+3，-2.89E-2。单精度数有多种表示形式：±n.n(小数形式)、±n E ±m(指数形式)、 ±n.n E ±m (指数形式)。例如：123.45、0.12345E+3、123.45！都是同值的单精度数。如果某个数的有效数字位数超过7位，当把它定义为单精度变量时，超出的部分会自动四舍五入。

4.双精度数（Double）。双精度数也是带小数点的实数，有效数字为15或16位，在机器内用8个字节存储。通常以指数形式表示，指数部分用“D”或“d”表示。在VB中数尾常加“#”表示双精度数据，也可省略。如-374.778#，5.678D+2，-2.67e+3#。

5.货币型数据（Currency）。货币型数据是为是一种专门为处理货币而设计的数据类型，是一种特殊的小数。，它的精度要求较高，用8个字节存储，保留小数点右边4位和小数点左边15位，如果数据定义为货币型，且其小数点后超过4位，那么超过的部分自动四舍五入。在VB中数尾常加“@”表示货币型数据。如3.4@，565@。

6.字节型数据（Byte）。字节型数据用来存储二进制数,是范围在0~255之间的无符号整数，不能表示负数，在机器内用一个字节存储。Byte是从0-255的无符号类型，

在VB中，声明和使用数值型数据时，应注意以下几点：

(1)如果数据中包含小数，则应使用single、double或currency型。

(2)如果数据为二进制数，则使用byte数据类型。

(3)数值型数据都有一个有效范围值，程序中的数如果超出规定的范围，将会出现“溢出”信息。如小于范围的下限值，系统将按“0”处理，如大于上限值，则系统按上限值处理，并显示出错信息。

(4)所有数值变量可互相赋值。

(二)日期型数据（Date）

日期型数据是为表示日期设置的，在机器内用8个字节存储，表示从公元100年1月1日到公元9999年12月31日的日期，时间范围则从0点0分0秒到23点59分59秒即0：00：00～23：59：59。表示方法是以“#”括起来的字面上被认为是日期和时间的字符，例如：#04/10/#、#-08-10#、#September 1，#、#-9-10 13：30：15#。

(三)逻辑型数据（Boolean）

逻辑型数据是用来表示逻辑判断结果的，只有真(True)和假(False)两个值，在机器内用2个字节存储。若数据信息是“true/false”、“yes/no”、“on/off”信息，则可将它定义为Boolean 类型。逻辑数据转换成整型数据时，真转换为-1，假转换为0；其他类型数据转换为逻辑数据时，非0数转换为真，0转换为假。

(四)字符型数据

字符型数据是用双引号括起来的一串字符，用来定义一个计算机字符组成的序列。在机器中一个字符用1个字节存储。每个字符都以ASCII编码表示，因此在字符串中字母的大小写是有区别的。在默认字符状态下，它是变长字符串，也可以声明为定长字符串，变长字符串的最大长度为231-1个字符；定长字符串的最大长度为65535个字符。如果字符个数少于固定长度，自动用空格将不足部分补齐，否则会自动截去多余部分的字符。例如：“Visual Basic”、“赣南师院”、“123.456”、“everyone”、“”（空字符串）。

注意：

(1)“”表示空字符串，而“”表示的是有一个空格的字符串；

(2)如字符串中本身含有双引号，则用两个连续的双引号表示。例：表示字符串计算机”ABC，正确的表示形式为：“计算机””ABC”

(五)对象型数据(Object)

对象型数据主要以变量形式存在，可以引用应用程序中或某些其他应用程序中的对象。在机器内用4个字节存储。使用Set语句指定一个被声明为Object的变量去引用应用程序所识别的任何实际对象。例如：

Dim objDb As Object

Set objDb=OpenDatabase("c:\Vb6\student.mdb")

(六)变体型数据（Variant）

变体型是一种通用的，可变的数据类型，它可以表示以上任何一种数据类型。它是声明变量时的默认类型。Variant数据类型能够存储所有系统定义类型的数据。如果把它们赋予Variant变量，则不必在这些数据的类型间进行转换，VB会自动完成任何必要的转换。假设定义a为变体型变量，在变量a中可以存放任何类型的数据，例如：

a=“-BASIC”--‘存放一个字符串

a=10-‘存放一个整数

a=20．5-‘存放一个实数

a=#08／15／#‘存放一个日期型数据

根据赋给a的值的类型不同，变量a的类型不断变化，这就是称之为变体类型的由来。当一个变量未定义类型时，VB自动将变量定义为Variant类型。

不同类型的数据在Variant变量中是按其实际类型存放的(例如将一个整数赋给a，在内存区中按整型数方式存放)，用户不必作任何转换的工作，VB自动完成。可以通过VarType函数来检测变体型变量的实际数据类型，如表3-2所示。

表3-2 Variant变量的内部表示

二、自定义数据类型

VB不仅提供了系统定义的以上基本数据类型，也允许用户自己定义数据类型，它由若干个基本数据类型组成。自定义类型必须通过Type语句来声明。

格式：

Type数据类型名

元素名 As 类型名

…

End Type

其中，数据类型名为自定义数据类型名，元素名为自定义数据类型中的一个成员，类型名为上述基本类型名或自定义数据类型名。

例如:对于一个学生的“学号”、“姓名”、“性别”、“年龄”、“入学成绩”等数据，为了处理数据的方便，常常需要把这些数据定义成一个新的数据类型（如Student类型）。

Type Student

Xh As Sting

Xm As String*10‘长度为10

Xb As String

Nl As Integer

Score As Single

End Type

注意：自定义类型中的元素为字符型时，必须为定长字符串。

可以看出，自定义数据类型类似于C语言中的结构体形，因此通常把这种类型又称为记录型。

这样，就可以定义一个student类型的变量了。

Dim Estu As student‘用变量，元素的形式引用各成员

示例代码

Sub jk()Dim a% ' As IntegerDim b As Longa = 4b = 56C = a + b '整型加长整型结果是长整型'MsgBox CDim x As Booleanx = FalseDim d As Stringd = "ddd"'MsgBox dDim opartdoc As PartDocumentSet opartdoc = CATIA.ActiveDocument '给对象类型的变量赋值时，一定要加个seEnd Sub

声明常量，运算符和表达式

不完整，其他待补充

Sub jk()'Dim a As Integer'a = 2'Const PI = 3.1415926'常量const'S = PI * a * a'MsgBox Sm = MsgBox("hello", vbCritical, "欢迎") '注意前面加个m=,系统带的常量vbCriticalEnd Sub

mod运算是取模，也就是取余数。

逻辑运算符：

内置函数

Function jkj()m = Sin(0)m = Sin(3.1415926 / 2) 'sinn = Abs(-19) '取整数j = Sqr(16) '开根号End Function

插入一个frame，在userforme的Initialize函数中，对frame的caption属性进行修改，使其显示当前时间。注意不是动态的，只是启动时的时间

代码

Sub jk()'Dim a As Integer'a = 5'Const PI = 3.1415926'常量const'S = PI * a * a'MsgBox S'm = MsgBox("hello", vbCritical, "欢迎") '注意前面加个m=,系统带的常量vbCritical'Dim n As Integer'n = a ^ 3'n = 8 Mod a '取余数'MsgBox n'Dim a As String'Dim b As String'Dim c As String'a = "hello"'b = "catia"'c = a & b & "love" '拼接字符串注意&前后有个空格'Dim a As Integer'Dim b As Integer'a = 4'b = 12'If (a <> 5) And (b > 8) Then '也可以加括号(a<b)或(3<10)''注意逻辑判断不是a==4，而是a=4''不等于用<>表示If a<> 4 Then''逻辑与and'MsgBox "nihao"'End IfEnd SubFunction jkj()'m = Sin(0)'m = Sin(3.1415926 / 2) 'sin'n = Abs(-19) '取整数'j = Sqr(16) '开根号'Dim a As String'a = " jklgsf "'M = Left(a, 3) '取a的左侧的三个字符，同理Right(a,3)是取a的右侧的三个字符'N = Len(a) '字符串的长度，包含空格'N = LTrim(a) '字对字符串进行精简，删除左边的空格'N = RTrim(a) '字对字符串进行精简，删除右边的空格''MsgBox Now '当前时间,格式/4/26 7:22:35'M = Date '格式#/5/27#''Randomize '产生随机数的种子，如果不执行这个，则每次Rnd会产生同样的随机数'M = Rnd '产生大于等于0，小于等于1的数'N = Rnd * 10 '对Rnd进行加减乘除，产生其他范围的数，比如这个是0到10之间的数'dos系统，windows系统可以执行的程序，都可以用shell函数来调用ReturnValue = Shell("CALC.EXE", 1) '打开系统自带的计算器End Function

可视化编程

caption属性，控件显示的名称标题

方法一：

方法二：

复制相同的控件，按住control向右拖。

加法器：

判断语句

Sub jk()a = 8If a > 90 ThenMsgBox "优秀"ElseIf a <= 90 And a > 80 ThenMsgBox "良好"ElseMsgBox "差"End IfEnd Sub

循环语句

's = 0'For i = 1 To 100 Step 2 '每隔2个执行一次's = s + i'Next'MsgBox ss = 0n = 1'Do While n <= 100 '当n<=100时执行Do Until n > 100 '执行，直到n>100则停止s = s + nn = n + 1LoopMsgBox s