怎样用vbs判断字符串最后一位是否是0??

用这几个函数： Len 函数 、Left 函数、Mid 函数、Right 函数，如下：

str=abcdef

Len(str) 求str的长度，本例长度为6

Left(str,1) str从左往右数第几位，本例为f
Left(str,2) 这里为e

right(str,1) str从右往左数第几位，本例为a

mid(str,2,4) str从第几位数到第几位，本例为bcd
mid(str,1,3) 这里为abc

Dim str
str="abcde0fghijkl0n0"
'判断字符串最后一个字符是否为0
If(Mid(str,Len(str),1)="0") Then
        MsgBox "最后一位是0"
Else
        MsgBox "最后一位非0"
End If

'判断字符串指定位置字符是否为0
Dim location
location=6        '指定第6个字符
If(Mid(str,location,1)="0") Then
        MsgBox "第 " & location & " 位置上的字符是0"
Else
        MsgBox "第 " & location & " 位置上的字符非0"
End