Question

vba中,变量类型有哪些,类型符是什么

vba中,变量类型有哪些,类型符是什么

Answer 1

VBA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。 数据类型 类型标识符 字 节 字符串型 String $ 字符长度(0-65400) 字节型 Byte 1 布尔型 Boolean 无 2 整数型 Integer % 2 长整数型 Long & 4 单精度型 Single ! 4 双精度型 Double # 8 日期型 Date 无 8 公元100/1/1-9999/12/31 货币型 Currency @ 8 小数点型 Decimal 无 14 变体型 Variant 无 以上任意类型， 可变对象型 Object 无 4 1）VBA允许使用未定义的变量，默认是变体变量。 2）在模块通用说明部份，加入 Option Explicit 语句可以强迫用户进行变量定义。 3）变量定义语句及变量作用域 Dim 变量as 类型 '定义为局部变量，如 Dim xyz as integer Private 变量as 类型 '定义为私有变量，如 Private xyz as byte Public 变量as 类型 '定义为公有变量，如 Public xyz as single Global 变量as 类型 '定义为全局变量，如 Globlal xyz as date Static 变量as 类型 '定义为静态变量，如 Static xyz as double 一般变量作用域的原则是，那部份定义就在那部份起作用，模块中定义则在该模块那作用。

Answer 2

数据类型的转换

1. 各种进制转换函数
VB中涉及到的数据进制之间的转换函数主要有如下几个:
Hex 函数: 返回代表十六进制数值的 String;
Oct 函数: 返回代表一数值的八进制值的Variant (String);
Cint函数: 强制将一个表达式转换成-32,768 至 32,767的整型;
CLng函数: 强制将一个表达式转换成-2,147,483,648 至 2,147,483,647的长整型;
Cdec函数: 强制将一个表达式转换成Decimal 数据类型;
CDbl函数: 强制将一个表达式转换成Double 数据类型;

例子:
(1) A=hex(5) 返回5;
(2) B=hex(10) 返回A
(3) C=hex(23) 返回17
(4) D=oct(5) 返回5
(5) E=oct(10) 返回12
(6) F=oct(23) 返回27
(7) G=Cint(&H17) 返回23
(8) H=Cint(&O12) 返回10
值得一提的是Hex函数和Oct函数返回的都是字符串,如果是想将十六进制或是八进制的字符串变量转换成十进制,可以按如下方法进行:
C=”17” 17为十六进制数值的String
C=”&H” & C
Ic=Cint(C) 返回23

2. 字符串和数字转换函数
Str()和Val()用于字符串和数字的相互转换;
Chr()和Asc()用于字符串和AscII码的相互转换;
Chrw()和Ascw()用于Unicode码和中文的相互转换;
Format()函数用途十分广泛的一个函数,功能十分强大.

例子:
(1) MyString = Str(-459.65) ' 返回 "-459.65"。
MyString = Str(459.001) ' 返回 " 459.001"。
(2) MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
(3) MyChar = Chr(97) ' 返回 a。
MyChar = Chr(37) ' 返回 %。
(4) MyNumber = Asc("Apple") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。