檬味博客 » 问答 » vb游戏代码大全vb小游戏源代码

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 Sel...
vb游戏代码大全vb小游戏源代码
关于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。2024-04-11
mengvlog 阅读 130 次 更新于 2025-09-10 13:22:44 我来答关注问题0
1 个回答檬味博客专题活动
  • 云易网络科技 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 Sel...

  • 卓7358 VB制作小游戏源代码

    Begin VB.CommandButton Command2 Caption = "重新开始"Height = 615 Left = 2640 TabIndex = 2 Top = 2760 Width = 1095 End Begin VB.CommandButton Command1 Caption = "确定"Height = 615 Left = 840 TabIndex = 1 Top =...

  • 游戏放松小助手 如何用vb做一个小游戏

    1、首先双击桌面图标启动 visual basic 6.0。2、然后新建工程，选择标准EXE。3、选择完工程后，点击打开，就可以新建一个exe工程了。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click() 事件中。5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^...

  • QQ_405893741 求一个VB小游戏编程,要有代码的。。

    贪吃蛇 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As Long If KeyCode = 27 Then End If KeyCode = 32 Then If Timer1.Enabled = True Then Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True Label1.Visible = False End If End If ...

  • 玫瑰为你盛开 vb小游戏源代码

    Rem 窗体创建三个单选框按钮，Option1、Option2、Option3。小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。当下小游戏主要是指在线玩的flash版本游戏，统称...

其他代码类似问题

檬味博客在线解答立即免费咨询

代码相关话题

Copyright © 2023 WWW.MENGVLOG.COM - 檬味博客
返回顶部