vb游戏源码（用VB写一个和电脑猜石头剪刀布的小游戏（要代码））

本文目录

• 用VB写一个和电脑猜石头剪刀布的小游戏（要代码）
• 如何用vb做一个水仙花数字的小游戏
• 如何设计一个很简单的VB程序小游戏
• 求vb代码，窗体上一个小球，到处滚，碰到边界就反弹回来

用VB写一个和电脑猜石头剪刀布的小游戏（要代码）

如你所说
1、建立三个按钮command1,command2,command3
2、建立两个标签label1,label2
3、复制代码，运行
Dim a As Long
Dim b As Long
Dim c As Long
Dim e As Long
Private Sub Command1_Click()
c = 1
Call check(c)
End Sub
Private Sub Command2_Click()
c = 2
Call check(c)
End Sub
Private Sub Command3_Click()
c = 3
Call check(c)
End Sub
Private Sub Form_Load()
Command1.Caption = "石头"
Command2.Caption = "剪刀"
Command3.Caption = "布"
Label1.Caption = ""
a = 0
b = 0
e = 0
Call printt(a, b, e, 0)
End Sub
Sub check(temp As Long)
Dim d As Long
Randomize
d = Int(Rnd * 3 + 1)
If d = temp Then
e = e + 1
Call printt(a, b, e, d)
Else
Select Case d
Case 1
If temp = 2 Then
a = a + 1
Call printt(a, b, e, d)
ElseIf temp = 3 Then
b = b + 1
Call printt(a, b, e, d)
End If
Case 2
If temp = 1 Then
b = b + 1
Call printt(a, b, e, d)
ElseIf temp = 3 Then
a = a + 1
Call printt(a, b, e, d)
End If
Case 3
If temp = 1 Then
a = a + 1
Call printt(a, b, e, d)
ElseIf temp = 2 Then
b = b + 1
Call printt(a, b, e, d)
End If
End Select
End If
End Sub
Sub printt(temp1 As Long, temp2 As Long, temp3 As Long, temp4 As Long)
Label2.Caption = "电脑赢" & temp1 & "次，" & "你赢" & temp2 & "次，" & "平局" & temp3 & "次。"
Select Case temp4
Case 1
Label1.Caption = "石头"
Case 2
Label1.Caption = "剪刀"
Case 3
Label1.Caption = "布"
Case 0
Label1.Caption = "电脑还未出"
End Select
End Sub

如何用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 ^ 3 Thenn = n + 1If (n Mod 5) = 0 Then

Print a & b & cElsePrint a & b & c,End IfEnd IfNext cNext bNext aPrint Chr(13) & Chr(13) & "三位数中水仙花数个数为" &n。最后运行这样就完成了。

如何设计一个很简单的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.Left
《
Image2.Left
+
Image2.Width
Then
If
Image1.Top
+
Image1.Height
》
Image2.Top
Then
If
Image1.Top
《
Image2.Top
+
Image2.Height
Then
MsgBox
"坦克碰到地雷，已经被炸毁了"
End
If
End
If
End
If
End
If
End
Sub

求vb代码，窗体上一个小球，到处滚，碰到边界就反弹回来

我写来的游戏，全部源代码：

Dim vx As Integer, vy As Integer

Dim tm As Integer

Dim fs As Integer

Private Sub Command1_Click()

If Timer1.Enabled = False Then

Timer1.Enabled = True

If Shape2.Top 》 Picture1.Height Then

Dim x As Integer

x = 0

Shape1.Left = Picture1.Width / 2 - Shape1.Width / 2

Shape1.Top = Picture1.Height - 300

Shape2.Left = Picture1.Width / 2 - Shape2.Width / 2

Shape2.Top = Picture1.Height - Shape1.Height - Shape1.Height - 50

vx = 30

vy = 30

’Label1(0).Visible = False

’For i = 1 To 90 Step 2

’Unload Label1(i)

’Next i

’For i = 1 To 90 Step 2

’Load Label1(i)

’Label1(i).Visible = True

’Label1(i).Caption = ""

’Label1(i).Left = 375 * ((i - 1) Mod 15)

’Label1(i).Top = 135 * x

’ If i Mod 15 = 0 Or i Mod 15 = 14 Then

’   x = x + 1

 ’End If

’Next i

End If

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Label2.Caption = "还剩" & 3 & "盘"

Label1(0).Visible = False

Shape1.Left = Picture1.Width / 2 - Shape1.Width / 2

Shape1.Top = Picture1.Height - 300

Shape2.Left = Picture1.Width / 2 - Shape2.Width / 2

Shape2.Top = Picture1.Height - Shape1.Height - Shape1.Height - 50

