VB数据类型——基本数据类型
 
字符串
数值型
布尔型
日期型
对象型
变体型

 
VB作为计算机高级语言之一，其基本数据类型主要包括如下：
 
 
VB中基本类型有字符型、数值型、布尔型和日期型，对于数值型，根据运算效率、所占内存空间以及精度要求，又划分为整数型、单精度型、双精度型、货币型和字节型。
 
 
字符串
 
定义：使用双引号括起来的若干个字符
 
'以下全部为字符串
"AAAA"
"Hello world"
"你好"
"1111"
""
 
声明：
 
Private A As string   '定义A为字符串数据类型
 
说明：
 String变量或参数是一个可变长度的字符串，可以自定义声明的字符串长度,格式如下：
 
String  *size
'例子
Private A As string*4  '声明一个固定长度为4的字符型变量
 
代码案例：
 对于已定义长度的字符串变量，当赋值数据长度大于定义长度时，只保存其定义长度的数据，比如运行下面的程序时，只会显示hell。
 
Private Sub From_Load()
	Private A as string*4
	A = "hello"
	Msgbox A      
 
数值型
 
数值型分为整型、长整型、单精度浮点数、双精度浮点数、货币型和字节型。
 
1111
1.222222
-4
-4.6666666
 
声明：
 
Private A As Integer   '定义A为整型
Private B Ad Lng   
 
说明：
 
所有数值型变量可以相互赋值转换，但在将浮点型或货币型数值赋予整型变量时，VB会自动将该数值的小数部分四舍五入之后去除，而不是直接去除
 
Dim i As Integer
i = 4.5848666666
Msgbox i

'输出结果为5'
 
布尔型
 
布尔型为逻辑类型，其变量值只有True和False，Yes/No等，对于声明为布尔类型的变量，其默认值为False
 
Dim Condition as Boolean
Msgbox Condition 
'输出结果为False
 
日期型
 
存储日期或时间，可以表示的范围为100年1月1日到9999年12月31日，时间为00:00:00 -23:59:59
 
当标识日期常数时，使用#括起来
 
mydate = #5/14/1555#
mydate = #1997-02-05#
mydate = #65,5,29#
 
对象型
 
存储程序中的对象使用4字节保存对象相关的数据信息
 
Dim a As Obj  '声明a作为一个对象'
a = motor  '将Motor对象赋值给a，a可以对用motor的属性方法。Motor只是作为代码参考，不具有实际意义'

 
变体型
 
存储所有系统定义的数据类型，除了其他数据类型的特性外，还具有Empty、Null、Error特性
 
Empty：区别于0、零长度字符串或者Null，变体类型的数据在没有赋值前默认值为Empty，在使用时，可以使用IsEmpty函数来测试变量的值
 
Null：表示未知或丢失的数据。只能赋值给变体数据，如果将其赋给非变体数据的变量，将产生错误。如果表达式中含有Null，则整个表达式的计算结果为Null
 
Error：标识已经发生过的过程中的错误状态

 
vb中基本数据类型有9种，分别为：字符型数据类型、数值型数据类型(整型、长整型、单精度浮点型、双精度浮点型)、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型。
 

 
VB 6.0提供的基本数据类型主要有：字符型数据、数值型数据、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型等9种数据类型。
 
1．字符型数据
 
字符型数据(String)用以定义一个字符序列。在内存中一个字符用一个字节来存放。
 
2．数值型数据
 
数值型数据包括：整型、长整型、浮点型(单精度和双精度)4种。
 
(1)整型数
 
整数(Integer)：是不带小数点、范围-32 768到3 2 767之间数，在内存中用2个字节(1 6位)来存储一个整数。在-32 678～32 767之间的一个数字在尾部加一个“％”符号也表示一种整型数据，如1 345％，-67％。 ’
 
(2)长整型数
 
长整型数(Long)：是超过一32 768~32 767范围，而在-2 147 483 648~2 1 47 483 647之间的不带小数点的数，一个长整数在内存中占4个字节(32位)。在-2 1 47 483 648～2 1 47 483 647之间的数字在尾部带一个“&"符号，也表示为一个长整数。
 
(3)浮点数
 
单精度数(Single)：是带小数点的实数，有效值为7位。在内存中用4个字节(32位)存放一个单精度数。通常以指数形式(科学记数法)来表示，以“E"或“e”表示指数部分。
 
双精度数据(Double)：也是带小数点的实数，有效值为1 5位。在内存中用8个字节(64位)存放一个双精度数。双精度数通常以指数形式(科学记数法)来表示，以“D"或“d”表示指数部分。
 
3．货币类型
 
