Question

按键精灵（如何将字符显示到某区域的输入框界面）

关于界面输入框Form1.InputBox1.Text，我们可以把它当作是路径！所有要用的文本，都可以从这个“路径”提取。使用函数分割拆分计算调用等，但这些命令都是从这个“路径”获取文本内容，请问如何将脚本内计算出的内容显示在Form1.InputBox1.Text？
举例：
Dim Mystring(9),路径
路径 = Form1.InputBox1.Text
for i = 0 to 9
Mystring(i) = Mid(路径,(i+1),1)
If Mystring(i) = 0 then
//如何将字符提到Form1.InputBox2.Text
MyPos = 0
Elise If Mystring(i) = 1 then
//如何将字符提到Form1.InputBox3.Text
MyPos = 0
Elise If Mystring(i) = 2 then
//如何将字符提到Form1.InputBox4.Text
MyPos = 0
Elise If Mystring(i) = 3 then
//如何将字符提到Form1.InputBox5.Text
MyPos = 0
Elise If Mystring(i) = 4 then
//如何将字符提到Form1.InputBox6.Text
MyPos = 0
Elise If Mystring(i) = 5 then
//如何将字符提到Form1.InputBox7.Text
MyPos = 0
Elise If Mystring(i) = 6 then
//如何将字符提到Form1.InputBox8.Text
MyPos = 0
Elise If Mystring(i) = 7 then
//如何将字符提到Form1.InputBox9.Text
MyPos = 0
Elise If Mystring(i) = 8 then
//如何将字符提到Form1.InputBox10.Text
MyPos = 0
Elise If Mystring(i) = 9 then
//如何将字符提到Form1.InputBox11.Text
MyPos = 0
End if
Next
提取（界面输入框1）的数据，经过拆分数组得到的0-9数字后，如何放置在其他的输入框里
并显示出来？
顺便再问问：当命令执行完毕，如何将界面的输入框清零。

Answer 1

路径 = Form1.InputBox1.Text
for i = 0 to 9
Mystring(i) = Mid(路径,(i+1),1)
If Mystring(i) = 0 then
Form1.InputBox2.Text=Mystring(i)
MyPos = 0
ElseIf Mystring(i) = 1 then
Form1.InputBox3.Text=Mystring(i)
MyPos = 0
ElseIf Mystring(i) = 2 then
Form1.InputBox4.Text=Mystring(i)
MyPos = 0
ElseIf Mystring(i) = 3 then
//依此类推
MyPos = 0
ElseIf Mystring(i) = 4 then
//如何将字符提到Form1.InputBox6.Text
MyPos = 0
ElseIf Mystring(i) = 5 then
//如何将字符提到Form1.InputBox7.Text
MyPos = 0
ElseIf Mystring(i) = 6 then
//如何将字符提到Form1.InputBox8.Text
MyPos = 0
ElseIf Mystring(i) = 7 then
//如何将字符提到Form1.InputBox9.Text
MyPos = 0
ElseIf Mystring(i) = 8 then
//如何将字符提到Form1.InputBox10.Text
MyPos = 0
ElseIf Mystring(i) = 9 then
//如何将字符提到Form1.InputBox11.Text
MyPos = 0
End if
Next
Form1.InputBox其他.Text = Form2.InputBox1.Text & Form1.InputBox3.Text & Form1.InputBox4.Text··· & Form1.InputBox11.Text
MessageBox Form1.InputBox其他.Text
Form1.InputBox2.Text = 0
Form1.InputBox3.Text = 0
Form1.InputBox4.Text = 0
Form1.InputBox5.Text = 0
//依此类推