写了END仍提升缺少符号end,求大神看看
发布网友
发布时间:2024-10-26 12:38
我来回答
共1个回答
热心网友
时间:2024-10-26 12:30
//首先 在界面上放1个“标签控件”、2个“按钮控件”和1个“定时器控件”。
//其次 复制以下脚本进行调试:
//初始化设置时间周期
Event Form1.Load
i = 0
Form1.Timer1.Enabled = False //默认定时器是启动状态,所以要先停止
Form1.Timer1.Interval = 100 //设置定时器循环的间隔时间(单位:毫秒)
Form1.Button1.Caption = "启动"
Form1.Button2.Caption = "停止"
End Event
//根据定时周期执行事件
Event Form1.Timer1.Timer
Form1.Label1.Caption = i //改变标签内容
i = i + 1
End Event
//启动定时器运行
Event Form1.Button1.Click
Form1.Timer1.Enabled = False //防止被重复启动定时器
Form1.Timer1.Enabled = True
End Event
//停止定时器运行
Event Form1.Button2.Click
Form1.Timer1.Enabled = False
End Event