AllinToyou

这个屌丝很懒，什么也没留下！

热门标签

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

作者：AllinToyou | 2024-06-03 21:27:38

踩

vba 数据类型

文章目录

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

VBA基本数据类型

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

一、基本数据类型

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

表3-1 VB 基本数据类型

数据类型		关键字	类型符	前缀	字节	范围
数值型	整型	Integer	%	int	2	-32768~32767
	长整型	Long	&	lng	4	-2147483648~2147483647
	单精度型	Single	!	sng	4	负数：-3.402823E38~1.401298E-45 正数：1.401298E-45~3.402823E38
	双精度型	Double	#	dbl	8	负数：-1.79769313486232D308~ -4.94065645841247D-324 正数：4.94065645841247D-324~ 1.79769313486232D308
	货币型	Currency	@	cur	8	-922337203685477.5808~ 922337203685477.5807
	字节型	Byte	无	byt	1	0~255
日期型		Date(time)	无	dtm	8	01,01,100~12,31,9999 (00:00:00~23:59:59)
逻辑型		Boolean	无	bln	2	True与False
字符型		String	$	str		0~65535个字符
对象型		Object	无	obj	4	任何对象引用
变体型		Variant	无	vnt		上述有效范围之一

基本数据类型是系统定义的标准数据类型，可以直接使用。分为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/2008#、#2004-08-10#、#September 1，2004#、#2004-9-10 13：30：15#。

(三)逻辑型数据（Boolean）

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

(四)字符型数据

字符型数据是用双引号括起来的一串字符，用来定义一个计算机字符组成的序列。在机器中一个字符用1个字节存储。每个字符都以ASCII编码表示，因此在字符串中字母的大小写是有区别的。在默认字符状态下，它是变长字符串，也可以声明为定长字符串，变长字符串的最大长度为2³¹-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／2003# ‘存放一个日期型数据

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

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

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

符号常量	函数值	数值类型
V_Empty	0	Empty(未初始化)
V_Null	1	Null(无有效数据)
V_Integer	2	整数
V_Long	3	长整数
V_Single	4	单精度浮点数
V_Double	5	双精度浮点数
V_Currency	6	货币值
V_Date	7	日期
V_String	8	字符串
V_Object	9	对象
V_Error	10	错误值
V_Boolean	11	布尔值
V_Variant	12	Variant(只与变体中的数组一起使用)
V_Object	13	数据访问对象
V_Byte	17	位值
V_Array	8192	数组

二、自定义数据类型

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 Integer
Dim b As Long
a = 4
b = 56
C = a + b '整型加长整型结果是长整型
'MsgBox C

Dim x As Boolean
x = False

Dim d As String
d = "ddd"
'MsgBox d

Dim opartdoc As PartDocument
Set opartdoc = CATIA.ActiveDocument '给对象类型的变量赋值时，一定要加个se

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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

在这里插入图片描述

不完整，其他待补充

Sub jk()
'Dim a As Integer
'a = 2
'Const PI = 3.1415926'常量const
'S = PI * a * a
'MsgBox S
m = MsgBox("hello", vbCritical, "欢迎") '注意前面加个m=,系统带的常量vbCritical
End Sub
1
2
3
4
5
6
7
8

mod运算是取模，也就是取余数。
逻辑运算符：

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 If

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

内置函数

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

1
2
3
4
5
6
7

插入一个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 If

End Sub

Function 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 '当前时间,格式2021/4/26 7:22:35
'M = Date '格式#2022/5/27#
'
'Randomize '产生随机数的种子，如果不执行这个，则每次Rnd会产生同样的随机数
'M = Rnd '产生大于等于0，小于等于1的数
'N = Rnd * 10 '对Rnd进行加减乘除，产生其他范围的数，比如这个是0到10之间的数

'dos系统，windows系统可以执行的程序，都可以用shell函数来调用
ReturnValue = Shell("CALC.EXE", 1) '打开系统自带的计算器
End Function
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

可视化编程

caption属性，控件显示的名称标题
方法一：
在这里插入图片描述
方法二：

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

加法器：
在这里插入图片描述

判断语句

Sub jk()

a = 8
If a > 90 Then
MsgBox "优秀"
ElseIf a <= 90 And a > 80 Then
MsgBox "良好"
Else
MsgBox "差"
End If

End Sub
1
2
3
4
5
6
7
8
9
10
11
12

循环语句


's = 0
'For i = 1 To 100 Step 2 '每隔2个执行一次
's = s + i
'Next
'MsgBox s

s = 0
n = 1
'Do While n <= 100 '当n<=100时执行
Do Until n > 100 '执行，直到n>100则停止
s = s + n
n = n + 1
Loop
MsgBox s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

窗体控件，窗体的加载卸载

卸载
在这里插入图片描述
另外一种注释的方式

':Rem是一种注释的方式
Unload Me: Rem 卸载窗体
1
2

方便管理，可以将一些控件放在一个frame里
在这里插入图片描述

a = InputBox("请您输入一个数值") '人机交互输入,a等于输入的值，为string类型
1

单选控件：optionButton
所有的optionButton我们只能激活一个
在这里插入图片描述
编程的代码用的是name属性，而caption仅仅是控件显示的文字
防止搞混，最好设置成一样

listbox,checkbox，combobox

checkbox可以同时选择多个，可以和逻辑与搭配，不同选则组合产生不同效果
listbox
在这里插入图片描述
combobox直接鼠标点击编辑。添加默认的显示

添加其他控件，Toolbox的空白处右键

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/AllinToyou/article/detail/669003