按键精灵输入框输入数字循环问题

Question

我想设置一个循环语句，循环次数需要调用输入框所输的数字阿拉伯数字X，比如输入X数字，则子程序循环X次，怎么写 谢谢
Event Form1.InputBox1.Chang
i = Form1.InputBox1.Text
If i>0 Then
Sub 子程序()
End If
End Event
当然这个程序是错的
Event Form1.InputBox1.Chang
i = Form1.InputBox1.Text
If i>0 Then
Sub 子程序()
i=i-1
End If
End Event

Answer 1

Event Form1.InputBox1.Change
i = Form1.InputBox1.Text
If i > 0 Then 
For i
Call 子程序()
Next
End If
End Event
Sub 子程序()
MsgBox "abc"
End Sub
你把sub 子程序到end sub之间改一下就可以了