Event Form1.InputBox1.Changei = Form1.InputBox1.TextIf i > 0 Then For iCall 子程序()NextEnd IfEnd EventSub 子程序()MsgBox "abc"End Sub你把sub 子程序到end sub之间改一下就可以了