VB定义的常用的基本数据类型有哪些？

VB 提供了许多基本数据类型，如： Integer ， String ， Boolean ， Currency 等，每种数据类型占用一定的内存，允许存储一定范围的值。所有数据应具备一定的数据类型，以便 VB 能够正确地使用它们。基本数据类型见表 。 数据类型类型标识占用字节表示范围布尔型(Boolean)无2字节True或False字节型(Byte)无1字节0~255数

值

类

型整型（Integer）%2字节-32 768~32 767长整型（Long）&4字节-2 147 483 648~+2 147 483 647单精度型（Single）!4字节-3402 823E+38~-1401 298E+45和

+1401 298E-45~+3402 823E+38 双精度型（Double）#8字节-1797 693 1E+308~-4940 656 4E-324和

+4940 656 4E-324~+1797 693 1E+308货币型（Currency）@8字节-922 337 203 685 477580 8~+922 337 203 685 477580 7 日期型（Date）无8字节100年1月1日-1999年12月31日字符串型（String）$串长0~2GB对象型（Object）无4字节任何对象引用 变体数值型（Variant）无16字节Double范围内的任何值自定义型（User-defined）无元素申请的长度每个元素的范围同它的数据类型的范围

vb

为我们提供了较为丰富的数据类型，主要的列表如下：

dim

a

as

boolean

'逻辑型

dim

b

as

byte

'字节型

dim

c

as

integer

'整数型

dim

d

as

long

'长整型

dim

f

as

single

'单精度型（实数）

dim

g

as

double

'双精度型（实数）

dim

h

as

object

'对象型

dim

i

as

currency

'货币型

dim

k

as

string

'字符（串）型

以及自定义类型

当然，除此之外，我们还可以将一个变量定义为某一种对象（控件）类型，比如：

dim

l

as

label

'将变量l定义为标签对象类型

dim

m

as

commandbutton

'将m定义为按钮对象类型

如此等等，应该说，任何一种控件，都可以算是一个数据类型。这些都是我个人的理解，希望能对你有所帮助。

根据课本定义

数据类型：

整型数

integer

长整型数

long

单精度型数

single

双精度型数

double

字节型数

byte

逻辑型数

boolean

字符串型数（变长）

string

字符串型数（定长）

string

日期型数

date

货币型数

currency

对象型数

object

变体型数

varient

常量数据类型：

数值常量

字符常量

逻辑型常量

日期型常量

符号常量

变量数据类型：

整型

int

长整型

lng

单精度型

sng

双精度型

dbl

逻辑型

bln

字符串型数

str

日期型

dt

货币型

cur

变体型

vnt

字节型

byt

下面是VB6的：

Byte（字节型）

Boolean（布尔型或者叫逻辑型）

Integer（整型）

Long（长整型）

Single（单精度浮点型）

Double（双精度浮点型）

Currency（货币型或者叫变比整型）

Date（日期型）

Object（对象）

String（字符串型，分变长字符串和定长字符串）

Variant（变体型，分数字变体型和字符变体型）

自定义类型（利用Type）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case VarType(TargetValue) '返回字符串的类型

Case 8 '字符串的时候

For i = 1 To Len(TargetValue)

s = Mid(TargetValue, i, 1)

If AscW(s) > 255 Then '汉字的ASCW>255

MsgBox "汉字"

Exit For

ElseIf s < "a" Or s > "z" Then '当不是英文的时候

MsgBox "有符号的字符串"

Exit For

Else '余下的全是英文了

If i = Len(TargetValue) Then MsgBox "英文串"

End If

Next

Case 2, 3, 4, 5 '整形长整形,单双精度的

MsgBox "数值"

Case Else

MsgBox "Empty"

End Select

End Sub