如何用易语言做一个随机抽牌程序？

如何用易语言做一个随机抽牌程序？

.版本 2.程序集 窗口程序集1

.程序集变量 p, 整数型, , "2"

.程序集变量 hs, 整数型, , "2".子程序 __启动窗口_创建完毕 .子程序 _按钮1_被单击标签1.标题 ＝ “”

标签2.标题 ＝ “”

p ＝ 取随机数 (1, 13)

p ＝ 取随机数 (1, 13)

hs ＝ 取随机数 (1, 4)

hs ＝ 取随机数 (1, 4)

标签1.标题 ＝ “花色” ＋ 到文本 (hs ) ＋ “牌面” ＋ 到文本 (p )

标签2.标题 ＝ “花色” ＋ 到文本 (hs ) ＋ “牌面” ＋ 到文本 (p )

.子程序 _按钮2_被单击.如果 (取随机数 (1, 2) ＝ 1)

标签3.标题 ＝ 标签1.标题

.否则

标签3.标题 ＝ 标签2.标题

.如果结束