|
分享源码
界面截图: |
- |
是否带模块: |
- |
备注说明: |
- |
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 = “”)
信息框 (“欲实验次数不能为空”, 0, , )
.否则
.如果结束
.如果 (到整数 (编辑框1.内容) > 60000)
信息框 (“次数过多可能导致运行过慢”, 0, , )
.否则
.如果结束
.计次循环首 (到整数 (编辑框1.内容), )
.如果 (取随机数 (1, 2) = 1)
编辑框5.内容 = 到文本 (到整数 (编辑框5.内容) + 1)
编辑框3.内容 = 到文本 (到整数 (编辑框3.内容) + 1)
.否则
编辑框7.内容 = 到文本 (到整数 (编辑框7.内容) + 1)
编辑框3.内容 = 到文本 (到整数 (编辑框3.内容) + 1)
.如果结束
.计次循环尾 ()
编辑框6.内容 = 到文本 (到整数 (编辑框5.内容) ÷ 到整数 (编辑框3.内容))
编辑框8.内容 = 到文本 (到整数 (编辑框7.内容) ÷ 到整数 (编辑框3.内容))
.子程序 __启动窗口_创建完毕
置随机数种子 ()
.子程序 _编辑框1_内容被改变
编辑框3.内容 = “”
编辑框5.内容 = “”
编辑框7.内容 = “”
编辑框6.内容 = “”
编辑框8.内容 = “”
本人技术有限,仅供新手参考,大佬们勿喷。同时也请各位大佬对不足之处提出建议
|
|