概要

学习一种新语言, 数据类型和关键字是第一步.

数据类型

常用的数据类型如下:

类型	存储空间	范围
Boolean	2 bytes	True 或者 False
Byte	1 byte	0 ~ 255
Integer	2 bytes	-32768 ~ 32768
Long	4 bytes	-2147483648 ~ 2147483647
LongLong	8 bytes	-2147483648 ~ 2147483647
String	10 bytes + string length	0 ~ 20 亿个字符
Object	4 bytes	可以赋值给任何对象引用
Single	4 bytes	-3.402823E38 ~ -1.401298E-45 (对负值)
		1.401298E-45 ~ 3.402823E38 (对正值)
Double	8 bytes	-1.79769313486231E308 ~ -4.94065645841247E-324 (对负值)
		4.94065645841247E-324 ~ 1.79769313486231E308 (对负值)
Date	8 bytes	100 年 1 月 1 日 ~ 9999 年 12 月 31 日 0:00:00 ~ 23:59:59
Variant	16 bytes	任意值, 性能较低

VBA 中提供了一系列函数用于类型之间的转换

运算符

运算符是和数据类型同样, 是使用最多的部分.

类型	运算符	说明	示例
算术运算符	*	乘法	MyValue = 2 * 2 ' Returns 4.
	^	乘方	MyValue = 2 ^ 2 ' Returns 4.
	/	除法运算, 返回浮点型结果	MyValue = 10 / 4 ' Returns 2.5.
	\	除法运算, 返回整数结果	MyValue = 100 \ 3 ' Returns 33.
	Mod	求余数	MyResult = 10 Mod 3 ' Returns 1.
	+	加法	MyNumber = 2 + 2 ' Returns 4.
	-	减法	MyResult = 4 - 2 ' Returns 2.
比较运算符	=	判断是否相等	Check = (4 = 4) ' Returns True
	Is	判断 2 个对象的引用是否相同	Set ThisObject = MyObject
			MyCheck = ThisObject Is ThisObject ' Returns True.
	Like	比较字符串时, 可以使用通配符, 简化版的正则	MyCheck = "aBBBa" Like "a*a" ' Returns True.
连接运算符	&	连接字符串	MyStr = "Hello" & " World" ' Returns "Hello World".
	+	除了作为加法, 还可以用在字符串上	Var1 = "34": Var2 = 6; MyNumber = Var1 + Var2 ' Returns 40.
			Var1 = "34": Var2 = "6"; MyNumber = Var1 + Var2 ' Returns "346".
逻辑运算符	And	逻辑与
	Eqv	逻辑等于
	Imp	不太常用	imp-operator
	Not	逻辑非
	Or	逻辑或
	Xor	逻辑异或

变量

有了数据类型, 就可以定义各种变量, 完成相应的计算. 变量的定义和计算, 和其他编程语言也没有什么区别, 这里主要提下变量的生命周期.

全局变量和局部变量

 1  Dim globalX As Integer

 2

 3  Sub Test()

 4      f1

 5      globalX = globalX + 1

 6      localX = localX + 1

 7      f1

 8  End Sub

 9

10  Function f1()

11      Dim localX As Integer

12

13      Debug.Print "全局变量  " & globalX

14      Debug.Print "局部变量  " & localX

15  End Function

运行 Test, 输出:

   全局变量  0

   局部变量  0

   全局变量  1

   局部变量  0

静态变量和动态变量

 1  Sub Test()

 2      f1

 3      f1

 4      f1

 5  End Sub

 6

 7  Function f1()

 8      Dim dX As Integer

 9      Static sX As Integer

10

11      sX = sX + 1

12      dX = dX + 1

13      Debug.Print "静态变量  " & sX

14      Debug.Print "动态变量  " & dX

15  End Function

运行 Test, 输出:

   静态变量  1

   动态变量  1

   静态变量  2

   动态变量  1

   静态变量  3

   动态变量  1

巴特西

VBA基础 - 数据类型

概要

数据类型

运算符

变量

全局变量和局部变量

静态变量和动态变量

最新文章

热门文章