vb60运算符大全.docx

1、vb60运算符大全vb6.0运算符大全(d qun)vb6.0运算符大全(d qun)Vb6.0运算符1、& 运算符用来强制(qingzh)两个表达式作字符串连接(linji)。语法(yf)result = expression1 & expression2& 运算符的语法具有(jyu)以下几个部分：部分描述result必需的；任何 String或 Variant 变量。expression1必需的；任何表达式。expression2必需的；任何表达式。说明(shumng)如果 expression 不是字符串，则将其转换成 String 变体。如果两个表达式都是字符串表达式，则 result

2、 的数据类型是 String；否则 result 是 String 变体。如果两个表达式都是 Null，则 result 也是 Null。但是，只要有一个 expression 是 Null，那么在与其它表达式连接时，都将其作为长度为零的字符串 () 处理。任何 Empty 类型表达式也作为长度为零的字符串处理。& 运算符示例(shl)本示例(shl)使用 & 运算符将字符串串接起来(q li)。Dim MyStrMyStr = Hello & World 返回(fnhu) Hello World。MyStr = Check & 123 & Check 返回(fnhu) Check 123 C

3、heck。2、* 运算符用来将两数相乘。语法result = number1*number2* 运算符的语法具有以下几个部分：部分描述result必需的；任何数值变量。number1必需的；任何数值表达式。number2必需的；任何数值表达式。说明result 的数据类型通常与最精确的表达式的数据类型相同。精确度由最低到最高的顺序是Byte、 Integer、Long、Single、Currency、Double 和 Decimal。下列情况是例外：如果则 result 为乘法运算有一个 Single 和一个Long，转换成 Double。result 的数据类型是 Long、Single 或

4、 Date 变体，且超出正确范围，转换成有 Double 的 Variant。result 的数据类型是 Byte 变体，且超出正确范围，转换成 Integer 变体。result 的数据类型是 Integer 变体，且超出正确范围，转换成 Long 变体。如果有一个(y )或两个表达式是 Null 表达式，则 result 为 Null。如果(rgu)一个表达式是 Empty，则作为(zuwi) 0 处理。注意(zh y) 乘法用到的精确度等级与加法和减法(jinf)用到的精确度等级不一样。* 运算符示例本示例使用 * 运算符来计算两数的乘积。Dim MyValueMyValue = 2 *

5、 2 返回 4。MyValue = 459.35 * 334.90 返回 153836.315。3、+ 运算符用来求两数之和。语法result = expression1+expression2+ 运算符的语法具有以下几个部分：部分描述result必需的；任何数值变量。expression1必需的；任何表达式。expression2必需的；任何表达式。说明(shumng)在使用(shyng) + 运算符时有可能无法确定是做加法还是做字符串连接(linji)。为避免混淆，请使用 & 运算符进行连接(linji)，并且改进程序代码的可读性。如果至少(zhsho)有一个表达式不是 Variant，则

6、可运用以下法则：如果则两个表达式都是数值数据类型 (Byte、Boolean、 Integer、Long、Single、 Double、 Date、Currency 或是 Decimal)相加。两个表达式都是 String连接。一个表达式是数值数据类型而另一个是 Null 之外的任意 Variant。相加。一个表达式是 String 而其它是 Null 之外的任意 Variant。连接。一个表达式是 Empty Variant返回另一个不变的表达式作为 result。一个表达式是数值数据类型，而另一个是 String产生一个类型不匹配错误。每个表达式都是 Nullresult 是 Null。如

7、果两个表达式都是 Variant 表达式，则可运用下列规则：如果则两个 Variant 表达式都是数值相加。两个 Variant 表达式都是字符串连接。一个 Variant 表达式是数值而另一个是字符串相加。对于只有(zhyu)数值数据类型表达式的单纯加法，result 的数据类型通常与其中(qzhng)最精确的表达式的数据类型相同。精确度由最低到最高的顺序是 Byte、Integer、Long、Single、Double、Currency 和 Decimal。但下列情况(qngkung)例外：如果则 result 为一个 Single 和一个 Long 相加，一个 Double。result

