VB做的小游戏源代码。
创建一个文本文档，输入以下代码，将后缀改为。frm并在vb中打开它。
以下是程序源代码:
版本5.00
开始VB。表单表单1
BorderStyle = 3 '修复了对话框
Caption = "猜谜游戏"
客户端高度= 3900
客户端左侧= 45
ClientTop = 435
ClientWidth = 4680
LinkTopic = "Form1 "
MaxButton = 0 'False
MinButton = 0 'False
比例高度= 3900
缩放宽度= 4680
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口默认值
开始VB。命令按钮命令2
Caption = "重新开始"
高度= 615
左= 2640
TabIndex = 2
Top = 2760
宽度= 1095
结束
开始VB。命令按钮命令1
Caption = "好的"
高度= 615
左= 840
TabIndex = 1
Top = 2760
宽度= 1095
结束
开始VB。文本框文本1
身高= 375
左= 1200
TabIndex = 0
Top = 2040
宽度= 2055
结束
开始VB。标签Label9
Caption = "播放"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH000080FF & amp
高度= 615
左= 3720
TabIndex = 11
Top = 240
宽度= 615
结束
开始VB。标签Label8
Caption = "旅游"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH00808080 & amp
高度= 615
左= 3240
TabIndex = 10
Top = 240
宽度= 615
结束
开始VB。标签Label7
Caption = "数字"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH0000FFFF & amp
身高= 495
左= 2760
TabIndex = 9
Top = 240
宽度= 615
结束
开始VB。标签Label6
Caption = "猜猜"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH00FF00FF & amp
身高= 495
左= 2280
TabIndex = 8
Top = 240
宽度= 735
结束
开始VB。标签Label5
Caption = "输入"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH00FF0000 & amp
高度= 615
左= 1800
TabIndex = 7
Top = 240
宽度= 855
结束
开始VB。标签Label4
Caption = "金"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH0000FF00 & amp
身高= 735
左= 1320
TabIndex = 6
Top = 240
宽度= 735
结束
开始VB。标签Label3
Caption = "欢迎"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH00FFFF00 & amp
身高= 735
左= 840
TabIndex = 5
Top = 240
宽度= 735
结束
开始VB。标签Label2
Caption = "欢"
BeginProperty字体
Name = "ì"
尺寸= 24
Charset = 134
重量= 400
下划线= 0 '假
斜体= 0 '假
删除线= 0 'False
结束属性
ForeColor = & ampH000000FF & amp
高度= 615
向左= 360度
TabIndex = 4
Top = 240
宽度= 495
结束
开始VB。标签Label1
Caption = "我这里有一个从1到10的整数。猜猜这是什么……”
身高= 375
向左= 480度
TabIndex = 3
Top = 1320
宽度= 3855
结束
结束
属性VB_Name = "Form1 "
属性VB_GlobalNameSpace = False
属性VB_Creatable = False
属性VB_PredeclaredId = True
属性VB_Exposed = False
维度x为整数，y为整数，z为整数
Dim cishu作为整数
私有子命令1_Click()
如果cishu = 3那么MsgBox“已经被猜中三次，这个数就是“&；x:出口接头
y = Val(Text1。正文)
如果Text1。text = " " Or Not is numeric(text 1。文本)然后
“MsgBox”输入错误！请重新输入数字”，48
Text1。文本= " "
Text1。SetFocus
出口接头
如果…就会结束
cishu = cishu + 1
选择案例x - y
案例是& lt0
Z = MsgBox("你猜多了，请再猜一次。注:你只有三次机会”，48+1)
Text1。文本= " "
Text1。SetFocus
案例是& gt0
Z = MsgBox("你猜的小，请再猜一次。注:你只有三次机会”，48+1)
Text1。文本= " "
Text1。SetFocus
其他情况
Z = MsgBox("恭喜你猜对了！", 1)
结束选择
末端接头
私有子命令2_Click()
cishu = 0
随机化计时器
x = Int((Rnd * 10) + 1)
末端接头
私有子窗体_Load()
cishu = 0
随机化计时器
x = Int((Rnd * 10) + 1)
末端接头
代码结束
/卓7358/
欢迎来到我的空间