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

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 If

'判断字符串倒数第3的位置字符是否为0

If(Mid(str,Len(str)-2,1)="0") Then

        MsgBox "倒数第3位置上的字符是0"

Else

        MsgBox "倒数第3位置上的字符非0"

End If

Option ExplicitRandomize '随机种子Dim nDim infoDim speaDim aDim bDim q '定义变量 info = -1 '初始值 Do Until info = 1 Or info = 2 Or info = 3 Or info = 0 'do循环 直到 info=0-3 其中一个数时结束循环 info = InputBox("请选择游戏难度。" &Chr(10) &"1:低级" &Chr(10) &"2:中级" &Chr(10) &"3:高级" &Chr(10) &"0:退出" &Chr(10) &"1是个位数，2是十位数，3是百位数", "猜数字 <by LEE制作>") '弹出对话框 输入数值 Select Case info '测试这个数值 Case 1 '如果数值为1 则给n赋值10 n = 10 Case 2 n = 100 Case 3 n = 1000 Case 0 n = 0 Case Else n = -1 End Select If n = -1 Then '如果n为-1 则弹出错误提示 MsgBox "输入错误!", 16, "猜数字" End IfLoopIf n = 0 Then '如果n=0 则退出脚本 wscript.quitEnd Ifa = Int(Rnd() * n) '以n为范围 随机一个数 赋值给aq = Int((a)) + 1 'a取整数 加 1 赋值给q Do Until a = Int(q) '当 a等于 q变量取整数 时则退出循环 q = InputBox("猜猜是几?" &Chr(10) &"可以随时输入[e]退出。", "猜数字 <zzl制作>") '弹出对话框 用户输入猜的数值 然后赋值给q If q = "e" Then 'q等于 e 则退出脚本 MsgBox "感谢使用!祝您愉快。", , "猜数字" wscript.quit End If If Int(q) >a Then '如果q大于a则 弹出大于提示 MsgBox "大了!", 48, "猜数字" End If If Int(q) <a Then '如果q小于a则 弹出大于提示 MsgBox "小了!", 48, "猜数字" End IfLoopIf Int(q) = a Then '如果q等于a则 弹出恭喜提示 MsgBox "恭喜你，你赢了!", 48, "猜数字"End IfMsgBox "感谢使用!祝您愉快。", , "猜数字"

---