8、 的数据类型是 Long、Single 或 Date 变体，且越出正确范围，转换成 Double 变体。result 的数据类型是 Byte 变体，且超过本身的正确范围时，转换成 Integer 变体。result 的数据类型是 Integer 变体，且超过本身的正确范围时，转换成 Long 变体。将一个 Date 加到任何数据类型上，一个 Date。如果有一个(y )或两个表达式是 Null 表达式，则 result 为 Null。如果(rgu)两个表达式都是 Empty，则 result 是 Integer。但是，如果只有一个表达式是 Empty，则另一个表达式原封不动地作为 result

9、 返回。注意 加法和减法用到的精确度等级与乘法用到的精确度等级不一样。+ 运算符示例(shl)本示例(shl)使用 + 运算符来计算(j sun)数值的和。+ 运算符也可以(ky)用来做字符串的串接操作。不过，最好还是使用 & 运算符来做字符串的串接操作(cozu)。如果 + 运算符两边的表达式中混着字符串及数值的话，其结果会是数值的求和。如果都是字符串作“相加”，则返回串接起来的字符串。Dim MyNumber, Var1, Var2MyNumber = 2 + 2 返回 4。MyNumber = 4257.04 + 98112 返回 102369.04。Var1 = 34: Var2 =

10、6 初始化混合变量的值。MyNumber = Var1 + Var2 返回 40。Var1 = 34: Var2 = 6 用字符串初始化混合变量的值。MyNumber = Var1 + Var2 返回 346（字符串被串接起来）。4、 运算符用来求两数之差或表示数值表达式的负值。语法 1result = number1 - number2语法 2- number 运算符的语法具有以下几个部分：部分描述result必需的；任何数值变量。number必需的；任何数值表达式。number1必需的；任何数值表达式。number2必需的；任何数值表达式。说明(shumng)在语法(yf) 1 中， 运算

11、符是求两数之差的算术减法(jinf)运算符。在语法 2 中， 运算符为一元(y yun)负运算符，说明表达式的值为负值。result 的数据类型通常(tngchng)与最精确的表达式的数据类型相同。精确度由最低到最高的顺序是Byte、Integer、Long、Single、Double、Currency 和 Decimal。下列情况例外：如果则 result 为当减法运算中有一个 Single 和一个 Long，转换成一个 Double。result 的数据类型是一个 Long、Single 或 Date 变体，且超出正确范围，转换成包含 Double 的Variant。result 的数据类

12、型是一个 Byte 变体，且超出正确范围，转换成一个 Integer 变体。result 的数据类型是一个 Integer 变体，且超出正确范围，转换成一个 Long 变体。减法运算中有 Date 和其它任何数据类型，一个 Date。减法运算中有两个 Date 表达式，一个 Double。如果有一个(y )或两个表达式是 Null 表达式，则 result 为 Null。如果(rgu)一个表达式是 Empty，则作为(zuwi) 0 处理。注意(zh y) 加法和减法用到的精确度等级(dngj)与乘法用到的精确度等级不一样。- 运算符示例本示例使用 - 运算符来计算两数值的差。Dim MyRe

13、sultMyResult = 4 - 2 返回 2。MyResult = 459.35 - 334.90 返回 124.45。5、/ 运算符用来进行两个数的除法运算并返回一个浮点数。语法result = number1/number2/ 运算符的语法具有以下几个部分：部分描述result必需的；任何数值变量。number1必需的；任何数值表达式。number2必需的；任何数值表达式。说明result 的数据类型通常是 Double 或 Double 变体。下列情况是例外：如果则 result 为两个表达式都是 Byte、Integer 或Single表达式时，一个 Single，除非超出正确范

14、围；如果发生这种情况，则产生错误。两个表达式都是 Byte、Integer 或Single 变体，一个 Single 变体，除非已超出正确范围；一旦发生这种情况，result 是一个包含 Double 的 Variant。除法运算中有一个 Decimal及其它任何数据类型，一个 Decimal 数据类型。如果有一个(y )或是两个表达式是 Null 表达式，则 result 为 Null。如果(rgu)一个表达式是 Empty 则作为(zuwi) 0 处理。/ 运算符示例(shl)本示例(shl)使用 / 运算符来计算浮点数除法。Dim MyValueMyValue = 10 / 4 返回 2

