vbs中有没有一个可以返回字符串的第几个字的函数？

在vbscript中，常用截取字符串的函数有left（str,length），right（str,length）和mid（str,start,length）

例如dim str="abcdefg"

left(str,3)的结果是c

right（str,3)的结果是e

mid(str,3,1)的结果是c

mid(str,4,2)的结果是e

Dim Src As String

Dim Dec As String

Dim i As Integer

Src = "abcde"

Dec = vbNullString

For i = 1 To Len(Src)

Dec = Dec &Right(Src, 1)

Src = Replace(Src, Right(Src, 1), "", 1, -1, vbTextCompare)

Next

msgbox Dec

已经调试成功，如果要做vbs的话，把两个" As String"和一个" As Integer"去掉就行了

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 "感谢使用!祝您愉快。", , "猜数字"

---