货币类型(Currency)：是为计算货币而设置的定点数据类型，它的精度要求高，规定精确到小数点后4位。在内存中占8个字节(64位)。取值范围在-922 337 203 685 477．5805到922 337 203 685 477．5807之间。
 
4．字节(Byte)类型
 
字节(Byte)类型：是一种数值类型，以1个字节的无符号二进制数存储，取值范围为0~255。
 
5．布尔类型
 
布尔类型(Boolean)：布尔型数据是一个逻辑值，也称逻辑类型，用两个字节存储，它只取两种值，即’Frue(真)或False(假)。
 
6．日期类型
 
日期类型(Date)：用以表示日期，在内存中一个日期型数据用8个字节来存放。
 
7．通用类型
 
通用类型(’Variant)，也称变体类型，是一种通用的、可变的数据类型，它可以表示上述任何一种数据类型。假设定义a为通用型变量。
 
Dim a As Variant
 
在变量a中可以存放任何类型的数据，例如：
 
a：--BASIC’ -存放一个字符串
 
a=10 -存放一个整数
 
a=20．5 -存放一个实数
 
a=--08／15／2003’· ’存放一个日期型数据
 
根据赋给a的值的类型不同，变量a的类型不断变化，这就是称之为变体类型的由来。当一个变量未定义类型时，VB自动将变量定义为Variant类型。不同类型的数据在Variant变量中是按其实际类型存放的(例如将一个整数赋给a，在内存区中按整型数方式存放)，用户不必作任何转换的工作，VB自动完成。
 
8．无符号类型
 
无符号类型(Decimal)：变量存储96位(1 2个字节)无符号的整数形式，并除以一个1 O的幂数，称为变比因子。这个变比因子决定了小数点右面的数字位数，其范围从O~28。
 
说明：目前Decimal数据类型只能在变体类型(Variant)中使用，也就是说，不能把一个变量声明为Decimal．类型。
 
9．对象类型
 
对象类型(Object)：用来表示图形、OLE对象或其他对象，用4个字节存储。
 
更多编程相关知识，请访问：编程入门！！

 
在ＶＢ中可变类型变量的使用
 
摘要：在
 
VB
 
中变量的数据类型有很多种类，如字符
 
型串型、数值型、日期型、布尔型等。还有一种特殊类型：
 
可变类型
 
(
 
Variant
 
)
 
。
 
定义了一个可变类型变量后，
 
该变量可
 
以存放任何类型的数据(数值、字符、日期等)
 
，这样在给
 
变量赋值时就不用对数据进行转换了，
 
VB
 
系统会根据赋给
 
变量的值的不同自动进行数据类型的转换。
 
关键词：变量；数据类型；可变类型；程序设计
 
中图分类号：
 
TP311
 
文献标识码：
 
A
 
文章编号：
 
1009-3044(2008)26-1720-02
 
Variant Variables Use In Visual Basic
 
WANG Jin-feng
 
(Wuhan Engineering Institute, Wuhan 430415, China)
 
Abstact: Variables data type in Visual Basic is of many
 
types such as string,numeric,date,boolen etc. And among them is
 
Variant, a special type. A variables which is defined by the
 
variant can be stored with any type of data (numeric,string, date
 
and so on).Therefore,it is not necessary for usto make any
 
conversion between data types, because Visual Basic can do so
 
automatically according to the value of defined variables.
 
Key words: variables; data type; variant; programming

 
 
日期：2021年04月27日
 作者：Commas
 注释：VB6的集合，有点数组的味道，但是却比数组丰富；有点字典的身影，但是却比字典轻巧……
 
 
 


 
文章目录
 
一、集合的定义与说明
二、集合的定义与实例化
三、集合的属性与方法
1） `Add`
2）`Count`
3）`Item`
4）`Remove`
  
四、集合的演示代码
五、集合的两种遍历方法
1）Index遍历法
2）Key遍历法
 

 
 
一、集合的定义与说明
 
 
 
集合(Collection) 对象是项目所组成的有序集合，可以把这个集合作为单元来引用。
 
 
 
 
说明：
 1、Collection 对象提供了简便方法，将一组相关的项目（Item）视为单一对象来引用。
 2、集合中的项目或成员被这样一个事实联系起来：它们都属于这个集合。
 3、集合的成员不一定都是同一种数据类型的。
 
 
二、集合的定义与实例化
 
 
 
NO1：先声明，后实例化 一个Collection对象
 
 
'1）声明一个集合的变量
Dim clnA As Collection
'2）实例一个集合对象
Set clnA = New Collection
 
 
 
