先在界面上画个输入框,然后在源文件里写代码.
次数 = 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