用vb编程编一个小游戏

[用Excel编程怎么编]Excel没有现成的功能，要使用到宏，用ALT+F8调出宏窗口，在宏名称里输入＂Comp＂，点创建，在新出现的窗口中输入下面代码。 Sub Comp() ' Comp Macro ' Ghostidea 记录的宏 2006-5-9 Dim...+阅读

用vb编程编一个小游戏

'窗体添加label1控件，将index属性设置为0，使成为控件数组，再添加timer1控件

Option Explicit

Private Declare Function GetAsyncKeyState Lib ＂user32＂ (ByVal vKey As Long) As Integer

Dim m As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)

Dim j As Integer

If KeyAscii = 13 Then

Timer1.Enabled = True

ElseIf KeyAscii = 27 Then 'ESC暂停

Timer1.Enabled = False

ElseIf Timer1.Enabled = True Then

For j = 0 To 9

If Label1(j).Caption = UCase(Chr(KeyAscii)) Then

m = m + 1

If m = 30 Then Me.Caption = ＂第1级＂

If m = 60 Then Me.Caption = ＂第2级＂

If m = 90 Then Me.Caption = ＂第3级＂

Label1(j).Top = 0

Exit For

End If

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 9

Load Label1(i)

Label1(i).Visible = True

For i = 0 To 9

Label1(i).Top = 0

Timer1.Enabled = False

Timer1.Interval = 100

Label1(0).Caption = ＂按回车开始游戏＂

Me.Caption = ＂第0级＂

End Sub

Private Sub Timer1_Timer()

Static n As Integer

Dim i As Integer

If n = 10 Then

MsgBox ＂游戏结束＂

Timer1.Enabled = False

End If

For i = 0 To 9

If Label1(i).Top > Form1.Height Then

Label1(i).Top = 0

Randomize

Label1(i).Caption = Chr(Int(Rnd * 26 + 65))

n = n + 1

ElseIf Label1(i).Top = 0 Then

Randomize

Label1(i).Caption = Chr(Int(Rnd * 26 + 65))

Label1(i).Top = Label1(i).Top + 100

Else

Label1(i).Top = Label1(i).Top + 100

End If

End Sub

如何设计一个很简单的VB程序小游戏

利用vb控件做个坦克大战类的游戏即可，炮弹和坦克都用控件实现就行。唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断。给你一个简单实现代码这是一种碰撞检测方法，下述属于简化的矩形碰撞检测，若是需要复杂碰撞可以用一个数组来记录大量需要碰撞检测的物体 image1里读入坦克的图片 image2里读入地雷的图片然后用下面代码即可实现 Private Sub Form_KeyPress(KeyAscii As Integer) '按键盘A和D键控制猫图片image1左右移动 If KeyAscii = 97 Then Image1.Left = Image1.Left - 10 If KeyAscii = 100 Then Image1.Left = Image1.Left + 10 '如果坦克图片与地雷图片相遇则提示碰撞到了 If Image1.Left + Image1.Width >Image2.Left Then If Image1.LeftImage2.Top Then If Image1.Top

用VB语言编写一个猜数字的游戏

首先说一说猜数字这个游戏的玩法，一开始计算机会随机产生一个不重复的四位数，你要输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是1A，如果数字相同而位置相不同，将会显示1B。例如：计算机的随机数字为：1234 ，我猜的数字为：1356 ，那么这时计算机会给你提示为：1A1B，也就是32313133353236313431303231363533e59b9ee7ad9431333234323730说，你猜的数字中，有一位数字是猜对的，而且数字位置都对，所以显示为1A；还有一个数字也猜对了，但是位置不对，所以显示为1B。就这些了，看谁猜的次数少。首先在Form中加入一个CommandButtion控件，在Command1上点击鼠标右键，选择复制，在窗体上点击鼠标右键，选择粘贴在窗体上粘贴出九个Command1，此时出现对话框问你要不要创建控件数组，在此选择是。然后再加入两个CommandButtion控件，一个ListBox、一个Frame、一个Label 。设置窗体的Caption属性为“猜一猜”、BorderStyle为1-Fixed Single、控件数组的Captin分别为0、

1、

2、

3、

4、

5、

6、

7、

8、9,Command2的Caption为“确定＂，Command3的Caption为“取消＂，Frame1的Caption为“提示：＂，Label1的Cpation为“0A0B＂。然后选择菜单编辑器编辑菜单为：游戏、新游戏、显示答案、结束游戏，她们的Name属性分别为：Game、New、View、End。好了，其余属性使用缺省的即可，最后的界面应跟下图一样：以下是程序清单： Dim PcA, PcB, PcC, PcD As Integer '电脑给出的每一位数 Dim UserA, UserB, UserC, UserD As Integer '用户输入的每一位数 Dim Degree As Integer '用户猜了几次 Dim Num As Integer '判断用户输入次数的变量 Private Sub Form_Load（) '程序运行行时 '初始化 For i = 0 To 9 Command1(i).Enabled = False Next i Command2.Enabled = False Command3.Enabled = False View.Enabled = False End Sub Private Sub New_Click（) '开始一个新游戏时 View.Enabled = True '可以看答案 List1.Clear '清空列表框 Degree = 0 ' 对随机数生成器做初始化 Randomize Num = 1 Label1.Caption = 0 & “A＂ & 0 & “B＂ '电脑给出的每一位数 PcA = Int(9 * Rnd) Do PcB = Int(9 * Rnd) Loop While PcB = PcA Do PcC = Int(9 * Rnd) Loop While PcC = PcA Or PcC = PcB Do PcD = Int(9 * Rnd) Loop While PcD = PcA Or PcD = PcB Or PcD = PcC For i = 0 To 9 Command1(i).Enabled = True Next i Command2.Enabled = False Command3.Enabled = True End Sub Private Sub Command1_Click(Index As Integer) '用户输入时 '使得输入过的按钮无效 If Num