石头剪刀布新手简单版

KD飞飞

一共35行代码 新手看，大佬绕路，纯基础用法没有技巧 没有感情

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
程序结果	整数型
pk结果	文本型
玩家结果	整数型

如果真 (组合框1.现行选中项 ＝ -1)
返回 ()
置随机数种子 ()
程序结果 ＝ 取随机数 (1, 3)
如果真 (程序结果 ＝ 1)
标签3.标题 ＝ “石头”
如果真 (程序结果 ＝ 2)
标签3.标题 ＝ “剪刀”
如果真 (程序结果 ＝ 3)
标签3.标题 ＝ “布”
如果真 (组合框1.现行选中项 ＝ 0)
玩家结果 ＝ 1
如果真 (组合框1.现行选中项 ＝ 1)
玩家结果 ＝ 2
如果真 (组合框1.现行选中项 ＝ 2)
玩家结果 ＝ 3
如果 (玩家结果 ＝ 1 且 程序结果 ＝ 2)  ' 石头大于剪刀
pk结果 ＝ “玩家获胜”
pk结果 ＝ “玩家失败”
如果 (玩家结果 ＝ 2 且 程序结果 ＝ 3)  ' 剪刀大于布
pk结果 ＝ “玩家获胜”
pk结果 ＝ “玩家失败”
如果 (玩家结果 ＝ 3 且 程序结果 ＝ 1)  ' 玩家石头大于系统剪刀
pk结果 ＝ “玩家获胜”
pk结果 ＝ “玩家失败”


如果真 (玩家结果 ＝ 程序结果)
pk结果 ＝ “平手”
标签4.标题 ＝ pk结果

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 程序结果, 整数型<br /> .局部变量 pk结果, 文本型<br /> .局部变量 玩家结果, 整数型<br /> <br /> .如果真 (组合框1.现行选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 置随机数种子 ()<br /> 程序结果 ＝ 取随机数 (1, 3)<br /> .如果真 (程序结果 ＝ 1)<br />     标签3.标题 ＝ “石头”<br /> .如果真结束<br /> .如果真 (程序结果 ＝ 2)<br />     标签3.标题 ＝ “剪刀”<br /> .如果真结束<br /> .如果真 (程序结果 ＝ 3)<br />     标签3.标题 ＝ “布”<br /> .如果真结束<br /> .如果真 (组合框1.现行选中项 ＝ 0)<br />     玩家结果 ＝ 1<br /> .如果真结束<br /> .如果真 (组合框1.现行选中项 ＝ 1)<br />     玩家结果 ＝ 2<br /> .如果真结束<br /> .如果真 (组合框1.现行选中项 ＝ 2)<br />     玩家结果 ＝ 3<br /> .如果真结束<br /> .如果 (玩家结果 ＝ 1 且 程序结果 ＝ 2)  ' 石头大于剪刀<br />     pk结果 ＝ “玩家获胜”<br /> .否则<br />     pk结果 ＝ “玩家失败”<br />     .如果 (玩家结果 ＝ 2 且 程序结果 ＝ 3)  ' 剪刀大于布<br />         pk结果 ＝ “玩家获胜”<br />     .否则<br />         pk结果 ＝ “玩家失败”<br />         .如果 (玩家结果 ＝ 3 且 程序结果 ＝ 1)  ' 玩家石头大于系统剪刀<br />             pk结果 ＝ “玩家获胜”<br />         .否则<br />             pk结果 ＝ “玩家失败”<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> .如果真 (玩家结果 ＝ 程序结果)<br />     pk结果 ＝ “平手”<br /> .如果真结束<br /> 标签4.标题 ＝ pk结果

真冬

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
程序结果	整数型
玩家结果	整数型

如果真 (组合框1.现行选中项 ≠ -1)
置随机数种子 ()
程序结果 ＝ 取随机数 (1, 3)
玩家结果 ＝ 组合框1.现行选中项 ＋ 1
标签3.标题 ＝ 多项选择 (程序结果, “石头”, “剪刀”, “布”)
标签4.标题 ＝ 多项选择 (玩家结果 － 程序结果 ＋ 3, “败”, “胜”, “平”, “败”, “胜”)  ' pk结果

.版本 2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 程序结果, 整数型<br /> .局部变量 玩家结果, 整数型<br /> <br /> .如果真 (组合框1.现行选中项 ≠ -1)<br />     置随机数种子 ()<br />     程序结果 ＝ 取随机数 (1, 3)<br />     玩家结果 ＝ 组合框1.现行选中项 ＋ 1<br />     标签3.标题 ＝ 多项选择 (程序结果, “石头”, “剪刀”, “布”)<br />     标签4.标题 ＝ 多项选择 (玩家结果 － 程序结果 ＋ 3, “败”, “胜”, “平”, “败”, “胜”)  ' pk结果<br /> .如果真结束

精简版

黑咖啡

感谢分享，很给力！~

胖子葛格

感谢大神分享~！

please

感谢分享，支持开源！！！

ajia0011

学习一下大佬的源码,太震撼了

王俞的瑜

如果真 (组合框1.现行选中项 ＝ 0)
玩家结果 ＝ 1
如果真 (组合框1.现行选中项 ＝ 1)

please

感谢分享，支持开源！！！

查过

已经顶贴，感谢您对论坛的支持！

豆豆灰常开心

全都是大佬~