用vb6.0做一个小游戏 我想用VB6.0做一个小游戏(俄罗斯方块即可）。哪位高手能提...
\u7528Vb\u505a\u4e00\u4e2a\u5c0f\u6e38\u620f'\u5b9a\u4e49\u86c7\u7684\u8fd0\u52a8\u901f\u5ea6\u679a\u4e3e\u503c
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'\u5b9a\u4e49\u86c7\u7684\u8fd0\u52a8\u65b9\u5411\u679a\u4e3e\u503c
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'\u5b9a\u4e49\u8fd0\u52a8\u533a\u57df4\u4e2a\u7981\u533a\u7684\u679a\u4e3e\u503c
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'\u5b9a\u4e49\u86c7\u5934\u53ca\u8eab\u4f53\u521d\u59cb\u5316\u6570\u679a\u4e3e\u503c
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'\u5b9a\u4e49\u86c7\u5bbd\u5ea6\u7684\u5e38\u91cf
Private Const SNAKEWIDTH As Integer = 100
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u663e\u793a\u6e38\u620f\u4fe1\u606f
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS\u8d2a\u98df\u86c7 \u2014 (\u7248\u672c " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u4f7f\u7a97\u4f53\u6062\u590d\u539f\u59cb\u5927\u5c0f
Private Sub Form_Resize()
If Me.WindowState 1 Then
Me.Caption = ""
Me.Height = 6405 '\u7a97\u4f53\u9ad8\u5ea6\u4e3a 6405 \u7f07
Me.Width = 8535 '\u7a97\u4f53\u5bbd\u5ea6\u4e3a 8535 \u7f07
Me.Left = (Screen.Width - Width) \ 2
Me.Top = (Screen.Height - Height) \ 2
End If
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u91cd\u65b0\u5f00\u59cb\u5f00\u59cb\u6e38\u620f
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("\u60a8\u786e\u8ba4\u8981\u91cd\u65b0\u5f00\u59cb\u6e38\u620f\u5417\uff1f", 4 + 32, "BS\u8d2a\u98df\u86c7")
If msg = 6 Then Call m_subGameInitialize
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u6682\u505c/\u8fd0\u884c\u6e38\u620f
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "\u6682\u505c\u6e38\u620f(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "\u7ee7\u7eed\u6e38\u620f(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "\u6682\u505c\u6e38\u620f(&P)"
End If
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u663e\u793a\u6e38\u620f\u89c4\u5219
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS\u8d2a\u98df\u86c7\uff1a\u4e00\u4e2a\u89c4\u5219\u6700\u7b80\u5355\u7684\u8da3\u5473\u6e38\u620f\uff0c\u60a8\u5c06\u7528\u952e\u76d8" & Chr(13) & _
"\u4e0a\u76844\u4e2a\u65b9\u5411\u952e\u6765\u63a7\u5236\u86c7\u7684\u8fd0\u52a8\u65b9\u5411\u3002\u5728\u8fd0\u52a8\u8fc7\u7a0b\u4e2d\u86c7" & Chr(13) & _
"\u4e0d\u80fd\u540e\u9000\uff0c\u86c7\u7684\u5934\u90e8\u4e5f\u4e0d\u80fd\u63a5\u89e6\u5230\u8fd0\u52a8\u533a\u57df\u7684\u8fb9\u7ebf\u4ee5\u5916" & Chr(13) & _
"\u548c\u86c7\u81ea\u5df1\u7684\u8eab\u4f53\uff0c\u5426\u5219\u5c31\u6e38\u620f\u5931\u8d25\u3002\u5728\u5403\u6389\u968f\u673a\u51fa\u73b0\u7684" & Chr(13) & _
"\u679c\u5b50\u540e\uff0c\u86c7\u7684\u8eab\u4f53\u4f1a\u53d8\u957f\uff0c\u8d8a\u957f\u96be\u5ea6\u8d8a\u5927\u3002\u795d\u60a8\u597d\u8fd0\uff01\uff01", 0 + 64, "\u6e38\u620f\u89c4\u5219"
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u663e\u793a\u6e38\u620f\u5f00\u53d1\u4fe1\u606f
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS\u8d2a\u98df\u86c7" & "(V-" & App.Major & "." & App.Minor & "\u7248\u672c)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"\u7531PigheadPrince\u8bbe\u8ba1\u5236\u4f5c" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "\u5173\u4e8e\u672c\u6e38\u620f"
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u9000\u51fa\u6e38\u620f
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("\u60a8\u8981\u9000\u51fa\u672c\u6e38\u620f\u5417\uff1f", 4 + 32, "BS\u8d2a\u98df\u86c7")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u62d6\u52a8\u7a97\u4f53_(\u70b9\u51fb\u56fe\u6807)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
'\u8be5\u5171\u7528\u8fc7\u7a0b\u7528\u4e8e\u5904\u7406\u7a97\u4f53\u63a7\u5236\u6309\u94ae\u7ec4\u7684\u76f8\u5173\u64cd\u4f5c_(\u9501\u5b9a\u3001\u6700\u5c0f\u5316\u3001\u9000\u51fa)
Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button 1 Then Exit Sub
Select Case Index
Case 0 '\u9501\u5b9a\u7a97\u4f53
If Me.chkWindowButton(0).Value = 1 Then
Me.imgWindowTop.BorderStyle = 0
Me.imgWindowTop.Enabled = False
Else
Me.imgWindowTop.BorderStyle = 1
Me.imgWindowTop.Enabled = True
End If
Case 1 '\u6700\u5c0f\u5316
Me.WindowState = 1
Me.chkWindowButton(1).Value = 0
Me.Caption = "BS\u8d2a\u98df\u86c7 \u2014 (V-" & App.Major & "." & App.Minor & "\u7248\u672c)"
Case 2 '\u9000\u51fa
Beep
msg = MsgBox("\u60a8\u8981\u9000\u51fa\u672c\u6e38\u620f\u5417\uff1f", 4 + 32, "BS\u8d2a\u98df\u86c7")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Select
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u8bbe\u7f6e\u86c7\u8fd0\u52a8\u901f\u5ea6\u7684\u5feb\u6162
Private Sub hsbGameSpeed_Change()
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
End Sub
'\u8be5\u8fc7\u7a0b\u7528\u4e8e\u901a\u8fc7\u952e\u76d8\u7684\u65b9\u5411\u952e\u6539\u53d8\u86c7\u7684\u8fd0\u52a8\u65b9\u5411
Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case g_intDirection
Case D_UP
If KeyCode = D_DOWN Then Exit Sub
Case D_DOWN
If KeyCode = D_UP Then Exit Sub
Case D_LEFT
If KeyCode = D_RIGHT Then Exit Sub
Case D_RIGHT
If KeyCode = D_LEFT Then Exit Sub
End Select
g_intDirection = KeyCode
End Sub
'\u8be5\u8ba1\u65f6\u5faa\u73af\u8fc7\u7a0b\u7528\u4e8e\u8ba1\u7b97\u6e38\u620f\u8017\u8d39\u7684\u79d2\u6570\u5e76\u663e\u793a
Private Sub tmrGameTime_Timer()
g_lngGameTime = g_lngGameTime + 1
Me.lblGameTime.Caption = g_lngGameTime & "\u79d2"
End Sub
'\u8be5\u8ba1\u65f6\u5faa\u73af\u8fc7\u7a0b\u7528\u4e8e\u63a7\u5236\u86c7\u7684\u884c\u52a8\u8f68\u8ff9
Private Sub tmrSnakeMove_Timer()
Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
Randomize
Me.picMoveArea.SetFocus
Me.picMoveArea.Cls
'\u786e\u8ba4\u86c7\u5934\u7684\u8fd0\u52a8\u65b9\u5411\u5e76\u83b7\u53d6\u65b0\u7684\u4f4d\u7f6e
Select Case g_intDirection
Case D_UP '\u5411\u4e0a\u8fd0\u52a8
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTH
Case D_DOWN '\u5411\u4e0b\u8fd0\u52a8
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTH
Case D_LEFT '\u5411\u5de6\u8fd0\u52a8
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
Case D_RIGHT '\u5411\u53f3\u8fd0\u52a8
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
End Select
'\u6839\u636e\u65b0\u7684\u4f4d\u7f6e\u7ed8\u5236\u86c7\u5934
lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurX
lngSnakeY = g_udtSnake(SNAKEONE).Snake_CurY
lngSnakeColor = g_udtSnake(SNAKEONE).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
'\u79fb\u52a8\u86c7\u8eab\u4f53\u5176\u4ed6\u90e8\u5206\u7684\u4f4d\u7f6e
For i = 2 To g_intSnakeLength
g_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldX
g_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldY
lngSnakeX = g_udtSnake(i).Snake_CurX
lngSnakeY = g_udtSnake(i).Snake_CurY
lngSnakeColor = g_udtSnake(i).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
Next i
'\u66f4\u65b0\u86c7\u65e7\u7684\u5750\u6807\u4f4d\u7f6e
For j = 1 To g_intSnakeLength
g_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurX
g_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurY
Next j
'\u5224\u65ad\u86c7\u5728\u79fb\u52a8\u4e2d\u662f\u5426\u5230\u4e86\u7981\u533a\u800c\u5bfc\u81f4\u6e38\u620f\u5931\u8d25
If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "\u60a8\u7684\u86c7\u79fb\u52a8\u5230\u4e86\u7981\u533a\uff0c\u6e38\u620f\u5931\u8d25\uff01", 0 + 16, "BS\u8d2a\u98df\u86c7"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'\u5224\u65ad\u86c7\u5728\u79fb\u52a8\u4e2d\u662f\u5426\u78b0\u5230\u4e86\u81ea\u5df1\u7684\u8eab\u4f53\u800c\u5bfc\u81f4\u6e38\u620f\u5931\u8d25
If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "\u60a8\u7684\u86c7\u5728\u79fb\u52a8\u4e2d\u78b0\u5230\u4e86\u81ea\u5df1\u7684\u8eab\u4f53\uff0c\u6e38\u620f\u5931\u8d25\uff01", 0 + 16, "BS\u8d2a\u98df\u86c7"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'\u5224\u65ad\u86c7\u662f\u5426\u5403\u5230\u4e86\u679c\u5b50
If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
'\u7d2f\u52a0\u73a9\u5bb6\u7684\u5f97\u5206\u5e76\u5237\u65b0\u5f97\u5206\u663e\u793a
g_intPlayerScore = g_intPlayerScore + 1
Me.lblYourScore.Caption = g_intPlayerScore & "\u5206"
Call m_subAddSnake '\u52a0\u957f\u86c7\u7684\u8eab\u4f53
Call m_subGetPoint '\u83b7\u53d6\u4e0b\u4e00\u4e2a\u679c\u5b50\u7684\u4f4d\u7f6e\u548c\u989c\u8272
Else
'\u7ed8\u5236\u679c\u5b50
lngPointX = g_udtPoint.Point_X
lngPointY = g_udtPoint.Point_Y
lngPointColor = g_udtPoint.Point_Color
Me.picMoveArea.PSet (lngPointX, lngPointY), lngPointColor
End If
End Sub
'\u8be5\u79c1\u6709\u5b50\u8fc7\u7a0b\u7528\u4e8e\u521d\u59cb\u5316\u6e38\u620f
Private Sub m_subGameInitialize()
Erase g_udtSnake '\u6e05\u7a7a\u86c7\u7684\u7ed3\u6784\u6570\u7ec4
g_intPlayerScore = 0 '\u6e05\u7a7a\u73a9\u5bb6\u7684\u5f97\u5206
g_lngGameTime = 0 '\u6e05\u7a7a\u6e38\u620f\u8017\u8d39\u7684\u79d2\u6570
g_intDirection = D_DOWN '\u8bbe\u5b9a\u86c7\u7684\u521d\u59cb\u8fd0\u52a8\u65b9\u5411\u4e3a\u4e0b
g_intSnakeLength = 4 '\u8bbe\u5b9a\u86c7\u7684\u521d\u59cb\u957f\u5ea6
ReDim g_udtSnake(1 To g_intSnakeLength) '\u91cd\u65b0\u5b9a\u4e49\u86c7\u7684\u957f\u5ea6
'\u5b9a\u4e49\u86c7\u5934\u90e8\u7684\u6570\u636e
With g_udtSnake(SNAKEONE)
.Snake_OldX = 530
.Snake_OldY = 530
.Snake_Color = vbBlack
End With
'\u5b9a\u4e49\u86c7\u8eab\u7b2c2\u8282\u7684\u6570\u636e
With g_udtSnake(SNAKETWO)
.Snake_OldX = 530
.Snake_OldY = 430
.Snake_Color = vbGreen
End With
'\u5b9a\u4e49\u86c7\u8eab\u7b2c3\u8282\u7684\u6570\u636e
With g_udtSnake(SNAKETHREE)
.Snake_OldX = 530
.Snake_OldY = 330
.Snake_Color = vbYellow
End With
'\u5b9a\u4e49\u86c7\u8eab\u7b2c4\u8282\u7684\u6570\u636e
With g_udtSnake(SNAKEFOUR)
.Snake_OldX = 530
.Snake_OldY = 230
.Snake_Color = vbRed
End With
Me.picMoveArea.Visible = True
Me.lblYourScore.Caption = g_intPlayerScore & "\u5206"
Me.lblGameTime.Caption = g_lngGameTime & "\u79d2"
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Call m_subGetPoint '\u83b7\u53d6\u7b2c\u4e00\u4e2a\u679c\u5b50\u7684\u4f4d\u7f6e\u548c\u989c\u8272
End Sub
'\u8be5\u79c1\u6709\u5b50\u8fc7\u7a0b\u7528\u4e8e\u8fd4\u56de\u83b7\u53d6\u7684\u679c\u5b50\u7684\u4f4d\u7f6e\u548c\u989c\u8272\u4fe1\u606f
Private Sub m_subGetPoint()
Dim lngRedValue As Long, lngGreenValue As Long, lngBlueValue As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
'\u968f\u673a\u83b7\u53d6\u679c\u5b50\u7684\u989c\u8272
lngRedValue = Int((255 - 0 + 1) * Rnd + 0)
lngGreenValue = Int((255 - 0 + 1) * Rnd + 0)
lngBlueValue = Int((255 - 0 + 1) * Rnd + 0)
lngPointColor = RGB(lngRedValue, lngGreenValue, lngBlueValue)
'\u968f\u673a\u83b7\u53d6\u679c\u5b50\u7684\u4f4d\u7f6e
lngPointX = Int((FZ_LEFT - FZ_RIGHT + 1) * Rnd + FZ_RIGHT)
lngPointY = Int((FZ_TOP - FZ_BOTTOM + 1) * Rnd + FZ_BOTTOM)
Me.PSet (lngPointX, lngPointY), lngPointColor
'\u8bbe\u7f6e\u51fd\u6570\u8fd4\u56de\u503c
With g_udtPoint
.Point_X = lngPointX
.Point_Y = lngPointY
.Point_Color = lngPointColor
End With
End Sub
Private n(3), m(3) As Integer 'n(3)\u8bb0\u5f55\u6e38\u620f\u533a\u7684\u56db\u4e2a\u6d3b\u52a8\u65b9\u5757\u7684\u7f16\u53f7 'm(3)\u8bb0\u5f55\u9884\u89c8\u533a\u7684\u56db\u4e2a\u6d3b\u52a8\u65b9\u5757\u7684\u7f16\u53f7 Private situation, situation2, linenum, t As Integer 'situation\u8bb0\u5f55\u6e38\u620f\u533a\u7684\u65b9\u5757\u6837\u5f0f 'situation2\u8bb0\u5f55\u9884\u89c8\u533a\u7684\u65b9\u5757\u6837\u5f0f 'linenum\u8bb0\u5f55\u4e00\u6b21\u6d88\u9664\u7684\u884c\u6570 Private Sub hidefang(a As Integer) '\u5b9a\u4e49\u4f7f\u65b9\u5757\u4e0d\u53ef\u89c1\u7684\u8fc7\u7a0b Select Case a Case 0 'a\uff1d0\u4f7f\u6e38\u620f\u533a\u65b9\u5757\u4e0d\u53ef\u89c1 cmdfang(n(0)).Visible = False cmdfang(n(1)).Visible = False cmdfang(n(2)).Visible = False cmdfang(n(3)).Visible = False Case 1 'a\uff1d1\u4f7f\u9884\u89c8\u533a\u65b9\u5757\u4e0d\u53ef\u89c1 cmdfangnext(m(0)).Visible = False cmdfangnext(m(1)).Visible = False cmdfangnext(m(2)).Visible = False cmdfangnext(m(3)).Visible = False End Select End Sub Private Sub showfang(a As Integer) '\u5b9a\u4e49\u4f7f\u65b9\u5757\u53ef\u89c1\u7684\u8fc7\u7a0b Select Case a Case 0 'a\uff1d0\u4f7f\u6e38\u620f\u533a\u65b9\u5757\u53ef\u89c1 cmdfang(n(0)).Visible = True cmdfang(n(1)).Visible = True cmdfang(n(2)).Visible = True cmdfang(n(3)).Visible = True Case 1 'a\uff1d1\u4f7f\u9884\u89c8\u533a\u65b9\u5757\u4e0d\u53ef\u89c1 cmdfangnext(m(0)).Visible = True cmdfangnext(m(1)).Visible = True cmdfangnext(m(2)).Visible = True cmdfangnext(m(3)).Visible = True End Select End Sub Private Sub clearline() '\u5b9a\u4e49\u6d88\u9664\u6574\u884c\u7684\u8fc7\u7a0b For i = 190 To 10 Step -10 If cmdfang(i).Visible = True And _ cmdfang(i + 1).Visible = True And _ cmdfang(i + 2).Visible = True And _ cmdfang(i + 3).Visible = True And _ cmdfang(i + 4).Visible = True And _ cmdfang(i + 5).Visible = True And _ cmdfang(i + 6).Visible = True And _ cmdfang(i + 7).Visible = True And _ cmdfang(i + 8).Visible = True And _ cmdfang(i + 9).Visible = True Then For j = i + 4 To i Step -1 t = 1 cmdfang(j).Visible = False cmdfang(2 * i + 9 - j).Visible = False For k = 1 To 4000 DoEvents Next t = 0 Next linenum = linenum + 1 For j = i - 1 To 0 Step -1 If cmdfang(j).Visible = True Then cmdfang(j).Visible = False cmdfang(j + 10).Visible = True End If Next clearline '\u4e3a\u4e86\u5b9e\u73b0\u8fde\u6d88\u6570\u884c\uff0c\u8fd9\u91cc\u4f7f\u7528\u9012\u5f52\u8c03\u7528 End If Next End Sub
你说的贪吃蛇、推箱子都不简单，涉及到很多方面的设计，要花不少时间的。这里估计很少有人能帮得上你。祝你好运。帮你做了一个简单的猜数游戏，代码如下：
'只需给窗体添加一个Command1的控件，单击它即可执行，允许多次执行
Private Sub Command1_Click()
Dim myArray(1 To 20) As Integer '储存用于猜测的数据
Dim rep As Boolean, cor As Boolean 'rep记录产生的随机数是否有重复的，有重复的，会剔除，cor记录是否猜中
Dim guess As Integer
Dim i As Integer, j As Integer
'开始随机生成用于猜测的20个数据，若出现重复的数，将重新生成新的数
Cls
Randomize
i = 1
Do While i < 21
rep = False
myArray(i) = 1 + Int(50 * Rnd)
For j = 1 To i - 1
If myArray(i) = myArray(j) Then rep = True: Exit For
Next
If rep = False Then i = i + 1
Loop
'为20个数据从小到大排序
For i = 1 To 20
For j = i + 1 To 20
If myArray(i) > myArray(j) Then t = myArray(i): myArray(i) = myArray(j): myArray(j) = t
Next
Next
'开始猜数，输入非数值型的数据，会被视为输入0
cor = False
guess = Val(InputBox("请输入1到50的某个自然数：", "猜数游戏", 0))
For i = 1 To 20
If guess = myArray(i) Then cor = True: Exit For
Next
'开始打印结果
Print "20个随机数如下所示："
For i = 1 To 20
Print Format(myArray(i), "#####"),
If i Mod 5 = 0 Then Print
Next
Print "您猜的数是" & guess & "，" & IIf(cor, "恭喜您，猜中了！", "不好意思，没有这个数哦！")
End Sub
绛旓細鏈蒋浠舵槸涓涓寰堝ソ鐨勭粌鎵撳瓧杞欢銆傜幇鍦ㄥ叡鏈夌數鑴戝熀纭缁冧範銆佷腑鏂囨墦瀛楃粌涔犮佽嫳鏂囨墦瀛楃粌涔犮佷簲绗斾笓鍖恒佹暟瀛楁墦瀛楃粌涔犮佽嚜瀹氫箟缁冧範绛夊绉嶇粌涔犵被鍨嬶紝姣忕缁冧範閮芥湁澶氱瘒鏂囩珷銆傞櫎浜嗚窡鎵撴柟寮忕粌鎵撳瓧澶栬繕鏈夋父鎴忔柟寮忋傝繕甯︽湁涓浜灏忔父鎴璁╂湅鍙嬩滑缁冩墦瀛楅椃浜嗗悗鏀炬澗涓涓嬨傝屼笖杩樺甫鏈変竴浜涘疄鐢ㄧ殑灏忚蒋浠躲傛墍鏈夊鎸傜殑娓告垙鍜岃蒋浠堕兘浼...
绛旓細鎴戞湁鎵撳湴榧犵殑vb6.0鍐欑殑娓告垙锛屽彲浠ヤ笉锛
绛旓細浜.vb绋嬪簭鐨勮娉曡鍒欐槸瀛︿範鐨勯噸鐐,寤鸿涔版湰涔,鑷,浠绘剰鍏ラ棬绾х殑閮藉彲浠,鏈変竴鐐瑰熀纭浜嗗啀涔版湰vb缂栫▼鎵嬪唽(寰堝帤涓澶ф湰)鍏.vb鑳藉仛鐨勪簨寰堝锛屽嚑涔庢墍鏈墂indows閲岀殑绋嬪簭閮借兘鐢ㄥ畠鍋氾紝姣斿鎾斁鍣紝璁颁簨鏈紝鍥剧敾鏉匡紝璁＄畻鍣紝绯荤粺灏忔父鎴鍟︼紝閮藉彲浠ワ紝浣嗘槸鍍忎紶濂囷紝榄斿吔涔嬬被澶у瀷娓告垙vb鏄仛涓嶄簡鐨勶紝涓鑸兘鐢╲b鏉ョ紪...
绛旓細Unity杞欢鍙互鍐欑娓革紝璨屼技杩樿兘鍐欐墜娓革紝鐢–#鎴杍avascript璇█銆侰ocod2x鍙互鍐欑娓革紝鐢–++璇█銆傜綉娓哥敤html璇█鍐欙紝鍙堢ОH5灏忔父鎴锛岃繖绉嶅簲璇ヤ笅杞戒釜缂栬緫鍣(notepad++锛岀敋鑷砏indows鑷甫鐨勮浜嬫湰)灏卞彲浠ュ啓浜嗭紝鎴戜笉娓呮杩欎釜鏂瑰悜銆傚叾瀹VB銆乂B.NET璇█涔熻兘鍐欐父鎴忥紝鍙兘涓嶉偅涔堜笓涓氱舰浜嗭紝鐢ㄥ搴旂殑缂栫▼杞欢(缂栫▼鐜IDE...
绛旓細绾㈣涓绫荤殑 鍙互鐢≧PGmaker杞欢鍋,鎴栬呭涔爓indows娓告垙缂栫▼澶у笀鎶宸т竴涔,涓嶈繃涓婇潰鐨勪緥瀛愭槸C/C++鐨,鐜鏄疺C++6.0. VB涔嬬被鐨勬父鎴,涓嶅鐢╢lash鐨凙ction璇█鍋.Action鍜孋#宸笉澶,搴旇寰堝鏄撳叆闂. 浣嗘槸,濡傛灉浣犳槸涓浣嶈薄鎴戜竴鏍锋兂鎶曡韩娓告垙寮鍙戣涓氱殑绋嬪簭鍛樼殑璇,涓嶅涓璧峰涔燙/C++,windows娓告垙缂栫▼澶у笀鎶宸,DirectX娓告垙缂栫▼...
绛旓細C璇█ 鏄竴绉嶅彲绉绘鎬у拰澶氱郴缁熷钩鍙扮殑缂栫▼璇█ JAVA 鏄竴绉嶅姛鑳藉己澶у彲绉绘鎬у己鐨勫紑鍙戣瑷 HTML 鏄竴绉嶈秴鏂囨湰鏍囪璇█ Java Script 鏄竴绉嶅熀浜庡鎴风鐨勮剼鏈瑷 绋嬪簭璇█,椤惧悕鎬濅箟灏辨槸涓绉嶈瑷,鏄敤浜庝氦娴佺殑,绋嬪簭灏辨槸璁＄畻鏈虹殑璇█鍜屼汉绫昏瑷鐨勭炕璇戣,鍋氫竴涓绋嬪簭鍛樺氨鏄鎶婁汉绫讳笘鐣岀殑闂鐢ㄨ绠楁満鐨勬柟娉曞幓瑙ｅ喅鍜...
绛旓細鍒╃敤VBSCIRPT锛岀敤鎴峰彲浠ラ潪甯告柟渚跨殑鍒朵綔鍑哄悇寮忓悇鏍风殑锛屽叿鏈夊己澶у姛鑳界殑锛屽拰鐢ㄦ埛浜や簰鐨勪富椤碉紝涓嶄粎鍙互寮鍙戠幇鍦ㄦ渶娴佽鐨刉EB鏁版嵁搴擄紝鐢氳嚦鍙互寮鍙戝湪涓婚〉涓婄殑灏忔父鎴銆傛讳箣锛屾嫢鏈変簡VBSCIRPT锛屼笉浠呭皢浼氫娇鐢ㄦ埛鐨勪富椤靛彉寰楁洿鍔犲濮垮褰╋紝涔熻繕浼氫娇涓婚〉闄や簡鍙娴忚涔嬪杩樺娣讳簡鏁版嵁搴撶鐞嗗拰缃戜笂浜や簰鐨勮兘鍔涖傚紑鍙戝伐鍏 鐢变簬锛...
绛旓細瑕佺湡鎯冲涔鍋氭父鎴锛岄偅灏卞厛瀛︾紪绋嬪惂锛屼粠C寮濮嬶紝鍦ㄥVB鍜孋++锛岃繕瑕佹噦鏈鍩虹鐨勬眹缂栬瑷銆傚仛娓告垙闇瑕佽繕photoshop,3DMAX涓浜涘浘鐗囩紪杈戝櫒鍜岄鏋跺埗浣滅瓑. 瑕佷細浣滃浘锛佽ˉ鍏咃細濡傛灉鍙槸缃戦〉灏忔父鎴鐨勮瘽锛岄偅涔團lash灏卞浜 濡傛灉鏄埗浣涓涓2D灏勫嚮绫荤殑娓告垙锛岄偅涔堜娇鐢⊿hooter Maker 95灏卞彲浠ヨ交鏉惧畬鎴愨斺斾綘鍙鎶婃墍鏈夌殑鏈轰綋...
绛旓細濡傛灉鍋氱綉椤娓告垙锛岃嫢鏄湇鍔＄寤鸿浣犱簡瑙ｈ嚦灏戜竴闂ㄧ紪鍐機GI鐨勮瑷濡侾HP锛岃繕闇瑕佷綘鐭ラ亾鏁版嵁搴撶浉鍏崇煡璇嗭紱鑻ユ槸鍓嶇寤鸿浣犱簡瑙ｄ竴涓婬TML5銆丣avaScript銆丗lash绛夌瓑銆侾S锛岃妤间富涓嶈鐪嬪埌杩欎簺鍐呭灏辫寰楁檿锛屼綘鎻愬嚭鐨勬槸涓涓寰堝ぇ寰堢缁熺殑鍛介锛屽笇鏈涗綘鍙互鎵惧噯鏂瑰悜锛屼笓鏀讳竴璺傝崏姘戞彁鍒扮殑涔熶笉涓瀹氬叏闈紝褰撶劧鏇翠笉娣卞叆锛屽鏋...
绛旓細1銆佸垱寤涓涓鏂囦欢鍚嶄负main.c锛岀劧鍚庣敤浠绘剰涓涓浣犵啛鎮夌殑鏂囨湰缂栬緫杞欢锛屾瘮濡傝璁颁簨鏈紝鍦ㄩ噷闈㈣緭鍏ヤ笅闈㈢殑浠ｇ爜锛岃浣忥紝瑕佺敤鏂囨湰鏂囦欢缂栬緫杞欢锛屼笉鑳界敤word鐨勩2銆佺劧鍚庣敤gcc缂栬瘧绋嬪簭锛歡cc ./main.c 浣犱細寰楀埌涓涓猘.out鏂囦欢銆3銆佽繍琛宎.out
