vb游戏代码大全

一、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。

二、vb小游戏源代码

Rem窗体创建三个单选框按钮，Option1、Option2、Option3。

小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。

当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩*强，无依赖*而广受白领及小朋友的喜爱。

小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。

小游戏是原始的游戏**方式，小游戏本身是为了叫人们在工作，学习后的一种**、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。

小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash编程语言 Flash ActionScript制作而成。

由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。

三、VB制作小游戏源代码

建一个文本文档，输入以下代码，后缀改为.frm用vb打开就可以了

BorderStyle= 3'Fixed Dialog

StartUpPosition= 3'窗口缺省

Begin VB.CommandButton Command2

Begin VB.CommandButton Command1

Caption="我这儿有1~10的整数，你猜猜看他是多少......"

Attribute VB_GlobalNameSpace= False

Attribute VB_PredeclaredId= True

Dim x As Integer, y As Integer, z As Integer

If cishu= 3 Then MsgBox"已经猜3次了，这个数是"& x: Exit Sub

If Text1.Text="" Or Not IsNumeric(Text1.Text) Then

MsgBox"输入有误！请重新输入数字", 48

z= MsgBox("你猜数大了，请重猜。注意：你只有三次机会", 48+ 1)

z= MsgBox("你猜数小了，请重猜。注意：你只有三次机会", 48+ 1)

z= MsgBox("恭喜你猜中了！", 1)