按键精灵数值分割问题？

Question

我要通过输入框输入一个数值：比如125，我想从左到右逐个提取数字，并分别赋值给a,b,c变量

Answer 1

dim 数值字符串,a,b,c

数值字符串="125"
for i=1 to len(数值字符串)
if i=1 then
a=mid(数值字符串,i,1)
elseif i=2 then
b=mid(数值字符串,i,1)
elseif i=3 then
c=mid(数值字符串,i,1)
end if

next
这样可以随意增加字符串内容,如果你会使用数组更好,比如(省略部分代码,只写for循环赋值)
dim 数组(2)
for i=1 to len(数值字符串)
数组(i-1)=mid(数值字符串,i,1)

next
这样直接就完事了,多少都能直接赋值

Answer 2

a = Mid("125", 1, 1)
b = Mid("125", 2, 1)
c = Mid("125", 3, 1)