15、.5。MyValue = 10 / 3 返回 3.333333。6、 运算符用来对两个数作除法并返回一个整数。语法result = number1number2 运算符的语法具有以下几个部分：部分描述result必需的；任何数值变量。number1必需的；任何数值表达式。number2必需的；任何数值表达式。说明(shumng)在进行除法运算之前，数值表达式通过(tnggu)舍去小数部分转换成 Byte、Integer 或 Long表达式。通常(tngchng)，无论 result 是不是整数(zhngsh)，result 的数据类型都是 Byte、Byte 变体(bin t)、Integer

16、、Integer 变体、Long 或 Long 变体。任何小数部分都被删除。但是，如果任何一个表达式是 Null，则 result 为 Null。如果一个表达式是 Empty，则作为0 处理。 运算符示例本示例使用 运算符来计算整型除法。Dim MyValueMyValue = 11 4 返回 2。MyValue = 9 3 返回 3。 MyValue = 100 3 返回 33。7、运算符用来求一个数字的某次方，次方数为 exponent 值。语法result = numberexponent 运算符的语法具有(jyu)以下几个部分：部分描述result必需的；任何数值变量。number必需

17、的；任何数值表达式。exponent必需的；任何数值表达式。说明(shumng)只有(zhyu)当 exponent 为整数(zhngsh)值时，number 才可以(ky)为负数。在表达式中执行多个指数运算时， 运算符的计算顺序从左到右。result 的数据类型通常是 Double 或包含 Double 的 Variant。但是，如果 number 或 exponent 中有一个是 Null 表达式，则 result 也是 Null。 运算符示例本示例使用 运算符来表示某数的乘方的指数值。Dim MyValueMyValue = 2 2 返回 4。MyValue = 3 3 3 返回 196

18、83。MyValue = (-5) 3 返回 -125。8、= 操作符描述用于对一个(y )变量(binling)或属性(shxng)赋值。语法(yf)variable = value= 操作符语法有如下(rxi)几部分：部分描述variable任何变量或任何可写的属性。value任何数值型或字符串文字、常数或表达式。说明等号左边的名字可以是一个简单的标量变量或一个数组的元素。等号左边的属性只能是运行时可写的属性。9、AddressOf 运算符一个一元运算符，它将其后面的过程的地址传递给一个 API 过程，该 API 过程在参数表对应位置中需要一个函数指针。语法AddressOf proced

19、urename必需的 procedurename 指定要传递的地址是哪一个过程的地址。这个过程必须是发出调用命令的工程中的一个标准模块模块里的一个过程。说明(shumng)当一个过程的名称出现在一个参数列表(li bio)中时，通常该过程已经被计算，并且该过程返回值的地址也会被传递。AddressOf 允许(ynx)该过程的地址被传递给动态链接库 (DLL) 中的一个 Windows API 函数，而不是传递该过程的返回值。API 函数然后就可以使用这个地址(dzh)来调用相应的 Basic 过程，这个过程就是我们所知道的回调。AddressOf 运算符只出现在对 API 过程(guchng)

20、的调用中。尽管可以使用 AddressOf 运算符在 Basic 过程之间传递过程指针，却不能通过这样的一个指针从 Basic 内部调用一个函数。这就是说，例如，一个使用 Basic 编写的类 不能使用这样的一个指针来回调自己的控制器。当使用 AddressOf 运算符在 Basic 内的过程之间传递一个过程的指针时，被调用过程的参数类型必须定义为 As Long。警告 如果不能完全理解函数回调的概念，则使用 AddressOf 运算符可能会导致意想不到的结果。必须理解回调的 Basic 部份是如何工作的，以及接受所传递的函数地址的 DLL 的代码是如何工作的。调试这样的交互操作是非常困难的，