NO2：先声明，后实例化 一个Collection对象
 
 
'声明并实例化一个集合对象
Dim clnA As New Collection
 
三、集合的属性与方法
 
属性与方法
说明
Add
添加一个成员到 Collection 对象
Count
返回 Long（长整数），包含集合中的对象数目。只读
Item
利用位置（Index）或键（Key）返回 Collection 对象的指定成员
Remove
把成员从 Collection 对象中删除。
1） Add
 
1、语法说明：
 
object.Add item, [key], [before], [after]
 
2、参数说明：
 
参数
说明
item
必需的，任意类型的表达式，指定要添加到集合中的成员
key
可选的，唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员，有点字典的身影
before
可选的。表达式（Index 或 Key），指定集合中的相对位置。在集合中将添加的成员放置在 before 参数识别的成员之前
after
可选。表达式（Index 或 Key），指定集合中的相对位置。在集合中将添加的成员放置在 After 参数识别的成员之后
 
 
注意：
 1、集合的Index是从1开始的，而不是数组的索引从0开始；
 2、before或after中的Index必须是介于 1 和集合Count属性值之间的值；
 
 
2）Count
 
语法说明：
 
object.Count
 
3）Item
 
1、语法说明：
 
object.Add item, [key], [before], [after]
 
2、参数说明：
 
参数
说明
Index
必要。为一表达式，指定集合中成员的位置
 
 
注意：
 1、如果Index是数值表达式，那么index 必须是从 1 到集合 Count 属性值之间的数值；
 2、如果Index是字符串表达式，那么index必须和key参数对应。若key不存在，则会导致错误发生；
 
 
4）Remove
 
1、语法说明：
 
object.Add item, [key], [before], [after]
 
2、参数说明：
 
参数
说明
Index
必要。为一表达式，指定集合中成员的位置
 
 
注意：
 1、如果Index是数值表达式，那么index 必须是从 1 到集合 Count 属性值之间的数值；
 2、如果Index是字符串表达式，那么index必须和key参数对应。若key不存在，则会导致错误发生；
 
 
四、集合的演示代码
 
1、代码演示：
 
Option Explicit

Private Sub Form_Load()
    '声明并实例化一个集合对象
    Dim clnA As New Collection
    
    '1）Add：添加成员
    clnA.Add 1, "intA"
    clnA.Add 2, "intB"
    clnA.Add 3
    clnA.Add "aaa"
    clnA.Add "bbb", "sB"
    clnA.Add "ccc"
    
    '2）Count：查询集合的对象数目
    'Dim lngCount As Long
    'lngCount = clnA.Count
    Debug.Print clnA.Count
    
    '3）Item：查询某个成员
    Debug.Print "clnA(1)=" & clnA(1)
    Debug.Print "clnA(sB)=" & clnA("sB")
    
    '4）Remove：移除某个成员
    '4-1）Remove Index
    clnA.Remove 1
    
    '4-2）Remove Key
    clnA.Remove "intB"
    clnA.Remove "sB"
    
End Sub
 
2、结果输出：
 
 6 
clnA(1)=1
clnA(sB)=bbb
 
五、集合的两种遍历方法
 
1）Index遍历法
 
1、演示代码：
 
Option Explicit

Private Sub Form_Load()
    '声明并实例化一个集合对象
    Dim clnA As New Collection
    clnA.Add 1, "intA"
    clnA.Add 2, "intB"
    clnA.Add 3
    clnA.Add "aaa"
    clnA.Add "bbb", "sB"
    clnA.Add "ccc"
    
    'Index遍历法
    Dim i As Long
    For i = 1 To clnA.Count
        Debug.Print "clnA (" & i & ")=" & clnA(i)
    Next i
    
End Sub
 
2、结果输出：
 
clnA (1)=1
clnA (2)=2
clnA (3)=3
clnA (4)=aaa
clnA (5)=bbb
clnA (6)=ccc
 
2）Key遍历法
 
1、演示代码：
 
Option Explicit

Private Sub Form_Load()
    '声明并实例化一个集合对象
    Dim clnA As New Collection
    clnA.Add 1, "intA"
    clnA.Add 2, "intB"
    clnA.Add 3
    clnA.Add "aaa"
    clnA.Add "bbb", "sB"
    clnA.Add "ccc"
    
    'Key遍历法
    Dim vK As Variant
    For Each vK In clnA
        Debug.Print vK
    Next
    
End Sub
 
2、结果输出：
 
 1 
 2 
 3 
aaa
bbb
ccc
 
 
 
 
版权声明：本文为博主原创文章，如需转载，请给出：
 原文链接：https://blog.csdn.net/qq_35844043/article/details/116198240