|
版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 秒, 整数型
.程序集变量 分, 整数型
.子程序 _按钮1_被单击
.局部变量 最小号码, 整数型
.局部变量 最大号码, 整数型
标签7.标题 = “”
编辑框4.内容 = “”
时钟2.时钟周期 = 1 ' 快速测试暂调为1,正常为1000
编辑框3.内容 = “”
标签2.标题 = “”
编辑框3.获取焦点 ()
.如果 (单选框1.选中 = 真)
最大号码 = 10
.否则
.如果 (单选框2.选中 = 真)
最大号码 = 20
.否则
.如果 (单选框3.选中 = 真)
最大号码 = 100
.否则
.如果 (单选框4.选中 = 真)
最大号码 = 1000
.否则
.如果 (单选框5.选中 = 真)
最小号码 = 520
最大号码 = 9999
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
编辑框1.内容 = 到文本 (取整 (取随机数 (最小号码, 最大号码)))
编辑框2.内容 = 到文本 (取整 (取随机数 (最小号码, 最大号码)))
.子程序 __启动窗口_创建完毕
置随机数种子 ()
单选框1.选中 = 真
.子程序 _按钮2_被单击
.局部变量 正确数, 整数型
.局部变量 错误数, 整数型
.局部变量 n, 整数型
.如果 (编辑框3.内容 = 到文本 (到数值 (编辑框1.内容) + 到数值 (编辑框2.内容)))
标签2.标题 = “结果:恭喜你,你答对了,你真是太聪明了!”
正确数 = 正确数 + 1
编辑框正确数.内容 = 到文本 (到数值 (编辑框正确数.内容) + 正确数)
.否则
标签2.标题 = “结果:回答错误,你真是太笨了!”
错误数 = 错误数 + 1
编辑框错误数.内容 = 到文本 (到数值 (编辑框错误数.内容) + 错误数)
.如果结束
.子程序 _时钟1_周期事件
时间.标题 = “现在时间是:” + 到文本 (取现行时间 ())
.子程序 _时钟2_周期事件
编辑框4.内容 = “00:00”
秒 = 秒 + 1
.如果 (秒 = 60)
分 = 分 + 1
秒 = 0
.否则
.如果结束
编辑框4.内容 = 取文本右边 (“0” + 到文本 (分), 2) + “:” + 取文本右边 (“0” + 到文本 (秒), 2)
.如果 (编辑框4.内容 = “10:00”)
时钟2.时钟周期 = 0
标签7.标题 = “您共答对:” + 编辑框正确数.内容 + “,” + “答错:” + 编辑框错误数.内容 + “题”
延迟 (5000)
.否则
.如果结束
如上,我设计每10分钟一个测试,10分钟后让“使用时间”赋值为00:00,但是再点开始的时候还是从原来的时间往上加,怎么回事呢?
|
-
-
计算题.zip
2.55 KB, 下载次数: 7, 下载积分: 精币 -2 枚
|