该章我们将讲解vbs的基础知识,主要内容如下:
一、变量
Option Explicit
Dim num_a
num_a = "Hello " & vbNewLine & "world!"
MsgBox "Hello World!", 65, "MsgBox Example"
MsgBox num_a & vbCr & "num_a 类型为:" & TypeName(num_a) & vbLf &_
"num_a 类型的符号数:" & VarType(num_a)
备注
1、Option Explicit :表示之后的变量必须显示声明,否则程序将报错
2、变量的定义与声明必须分开说明
3、vbcr:回车符; vblf:换行符 ; vbcrlf:回车与换行符 ; vbNewLine:新行字符
4、_:表示分行的数据为同一行数据 <单行拆分>
5、:表示通过“:”可将多行的数据写在一行上<多行合并>
二、常数
Const Con_NUM_1="China"
MsgBox "常数值为:" & Con_NUM_1
备注
1、常数在声明和赋值必须一步完成
2、常数在程序运行期间,不能被重新赋值,否则,报错
三、数组
1、固定长度数组
Dim arr_a(2)
arr_a(0)=0
arr_a(1)="a"
arr_a(2)="2"
MsgBox "数组 arr_a的最大下标为:" & UBound(arr_a)
MsgBox "数组 arr_a的数组元素分别为:"
For i=0 To UBound(arr_a)
MsgBox "第" & i & "个元素为:" & arr_a(i)
Next
2、动态数组
Dim arr_b()
Dim j
ReDim arr_b(0)
arr_b(0)=0
ReDim Preserve arr_b(1)
arr_b(1)=1
For j=0 To UBound(arr_b)
MsgBox "第" & j & "个元素为:" & arr_b(j)
Next
备注
1、要定义动态数组,首次定义时,数组长度不指定
2、Preserve:表示重新调整数组长度时,保留数组之前的内容,同时数组长度的调整次数无限制
四、运算符
MsgBox "幂 2^4=" & 2^4
MsgBox "除 5.1/4=" & 5.1/4
MsgBox "整除 2\4=" & 2\4
MsgBox "求余 (5)mod(3)=" & (5)mod(3)
MsgBox "不等于 3<>2: " & (3<>2)
MsgBox "逻辑与 0 and 2: " & (0 and 2)
MsgBox "逻辑或 0 or 2: " & (0 or 2)
MsgBox "逻辑非 not 2: " & (Not 2)
MsgBox "逻辑异或 1 xor 1: " & (1 Xor 1)
MsgBox "逻辑等价 1 eqv 2: " & (1 eqv 2)
MsgBox "逻辑隐含 1 imp 2: " & (1 imp 2)
<