工控随笔_11_西门子_WinCC的VBS脚本_02_运算符

‘VBS脚本内置很丰富的运算符号
‘1、赋值运算符  = 
‘2、数学运算符  + - * /  mod (mod为取余数) \ (\为整除运算）
‘3、比较运算符  >  =     is
‘4、逻辑运算符  and  or  not  xor  Eqv  Imp
‘5、连接运算符  &  和 +

Option Explicit 

‘赋值运算符
Dim nLen
Dim strName

‘利用赋值运算符将函数的返回值赋值给变量
strName = InputBox("请输入你的名字:","提示","volcanol")
nLen = Len(strName)
MsgBox nLen


‘数学运算符
‘通过数学运算符对数字进行数学运算可以实现很多功能
‘加法
Dim nAugend
Dim nAddend
Dim nSum
nAugend = 10
nAddend = 20
nSum = nAugend + nAddend
MsgBox "和是:" & nSum

‘减法
Dim nMinuend
Dim nSubtractor
Dim nSub
nMinuend = 1000
nSubtractor = 999
nSub = nMinuend - nSubtractor
MsgBox "差是:" & nSub

‘乘法
Dim fRadius
Dim fPi
Dim fCycle
Dim fArea
fRadius = 10.0
fPi = 3.1415926
fCycle = 2 * fPi * fRadius
fArea = fPi * fRadius * fRadius
MsgBox "周长是:" & fCycle
MsgBox "面积是:" & fArea

‘除法
Dim fSquare
Dim fRoot
Dim fDivision
fSquare = 81
fRoot = 9
fDivision = fSquare / fRoot
MsgBox "商是:" & fDivision

‘求余数
Dim nDividend
Dim nDivisor
Dim nMod
nDividend = 10
nDivisor = 3
nMod = nDividend Mod nDivisor
MsgBox "余数为:" & nMod


‘比较运算符号
‘比较运算符用来比较两个数、字符、或者字符串的大小
‘下面演示大于号的比较，其他的不再演示
Dim strCompare(2)
strCompare(1) = "volcanom"
strCompare(2) = "volcanol"
If strCompare(1) > strCompare(2) Then
    MsgBox "strCompare(1)大于strCompare(2)"
Else
    MsgBox "strCompare(1)小于strCompare(2)"
End If

‘is运算符
‘is运算符用来比较两个对象是否是同一个对象
Dim objectA 
Dim objectB
Dim objectC 
Set objectC = CreateObject("WScript.shell")
Set objectA = objectC 
Set objectB = objectC 
If objectA Is objectB Then 
    MsgBox "objectA 和 objectB 是同一个对象"
Else
    MsgBox "objectA 和 objectB 不是同一个对象" 
End If


‘逻辑运算符
‘逻辑运算符也可以叫做布尔逻辑运算符，其运算结果得到的布尔逻辑的
‘true 或者 false, 注意VB有两个内置的常数TRUE 和 FALSE
If True Then
    MsgBox "总是执行这一句"
Else
    MsgBox "从来不会执行"
End If

If Not False Then
    MsgBox "false取非运算，得到结果为真，执行这一句"
Else
    MsgBox "false取非运算，得到结果为真，不执行这一句"
End if

If 0 Then
    MsgBox "0的逻辑结果为假，这一句不执行"
Else
    MsgBox "0的逻辑结果为假，执行这一句"
End If

If 3 Then
    MsgBox "非0数的逻辑结果为真，执行这一句"
Else
    MsgBox "非0数的逻辑结果为真，这一句不执行"
End If

‘下面两个例子，演示函数返回值参与逻辑运算
If strCompare(1) > strCompare(2) And MsgBox("输入选择测试",vbYesNo,"测试") Then
    MsgBox "逻辑与运算结果为真"
Else
    MsgBox "逻辑与运算结果为假"
End If

If strCompare(1) 2) or MsgBox("输入选择测试",vbYesNo,"测试") Then
    MsgBox "逻辑或运算结果为真"
Else
    MsgBox "逻辑或运算结果为假"
End If

If 0 Xor 1 Then
    MsgBox "两个逻辑结果不一样的值进行异或得到的结果为真，执行这一句"
Else
    MsgBox "两个逻辑结果不一样的值进行异或得到的结果为真，不执行这一句"
End If