21、因为该程序和开发环境运行在相同的进程中。在某些情况下，系统的调试也许是不可能的。注意 可以使用 Microsoft Visual C+ （或者类似的工具）编译的 DLLs 来创建自己的回调函数原型。要使用 AddressOf 运算符来工作，您的原型必需使用 _stdcall 调用约定。缺省的调用约定 (_cdecl) 不能与 AddressOf 运算符一起工作。因为(yn wi)一个回调的调用程序不在用户自己的程序中，所以很重要的一点是要保证回调过程中的错误不被回传到调用者。可以通过把 On Error Resume Next 语句放置(fngzh)于回调过程的起始处来达到这个要求。Addre

22、ssOf 运算符示例(shl)下面的示例创建一个(y )带有一个列表框的窗体，该列表框包含您的系统中的字体的按字母顺序排序的列表。要运行该示例(shl)，请创建一个带有一个列表框的窗体。窗体部分的代码如下：Option ExplicitPrivate Sub Form_Load() Module1.FillListWithFonts List1End Sub把下面的代码放置到一个模块中。EnumFontFamilies 函数定义中的第三个参数是一个长整形，它代表一个过程。该参数必须包含这个过程的地址，而不是这个过程的返回值。在对 EnumFontFamilies 的调用中，第三个参数需要 Ad

23、dressOf 运算符来返回 EnumFontFamProc 过程的地址，该过程是当调用 Windows API 函数，即 EnumFontFamilies 时提供的回调过程的名称。当把 AddressOf EnumFontFamProc 传递给 EnumFontFamilies 时， Windows 就会为系统中的每一个字体库调用一次 EnumFontFamProc。传递给 EnumFontFamilies 的最后一个参数指定用来显示信息的列表框。字体枚举(mi j)类型Public Const LF_FACESIZE = 32Public Const LF_FULLFACESIZE = 6

24、4Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName(LF_FACESIZE) As B

25、yteEnd TypeType NEWTEXTMETRIC tmHeight As Long tmAscent As Long tmDescent As Long tmInternalLeading As Long tmExternalLeading As Long tmAveCharWidth As Long tmMaxCharWidth As Long tmWeight As Long tmOverhang As Long tmDigitizedAspectX As Long tmDigitizedAspectY As Long tmFirstChar As Byte tmLastChar

26、 As Byte tmDefaultChar As Byte tmBreakChar As Byte tmItalic As Byte tmUnderlined As Byte tmStruckOut As Byte tmPitchAndFamily As Byte tmCharSet As Byte ntmFlags As Long ntmSizeEM As Long ntmCellHeight As Long ntmAveWidth As LongEnd Type ntmFlags 段标志(biozh)Public Const NTM_REGULAR = &H40&Public Const

27、 NTM_BOLD = &H20&Public Const NTM_ITALIC = &H1& tmPitchAndFamily 标志(biozh)Public Const TMPF_FIXED_PITCH = &H1Public Const TMPF_VECTOR = &H2Public Const TMPF_DEVICE = &H8Public Const TMPF_TRUETYPE = &H4Public Const ELF_VERSION = 0Public Const ELF_CULTURE_LATIN = 0 EnumFonts 掩码Public Const RASTER_FONT

28、TYPE = &H1Public Const DEVICE_FONTTYPE = &H2Public Const TRUETYPE_FONTTYPE = &H4Declare Function EnumFontFamilies Lib gdi32 Alias _ EnumFontFamiliesA _ (ByVal hDC As Long, ByVal lpszFamily As String, _ ByVal lpEnumFontFamProc As Long, LParam As Any) As LongDeclare Function GetDC Lib user32 (ByVal hW

29、nd As Long) As LongDeclare Function ReleaseDC Lib user32 (ByVal hWnd As Long, _ ByVal hDC As Long) As LongFunction EnumFontFamProc(lpNLF As LOGFONT, lpNTM As NEWTEXTMETRIC, _ ByVal FontType As Long, LParam As ListBox) As LongDim FaceName As StringDim FullName As String FaceName = StrConv(lpNLF.lfFaceName, vbUnicode) LParam.AddItem Left$(FaceName, InStr(FaceName, vbNullChar) - 1) EnumFontFamProc = 1End FunctionSub FillListWithFonts(LB As ListBox)Dim hDC As Long LB.Clear hDC = GetDC(LB.hWnd) EnumF