UC知道=====帮忙写一个VBS脚本=====
来源：百度知道 编辑：UC知道 时间：2024/06/08 20:10:42
a=inputbox("1、aaa 2、bbb 3、ccc","请输入")
?
?
?
MsgBox b
注:
例如用户输入1,则弹出"aaa",若用户输入12,则弹出"aaa"后再弹出"bbb",输入13则弹出"aaa"和"ccc",依此类推.
列表为123,要求代码中只用到一次msgbox函数:
do
msgbox b 'b的值分别为a值的每一个字符串所对应的字符串.
loop
大虾应该明白我的意思,小弟先行谢过了...
?
?
?
MsgBox b
注:
例如用户输入1,则弹出"aaa",若用户输入12,则弹出"aaa"后再弹出"bbb",输入13则弹出"aaa"和"ccc",依此类推.
列表为123,要求代码中只用到一次msgbox函数:
do
msgbox b 'b的值分别为a值的每一个字符串所对应的字符串.
loop
大虾应该明白我的意思,小弟先行谢过了...
Dim tmp1, b, a, i, j
tmp1 = "1、aaa 2、bbb 3、ccc" '此处根据实际修改
a = InputBox(tmp1, "请输入")
For i = 1 To Len(a)
b = Mid(a, i, 1) & "、" '逐个取出输入的数字序号
j = InStr(1, tmp1, b, vbTextCompare) '根据序号定位提示字符串中的位置
If j > 0 Then
b = LTrim(Mid(tmp1, j + 2))
j = InStr(b, " ")
If j > 0 Then
b = Left(b, j - 1) '取出序号对应的提示字符串
End If
MsgBox b 'b的值分别为a值的每一个字符串所对应的字符串.
End If
Next
a=inputbox("1、aaa 2、bbb 3、ccc","请输入")
l=len(a)
for i=1 to l
s=chr(asc(mid(a,i,1))+48)
b=s & s & s
MsgBox b
next
或者
a=inputbox("1、aaa 2、bbb 3、ccc","请输入")
l=len(a)
for i=1 to l
s=chr(mid(a,i,1)+96)
b=s & s & s
MsgBox b
next
On Erro