Originally posted by youxi01 at 2007-1-11 02:26:
如果是vbs的话，就不用这么麻烦拉！用一个简单的for循环就搞定拉
input = inputbox("输入2个字母","输入","af")
str1 = mid(input,1,1)
str2 = mid(input,2,2)
for i = asc(str1) to asc(str2)
str = str&" "&chr(i)
next
msgbox str
Originally posted by youxi01 at 2007-1-11 02:26:
If it's VBS, it doesn't need to be so complicated! Just use a simple for loop to get it done
input = InputBox("Enter 2 letters", "Input", "af")
str1 = Mid(input, 1, 1)
str2 = Mid(input, 2, 2)
For i = Asc(str1) To Asc(str2)
str = str & " " & Chr(i)
Next
MsgBox str