vx = 30

vy = 30

Call rnk1

Label4.Caption = "第1关"

End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 37 Then

If Shape1.Left 》 0 Then

Shape1.Left = Shape1.Left - 50

End If

ElseIf KeyCode = 39 Then

If Shape1.Left 《 Picture1.Width - Shape1.Width Then

Shape1.Left = Shape1.Left + 50

End If

End If

End Sub

Private Sub Timer1_Timer()

Shape2.Left = Shape2.Left + vx

Shape2.Top = Shape2.Top - vy

If Shape2.Left 》 Picture1.Width - Shape2.Width Then vx = -vx

If Shape2.Top 《 0 Then vy = -vy ’Picture1.Height - 500 Then

If Shape2.Left 《 0 Then vx = -vx ’Picture1.Left Then vx = -vx

If Shape2.Top 》 Picture1.Height - Shape1.Height - Shape2.Height And Shape2.Top 《 Picture1.Height - Shape1.Height - Shape2.Height + 100 Then

 If Shape2.Left 》 Shape1.Left And Shape2.Left 《 Shape1.Left + Shape1.Width Then

  vy = -vy

  Else

  vx = vy

  End If

  End If

  If Shape2.Top 》= Picture1.Height Then

   Timer1.Enabled = False

      tm = tm + 1

      Label2.Caption = "还剩" & 3 - tm & "盘"

     If tm = 3 Then

        MsgBox "Game Over!", vbOKOnly, "游戏结束"

        Command1.Enabled = False

     End If

  End If

  For i = 1 To 90

  If Label1(i).Visible = True Then

    If Shape2.Left 》 Label1(i).Left - Shape2.Width And Shape2.Left 《 Label1(i).Left + Label1(i).Width Then

     If Shape2.Top 《= Label1(i).Top + Label1(i).Height Then

     If Label1(i).Visible = True Then

      vy = -vy

      fs = fs + 1

      Label3.Caption = fs & "分"

      For j = 1 To 90

         If Label1(j).Visible = True Then

            GoTo xx ’Exit For

         Else

         If j = 90 Then

           x = x + 1

            Label4.Caption = "第" & Str(x + 1) & "关"

           If x = 2 Then

             Call rnk2

            Shape1.Left = Picture1.Width / 2 - Shape1.Width / 2

            Shape1.Top = Picture1.Height - 300

            Shape2.Left = Picture1.Width / 2 - Shape2.Width / 2

            Shape2.Top = Picture1.Height - Shape1.Height - Shape1.Height - 50

           Timer1.Enabled = False

           ElseIf x = 3 Then

             Call rnk3

              Shape1.Left = Picture1.Width / 2 - Shape1.Width / 2

            Shape1.Top = Picture1.Height - 300

            Shape2.Left = Picture1.Width / 2 - Shape2.Width / 2

            Shape2.Top = Picture1.Height - Shape1.Height - Shape1.Height - 50

           Timer1.Enabled = False

           End If

        End If

      End If

xx:

      Next j

     End If

     Label1(i).Visible = False

     ’Unload Label1(i)

     Exit For

     End If

     End If

     End If

     Next i

End Sub

module1：

Dim x As Integer

Public Sub rnk1()

For i = 1 To 90

On Error Resume Next

Unload form1.Label1(i)

Next i

x = 0

For i = 1 To 90

Load form1.Label1(i)

If i Mod 2 = 0 Then

 form1.Label1(i).Visible = False

 Else

form1.Label1(i).Visible = True

form1.Label1(i).BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

form1.Label1(i).Caption = ""

form1.Label1(i).Left = 375 * ((i - 1) Mod 15)

form1.Label1(i).Top = 135 * x

 If i Mod 15 = 0 Or i Mod 15 = 14 Then

   x = x + 1

 End If

End If

Next i

End Sub

Public Sub rnk2()

Dim x As Integer, i As Integer

For i = 1 To 90

Load form1.Label1(i)

 If i \ 15 》 3 Then

  x = 5 - i \ 15

  Else

  x = i \ 15

  End If

If i Mod 15 《= 2 * x + 1 Or i Mod 15 》= 15 - 2 * x + 1 Then

’If i 》 2 Or i = 1 Then

 form1.Label1(i).Visible = False

 Else

 form1.Label1(i).Visible = True

form1.Label1(i).BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

form1.Label1(i).Caption = ""

form1.Label1(i).Left = 375 * ((i - 1) Mod 15)

form1.Label1(i).Top = 135 * (i \ 15)

 If i Mod 15 = 0 Or i Mod 15 = 14 Then

   x = x + 1

 End If

 End If

 Next i

End Sub

Public Sub rnk3()

’

End Sub