Question

跪求易语言 石头剪子布游戏 的源码 要易语言写的 急求！！！ qq772995864@163.com marco90@126.com

发到我邮箱里 谢谢大家！！

收到马上给分 就30分了，全部给你！帮帮忙吧

Answer 1

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 计次, 整数型

.子程序 __启动窗口_创建完毕

计次 ＝ 5
标签1.可视 ＝ 真
时钟1.时钟周期 ＝ 500

.子程序 _时钟1_周期事件
.局部变量 结果, 整数型

计次 ＝ 计次 － 1
标签2.标题 ＝ 到文本 (计次)
输出调试文本 (计次)
.如果 (计次 ＝ 1)
计次 ＝ 5
时钟1.时钟周期 ＝ 0
.如果 (单选框1.选中 ＝ 假 且 单选框2.选中 ＝ 假 且 单选框3.选中 ＝ 假)
置随机数种子 ()
结果 ＝ 取随机数 (1, 3)
.如果真 (结果 ＝ 1)
单选框1.选中 ＝ 真
.如果真结束
.如果真 (结果 ＝ 2)
单选框2.选中 ＝ 真
.如果真结束
.如果真 (结果 ＝ 3)
单选框3.选中 ＝ 真
.如果真结束
对撞 ()

.否则
对撞 ()
.如果结束
标签1.可视 ＝ 假

.否则

.如果结束

.子程序 对撞
.局部变量 结果, 整数型
.局部变量 电脑出招, 整数型
.局部变量 我方出招, 整数型

画板1.可视 ＝ 真
画板2.可视 ＝ 真
置随机数种子 ()
结果 ＝ 取随机数 (1, 3)
.如果真 (结果 ＝ 1)
画板2.底图 ＝ #石头
电脑出招 ＝ 1
.如果真结束
.如果真 (结果 ＝ 2)
画板2.底图 ＝ #剪刀
电脑出招 ＝ 2
.如果真结束
.如果真 (结果 ＝ 3)
画板2.底图 ＝ #布
电脑出招 ＝ 3
.如果真结束

' ======我方出招
.如果真 (单选框1.选中 ＝ 真)
画板1.底图 ＝ #石头
我方出招 ＝ 1
.如果真结束
.如果真 (单选框2.选中 ＝ 真)
画板1.底图 ＝ #剪刀
我方出招 ＝ 2
.如果真结束
.如果真 (单选框3.选中 ＝ 真)
画板1.底图 ＝ #布
我方出招 ＝ 3
.如果真结束

标签1.可视 ＝ 真
.如果真 (我方出招 ＝ 1)
.如果真 (电脑出招 ＝ 1)
标签1.标题 ＝ “平”
.如果真结束
.如果真 (电脑出招 ＝ 2)
标签1.标题 ＝ “胜”
.如果真结束
.如果真 (电脑出招 ＝ 3)
标签1.标题 ＝ “败”
.如果真结束

.如果真结束
.如果真 (我方出招 ＝ 2)
.如果真 (电脑出招 ＝ 1)
标签1.标题 ＝ “败”
.如果真结束
.如果真 (电脑出招 ＝ 2)
标签1.标题 ＝ “平”
.如果真结束
.如果真 (电脑出招 ＝ 3)
标签1.标题 ＝ “胜”
.如果真结束

.如果真结束
.如果真 (我方出招 ＝ 3)
.如果真 (电脑出招 ＝ 1)
标签1.标题 ＝ “胜”
.如果真结束
.如果真 (电脑出招 ＝ 2)
标签1.标题 ＝ “败”
.如果真结束
.如果真 (电脑出招 ＝ 3)
标签1.标题 ＝ “平”
.如果真结束

.如果真结束

延迟 (1000)
画板1.可视 ＝ 假
画板2.可视 ＝ 假

__启动窗口_创建完毕 ()

.子程序 __启动窗口_将被销毁

结束 ()

加个图片资源表3个石头剪刀布
窗口部分加两个标签，三个单选框 两个画板 把标签清空 对了还有一个时钟
最后把单选框名字依次改为，（按单选框123）石头 剪刀 布

Answer 2

天.骄3，全新3D视野牛B

Answer 3

用判断语句写