先在界面上画个输入框,然后在源文件里写代码. 次数 = Form1.InputBox1.Text//获取输入框内容次数 = int(次数)//强制转化为整数型 i = 1 For 次数 TracePrint i i = i + 1 Next 上面是界面控制循环次数.要显示也行,在界面上添加一个标签(输入框也行)和一个定时器.然后添加代码如下: Dimenv 次数//必须要用一个环境变量次数 = 0 Do 次数 = 次数 + 1 Delay 500 Loop Event Form1.Timer1.Timer//定时器事件 Form1.Label1.Caption = 次数 End Event
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024