UC知道vb 小游戏
来源：百度知道 编辑：UC知道 时间：2024/06/21 06:29:14
游戏就是大富翁中的那个接金币！
概述
“大富翁”是一种相当流行的游戏，老少皆宜。阿土伯自从离开农村来到城里，先是打工，做小生意，后是经商，渐渐地发了。后来又做房地产、做股票、玩起了博彩，好运连连。最近又有一桩好事：接天上掉下来的金币。
天上掉下来的金币种类很多，有1元、2元、5元、10元等金币，而天上掉下金币的时间是有限的，必须分秒必争。于是阿土伯拿起布袋，来到一条路上等待金币掉下来。金币以随机方式、以一定的速度掉下来，阿土伯在路上左右跑动，用布袋接金币。
当天上掉金币的时间结束时，游戏结束。此时，阿土伯布袋中的金币总数作为计分依据。
基本要求
能完成概述中的基本功能。
阿土伯的移动用←、→键。移动时，只能水平方向左右移动，移动速度不限。
主界面为窗口界面，包含菜单栏。菜单中至少要有“运行”菜单，含“run”命令、“stop”命令；“帮助”菜单，含“Help” 命令、“About” 命令。Help内容是操作说明，About内容是开发者的姓名、学号、日期等。（见有关要求的说明。）
记时、显示所得的金币数和运行的时间。.
设置“暂停”和“恢复”功能。
有哪位大虾做过的差不多的游戏请 发我邮箱:qpzmqpzm41@163.com
好的再追加分数
概述
“大富翁”是一种相当流行的游戏，老少皆宜。阿土伯自从离开农村来到城里，先是打工，做小生意，后是经商，渐渐地发了。后来又做房地产、做股票、玩起了博彩，好运连连。最近又有一桩好事：接天上掉下来的金币。
天上掉下来的金币种类很多，有1元、2元、5元、10元等金币，而天上掉下金币的时间是有限的，必须分秒必争。于是阿土伯拿起布袋，来到一条路上等待金币掉下来。金币以随机方式、以一定的速度掉下来，阿土伯在路上左右跑动，用布袋接金币。
当天上掉金币的时间结束时，游戏结束。此时，阿土伯布袋中的金币总数作为计分依据。
基本要求
能完成概述中的基本功能。
阿土伯的移动用←、→键。移动时，只能水平方向左右移动，移动速度不限。
主界面为窗口界面，包含菜单栏。菜单中至少要有“运行”菜单，含“run”命令、“stop”命令；“帮助”菜单，含“Help” 命令、“About” 命令。Help内容是操作说明，About内容是开发者的姓名、学号、日期等。（见有关要求的说明。）
记时、显示所得的金币数和运行的时间。.
设置“暂停”和“恢复”功能。
有哪位大虾做过的差不多的游戏请 发我邮箱:qpzmqpzm41@163.com
好的再追加分数
自己做好啦
vb小游戏，今天才知道，不过不大懂，13年前，好像老了点，当时我还没玩过游戏呢！
很久以前的游戏喽 怀念中- -
2144小游戏：www.xiaoyouxi-2144.cn
没懂
我这里有个小型的闯关游戏，以下是代码
Dim t, l, m, k#
Private Sub Combo1_click()
k = Val(Combo1.Text)
Timer1.Interval = 500 / k
End Sub
Private Sub Command1_Click()
Form1.KeyPreview = True
Picture1.Visible = True
Picture1.Left = 0
Picture1.Top = 0
m = 3
Picture7.Visible = True
Text1.Text = m
End Sub
Private Sub Command2_Click()
Form2.Show
Form1.Hide
End Sub
Sub Form_Keypress(Keyascii As Integer)
t = Picture1.Top
l = Picture1.Left
If Keyascii = Asc("w") Then
t = t - 1000
ElseIf Keyascii = Asc("s") Then
t = t + 1000
ElseIf Keyascii = Asc(&qu