'' 整数类型
Dim b As Byte '' 8 bit integer (sizeof(byte ) = 1)
Dim sh As Short '' 16 bit integer (sizeof(short ) = 2)
Dim l As Long '' 32 bit integer (sizeof(long ) = 4)
Dim ll As LongInt '' 64 bit integer (sizeof(longint) = 8)
Dim i As Integer '' 32 or 64 bit integer, depends on system (like pointers)
'' 无符类型 Dim ub As UByte
Dim ush As UShort
Dim ul As ULong
Dim ull As ULongInt
Dim ui As UInteger
'' 浮点类型
Dim f As Single '' 32bit float
Dim d As Double '' 64bit float
'' 字符串 Dim s As String '' 可变长度单字节字符串 (高达2 GB的32位和64位,可能包含空值,隐式空终止C兼容性)
Dim fixstr As String * 5 '' 固定长度字符串(隐式空终止)
Dim z As ZString * 5
+
1 '' null结尾的固定长度字符串
Dim w As WString * 5
+
1 '' 相同,但对于Unicode,取决于系统:
'' UTF-16 on Windows: 2 byte units, 1 or 2 units (2 or
'' 4 bytes) per Unicode character
'' UTF-32 on Linux: 4 bytes per Unicode character
'' 用户定义类型(UDT):结构、类 Type Vector
As Single x, y
End Type
Dim v As Vector
Type MyClass
As Integer i
Declare Constructor(ByVal i As Integer)
End Type
Constructor MyClass(ByVal i As Integer)
This.i = i
End Constructor
Dim myobject As MyClass = MyClass(1)
Sleep
|