用vb编一个吃豆子的游戏

来源：百度知道 编辑：UC知道 时间：2024/05/27 18:28:09
不要太难，就是刚学有个基本的模样就成，希望高手们帮帮忙啊，网上可以找到那种很精细的，不是我想要的。谢谢。
老师留的作业，自己搞不定。

Dim t As Integer

Private Sub Command1_Click()
Shape1.Left = Rnd * 100
Shape1.Top = Rnd * 50
Timer1.Enabled = True
t = 0
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
Shape1.Left = Shape1.Left - 1
Case 39
Shape1.Left = Shape1.Left + 1
Case 40
Shape1.Top = Shape1.Top - 1
Case 38
Shape1.Top = Shape1.Top + 1
End Select
End Sub

Private Sub Form_Load()
Form1.Height = 10000
Form1.Width = 10000
Form1.Scale (0, 50)-(100, -50)
For i = 1 To 50
Load Shape2(i)
Shape2(i).Visible = True
Next i
Shape1.Left = Rnd * 100
Shape1.Top = 0
End Sub

Private Sub Timer1_Timer()
t = t + 1
For i = 0 To 50
Shape2(i).Left = i * 100 / 51
Shape2(i).Top = 50 * Sin(6.24 / 51 * i + t * 3.14 / 180)
Next i
If t = 1000 Then t = 5