VB的基本数据类型：
创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都做网站、网站建设、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的浙江网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
VB 6．O提供的基本数据类型主要有：字符型数据、数值型数据、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型等。
1、字符型数据
字符型数据(String)用以定义一个字符序列。在内存中一个字符用一个字节来存放。用字母C表示。它包括中文字符、英文字符、数字字符和其他ASCⅡ字符，其长度（即字符个数）范围是0-254个字符。
2、数值型数据
数值型数据包括：整型、长整型、浮点型(单精度和双精度)4种。其结果表现为具体的数值。现实中所处理的大多数都是数值型数据。数值型数据由数字、小数点、正负号和表示乘幂的字母E组成，数值精度达16位。
3、货币类型
货币类型(Currency)是为计算货币而设置的定点数据类型，它的精度要求高，规定精确到小数点后4位。在内存中占8个字节(64位)。取值范围在-922 337 203 685 477．5805到922 337 203 685 477．5807之间。
4、无符号类型
无符号整型和有符号整型的区别就是无符号类型可以存放的正数范围比有符号整型中的范围大一倍，因为有符号类型将最高位储存符号，而无符号类型全都储存数字。
5、字节类型
一个英文字母(不分大小写)占一个字节的空间，一个中文汉字占两个字节的空间。一个二进制数字序列，在计算机中作为一个数字单元，一般为8位二进制数，换算为十进制。最小值-128，最大值127。如一个ASCII码就是一个字节。
扩展资料：
实数型（浮点数或实型数）的取值范围：
1、单精度数(Single，类型符！)
在内存中占4个字节（32位）,有效数字：7位十进制数
取值范围：负数 -3.402823E+38 ~ -1.401298E-45
正数 1.401298E-45 ~ 3.402823E+38
2、双精度数（Double，类型符＃）
Double类型数据在内存中占用8个字节（64位）
Double型可以精确到15或16位十进制数，即15或16位有效数字。
取值范围：负数： –1.797693134862316D+308 ~ -4.94065D-324
正数： 4.94065D-324 ~ 1.797693134862316D+308
整型的取值范围：
1、有符号基本整形 int 能表示的范围是-32768～32767(-2^15～-2^15-1)
2、无符号基本整形 unsigned int 能表示的范围是0～655350～-2^16-1)
3、有符号短整形 short int 能表示的范围是-32768~32767(-2^15～-2^15-1)
4、无符号短整形 short unsigned int 能表示的范围是0～65535(0～-2^16-1) (-2^15～-2^15-1)
参考资料来源:百度百科-数据类型
第一，VB什么时候都不是世界上使用人数最多的语言。其次，我真的不知道VB这东西有什么好的，如果说VB给当初困扰中的windows程序员们提供了一个所见即所得的UI开发环境，那么其实他们真的应该多关注Delphi、C++
Builder。第三，.NET跟微软的web
service也没有一毛钱的关系，微软第一个web
service的标准是SOAP，2000年左右出的。VB.NET与其说是VB，不如说是微软为了挽留VB程序员做的努力。拿VB去比C++更是令人发指。第四，.NET并非一个编程语言，C#、VB.NET、托管VC、Delphi
.NET都是.NET家族的。
直接将ACCESS里字段的数据格式设置为货币。
读出时使用format(表达式,"￥0,000.00")格式化
Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr = Text2.Text
myint = InStr(mystr, ".")
If myint = 0 Then
mystr = Text2.Text
Else
mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)
If mystr3 "" Then '转换小数位
mystr4 = Left(mystr3, 1)
mystr3 = Right(mystr3, Len(mystr3) - 1)
If mystr4 "0" Then
mystr2 = mystr2 + setdata(Val(mystr4)) + "角"
End If
If mystr3 "" Then
mystr4 = Left(mystr3, 1)
mystr2 = mystr2 + setdata(Val(mystr4)) + "分"
End If
End If
mystr = Left(Text2.Text, myint - 1)
End If
j = Len(mystr)
For i = 1 To Len(mystr) '转换整数位
money2 = Left(mystr, i)
money1 = Right(money2, 1)
If money1 = 0 Then
If j = 5 Then
If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"
Else
If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"
End If
Else
mystr1 = mystr1 setdata(money1) + chang(j)
End If
j = j - 1
Next i
Text1.Text = mystr1 "元" mystr2 '显示大写
End Sub