vb小游戏制作步骤和代码(vb小游戏源代码)
1、Rem 窗体创建三个单选框按钮,OptionOption2、Option3 Private Sub Form_Activate() Option1.Caption = "石头" Option2.Caption = "剪刀" Option3.Caption = "布" Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "对方也出石头!继续!" Case 1: MsgBox "哈哈!你赢了!对方出的是剪刀!奖励你一个苹果!" Case 2: MsgBox "你输了!对方出的是布哦!不好意思,苹果给对方了哈!" End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "你输了!对方出的是石头哦!不好意思。
2、苹果给对方了哈!" Case 1: MsgBox "对方也出剪刀!继续!" Case 2: MsgBox "哈哈!你赢了!对方出的是布!奖励你一个苹果!" End Select Option2.Value = False End Sub Private Sub Option3_Click() Randomize Select Case Int(3 * Rnd) Case 0: MsgBox "哈哈!你赢了!对方出的是石头!奖励你一个苹果!" Case 1: MsgBox "你输了!对方出的是剪刀哦!不好意思,苹果给对方了哈!" Case 2: MsgBox "对方也出布!继续!" End Select Option3.Value = False End Sub。
相关文章
- 氤氲的拼音
- 反之亦然是什么意思(反之亦然和反之亦反)
- 斌下面一个贝念什么,一个斌一个贝繁体
- 荣耀x 20没有nfc功能吗
- win7快速启动栏如何设置
- 微信怎么发语音红包?
- 活剥生吞(关于活剥生吞简述)
- 消费者,12315投诉平台
- 唐家三少的老婆(唐家三少又娶了谁)
- 四川建设厅证件查询电梯证(四川建设厅证件查询)
- 五台山寺庙五爷庙(五台山五爷庙灵验的事)
- dnf点券交易记录查询(dnf点券消费记录查询)
- cFO是什么职位(CFO是指什么职位)
- 水流量计算公式,每小时水流量计算公式
- 鲁冰花原唱dj(鲁冰花原唱)
- 饭圈bp是什么意思(饭圈是什么意思)
- 英文"好久不见"怎么说
- 韩红和管彤美国结婚是真的吗?卓伟罕见否认传闻
- 星海音乐学院全国排名是?教系怎么样,好不好考?
- 一个撇一个对勾是什么牌子