首页 综合精选正文

vb小游戏代码大全(vb小游戏源代码)

综合精选 2024-06-17 18:32:35
导读 Rem 窗体创建三个单选框按钮,OptionOption2、Option3 Private Sub Form_Activate() Option1.Caption = "石头" Option2.Caption...

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 "你输了!对方出的是石头哦!不好意思。

苹果给对方了哈!" 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。

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。

头条推荐

vb小游戏代码大全(vb小游戏源代码)

vb小游戏代码大全(vb小游戏源代码)

古代的大金国是现在什么地方(以前的大金国是什么国家)

古代的大金国是现在什么地方(以前的大金国是什么国家)

优酷怎么下载电影到手机本地(优酷怎么下载电影)

优酷怎么下载电影到手机本地(优酷怎么下载电影)

横店住宿酒店(横店住宿)

横店住宿酒店(横店住宿)

新加坡资本利得税(资本利得税)

新加坡资本利得税(资本利得税)

指导青年教师证明材料有哪些(指导青年教师证明材料)

指导青年教师证明材料有哪些(指导青年教师证明材料)

水杨酸反应属于什么反应(水杨酸反应)

水杨酸反应属于什么反应(水杨酸反应)

科技小报模板图片(科技小报)

科技小报模板图片(科技小报)

四川财经职业学院官网电话(四川财经职业学院官网)

四川财经职业学院官网电话(四川财经职业学院官网)

单人飞行器购买(单人飞行器专卖)

单人飞行器购买(单人飞行器专卖)

图文推荐

梭织面料有哪些种类名称(梭织面料的特点)

梭织面料有哪些种类名称(梭织面料的特点)

土金是什么字(土金念什么)

土金是什么字(土金念什么)

菊花花瓣的形状简笔画(菊花花瓣的形状)

菊花花瓣的形状简笔画(菊花花瓣的形状)

富兰克林效应是啥(富兰克林效应)

富兰克林效应是啥(富兰克林效应)

标配形容人什么意思(标配)

标配形容人什么意思(标配)