求一个VB小游戏编程，要有代码的。。 急求一个VB程序设计的小游戏 十分感谢
\u5c0f\u6e38\u620fvb\u7f16\u7a0b\u8d2a\u5403\u86c7Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 Then If Timer1.Enabled = True Then Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True Label1.Visible = False End IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37 If She(C).F = 2 Then Exit Sub She(C).F = 0 GFangXiang = TrueCase 38 If She(C).F = 3 Then Exit Sub She(C).F = 1 GFangXiang = TrueCase 39 If She(C).F = 0 Then Exit Sub She(C).F = 2 GFangXiang = TrueCase 40 If She(C).F = 1 Then Exit Sub She(C).F = 3 GFangXiang = TrueEnd SelectEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer1")Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = "\u6682\u505c"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHuaEnd SubPrivate Sub Form_Resize()On Error GoTo 1:With Me If .WindowState 1 Then .Cls .ScaleMode = 3 HWB = .ScaleHeight / .ScaleWidth .ScaleWidth = 24 .ScaleHeight = 24 Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2 HuaTu Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF End IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0 If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X - 1 She(C).Y = She(C - 1).Y ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then GoTo 2: End IfCase 1 If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X She(C).Y = She(C - 1).Y - 1 ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then GoTo 2: End IfCase 2 If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X + 1 She(C).Y = She(C - 1).Y ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then GoTo 2: End IfCase 3 If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X She(C).Y = She(C - 1).Y + 1 ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then GoTo 2: End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To C Select Case She(I).F Case 0 She(I).X = She(I).X - 1 Case 1 She(I).Y = She(I).Y - 1 Case 2 She(I).X = She(I).X + 1 Case 3 She(I).Y = She(I).Y + 1 End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox("\u6e38\u620f\u7ed3\u675f\uff0c\u70b9\u201c\u662f\u201d\u91cd\u65b0\u5f00\u59cb\u6e38\u620f\uff0c\u70b9\u201c\u5426\u201d", vbYesNo, "\u8d2a\u5403\u86c7") = vbYes Then ChuShiHuaElse EndEnd IfEnd SubPrivate Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X = 11She(2).Y = 11ZhuangTai(11, 11) = 1HuaTuChanShengShiWuEnd SubPrivate Sub QingChu()Dim I As LongFor I = 0 To UBound(She) Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BFNextEnd SubPrivate Sub HuaTu()Dim I As LongFor I = 0 To UBound(She) Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWBNextEnd SubPrivate Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) - 1 She(I).F = She(I + 1).FNextEnd SubPrivate Sub ChanShengShiWu()Randomize Timer1:X = Int(Rnd * 24)Y = Int(Rnd * 24)If ZhuangTai(X, Y) > 0 Then GoTo 1:ZhuangTai(X, Y) = 2Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd Sub
\u4e00\u3001 \u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
(1)\u4fdd\u6301\u826f\u597d\u7684\u5b66\u4e60\u5fc3\u6001
1\u3001\u8981\u6709\u81ea\u4fe1,\u81ea\u5f3a,\u79ef\u6781\u4e3b\u52a8\u5b66\u4e60.
2\u3001\u514b\u670d\u754f\u96be\u60c5\u7eea,\u6811\u7acb\u5b66\u597d\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u4fe1\u5fc3
(2)\u8981\u6709\u826f\u597d\u7684\u5b66\u4e60\u4e60\u60ef
1\u3001\u8bfe\u524d\u9884\u4e60,\u8ba4\u771f\u542c\u8bfe\u5e76\u9002\u5f53\u505a\u4e9b\u7b14\u8bb0,\u8bfe\u540e\u8981\u8ba4\u771f\u590d\u4e60\u6d88\u5316\u6240\u5b66\u5185\u5bb9,\u5b8c\u6210\u4f5c\u4e1a.
2\u3001VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5165\u95e8\u5b66\u4e60\u5e76\u4e0d\u96be,\u4f46\u5374\u662f\u4e00\u4e2a\u5341\u5206\u91cd\u8981\u7684\u8fc7\u7a0b,\u56e0\u4e3a\u7a0b\u5e8f\u8bbe\u8ba1\u601d\u60f3\u5c31\u5728\u8fd9\u65f6\u5f62\u6210\u7684,\u826f\u597d\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u4e60\u60ef\u4e5f\u5728\u8fd9\u4e2a\u9636\u6bb5\u517b\u6210.
(3)\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u8981\u6ce8\u91cd\u7406\u89e3\u4e00\u4e9b\u91cd\u8981\u7684\u6982\u5ff5.
VB\u7a0b\u5e8f\u8bbe\u8ba1\u672c\u8eab\u5e76\u4e0d\u590d\u6742,\u7ffb\u5f00\u4e00\u672c\u7a0b\u5e8f\u8bbe\u8ba1\u5b66\u4e60\u7684\u4e66\u7c4d,\u770b\u5230\u7684\u65e0\u975e\u5c31\u662f\u53d8\u91cf,\u51fd\u6570,\u6761\u4ef6\u8bed\u53e5,\u5faa\u73af\u8bed\u53e5\u7b49\u6982\u5ff5.\u4f46\u8981\u771f\u6b63\u80fd\u8fdb\u884c\u7a0b\u5e8f\u8bbe\u8ba1,\u9700\u8981\u6df1\u5165\u7406\u89e3\u8fd9\u4e9b\u6982\u5ff5.\u56e0\u6b64,\u5728 \u7a0b\u5e8f\u5165\u95e8\u9636\u6bb5\u8fd8\u662f\u5e94\u8be5\u91cd\u89c6\u6982\u5ff5\u7684\u5b66\u4e60.
(4)\u81ea\u5df1\u52a8\u624b\u7f16\u5199\u7a0b\u5e8f
\u7a0b\u5e8f\u8bbe\u8ba1\u5165\u95e8\u9636\u6bb5\u8981\u7ecf\u5e38\u81ea\u5df1\u52a8\u624b\u6284\u5199\u6216\u7f16\u5199\u4e00\u4e9b\u5c0f\u7a0b\u5e8f,\u4eb2\u81ea\u52a8\u624b\u8fdb\u884c\u7a0b\u5e8f\u8bbe\u8ba1\u662f\u521b\u9020\u6027\u601d\u7ef4\u5e94\u7528\u7684\u4f53\u73b0,\u662f\u57f9\u517b\u903b\u8f91\u601d\u7ef4\u7684\u597d\u65b9\u6cd5.\u56e0\u6b64\u4e00\u5b9a\u8981\u591a\u52a8\u624b\u7f16\u5199\u7a0b\u5e8f,\u800c\u4e14\u8981\u4ece\u5c0f\u7a0b\u5e8f\u5f00\u53d1\u5f00\u59cb,\u9010\u6e10\u63d0\u9ad8\u5199\u7a0b\u5e8f\u7684\u80fd\u529b.
(5)\u9605\u8bfb,\u501f\u7b7e\u522b\u4eba\u8bbe\u8ba1\u7684\u597d\u7a0b\u5e8f
\u591a\u770b\u522b\u4eba\u8bbe\u8ba1\u597d\u7684\u7a0b\u5e8f\u4ee3\u7801,\u5305\u62ec\u6559\u6750\u4e0a\u7684\u4f8b\u9898\u7a0b\u5e8f.\u5728\u8bfb\u61c2\u522b\u4eba\u7a0b\u5e8f\u540e,\u8981\u60f3\u4ed6\u4e3a\u4ec0\u4e48\u8fd9\u4e48\u8bbe\u8ba1\u80fd\u4e0d\u80fd\u5c06\u7a0b\u5e8f\u4fee\u6539\u5b8c\u6210\u66f4\u591a\u7684\u529f\u80fd \u5219\u53ef\u4ee5\u5b66\u5230\u522b\u4eba\u4f18\u79c0\u7684\u4e1c\u897f,\u5e2e\u52a9\u81ea\u5df1 \u63d0\u9ad8\u81ea\u8eab\u6c34\u5e73.
(6) VB\u7a0b\u5e8f\u8bbe\u8ba1\u5b66\u4e60\u7684\u91cd\u70b9
1\u3001\u7a0b\u5e8f\u8bbe\u8ba1\u8bfe\u662f\u9ad8\u5f3a\u5ea6\u7684\u8111\u529b\u52b3\u52a8,\u4e0d\u662f\u542c\u4f1a\u7684,\u4e5f\u4e0d\u662f\u770b\u4f1a\u7684,\u800c\u662f\u7ec3\u4f1a\u7684.
2\u3001\u53ea\u6709\u81ea\u5df1\u52a8\u624b,\u7f16\u5199\u4e00\u4e9b\u7a0b\u5e8f,\u624d\u4f1a\u6709\u6210\u5c31\u611f,\u8fdb\u800c\u5bf9\u8bfe\u7a0b\u4ea7\u751f\u5174\u8da3,\u5b66\u8d77\u6765\u624d\u6bd4\u8f83\u4ece\u5bb9.\u7b49\u4f60\u5728\u7f16\u5199\u5927\u91cf\u7a0b\u5e8f\u4e4b\u540e,\u6211\u60f3\u8fc7\u4e8c\u7ea7\u80af\u5b9a\u6ca1\u95ee\u9898\uff0c\u4e0d\u8fc7\u80fd\u4e0d\u80fd\u505a\u5230\u771f\u77e5\u707c\u89c1,\u8fd0\u7528\u81ea\u5982\u6211\u5c31\u4e0d\u6562\u8bf4\u4e86.
3\u3001\u52a8\u624b\u80fd\u529b\u7684\u57f9\u517b\u662f\u8fd9\u95e8\u8bfe\u548c\u4ee5\u5f80\u8bfe\u7a0b\u6700\u5927\u7684\u4e0d\u540c\u4e4b\u5904.\u91cd\u70b9\u653e\u5728\u601d\u8def,\u7b97\u6cd5,\u7f16\u7a0b\u6784\u601d\u548c\u7a0b\u5e8f\u5b9e\u73b0\u4e0a.\u8bed\u53e5\u53ea\u662f\u8868\u8fbe\u5de5\u5177,\u8981\u6c42\u5802\u4e0a\u79ef\u6781\u601d\u8003,\u5c3d\u91cf\u5f53\u5802\u5b66\u61c2,\u5e76\u505a\u5230\u7075\u6d3b\u5e94\u7528.
)\u4e0a\u673a\u8c03\u8bd5\u7a0b\u5e8f\u5e94\u6ce8\u610f\u7684\u51e0\u70b9:
1\u3001\u4e0a\u673a\u524d\u5e94\u8ba4\u771f\u628a\u5b9e\u9a8c\u9898\u5728\u7528\u7eb8\u4e0a\u505a\u4e00\u505a(\u5305\u62ec\u7a97\u4f53\u754c\u9762\u8bbe\u8ba1,\u4e8b\u4ef6\u4ee3\u7801\u7684\u7f16\u5199\u7b49)
2\u3001\u6bcf\u6b21\u4e0a\u673a\u540e\u5e94\u603b\u7ed3,\u628a\u6ca1\u6709\u641e\u6e05\u695a\u7684\u95ee\u9898\u8bb0\u5f55\u4e0b\u6765,\u8bf7\u6559\u8001\u5e08\u6216\u540c\u5b66.
3\u3001\u5e73\u65f6\u5e94\u591a\u62bd\u8bfe\u4f59\u65f6\u95f4\u591a\u4e0a\u673a\u8c03\u8bd5\u7a0b\u5e8f.\u6ce8\u610f\u7cfb\u7edf\u7684\u63d0\u793a\u4fe1\u606f,\u9047\u5230\u95ee\u9898\u591a\u95ee\u51e0\u6b21\u4e3a\u4ec0\u4e48.
(6)\u517b\u6210\u826f\u597d\u7684\u7f16\u7a0b\u4e60\u60ef
1\u3001\u7a0b\u5e8f\u6784\u601d\u8981\u6709\u8bf4\u660e;
2\u3001\u5b66\u4f1a\u5982\u4f55\u8c03\u8bd5\u7a0b\u5e8f;
3\u3001\u5bf9\u8fd0\u884c\u7ed3\u679c\u8981\u505a\u6b63\u786e\u4e0e\u5426\u7684\u5206\u6790.
\u4e8c\u3001\u590d\u4e60\u8fc7\u7a0b\u7b80\u5355\u7684\u8bf4\u5c31\u662f\u7ec6\u770b\u4e66\uff0c\u52e4\u505a\u9898\uff0c\u6700\u540e\u7ec3\u4e0a\u673a\u3002
\u7ec6\u770b\u4e66\uff0c\u5c31\u662f\u5728\u8003\u8bd5\u524d\u7684\u4e00\u4e2a\u6708\u5185\uff0c\u4ee5\u770b\u4e66\u4e3a\u4e3b\uff0c\u8d8a\u7ec6\u8d8a\u597d\uff08\u5982\u679c\u4f60\u65f6\u95f4\u7d27\u7684\u8bdd\u53ef\u53ea\u91cd\u70b9\u770b\u4e9b\u8003\u70b9\u6d89\u53ca\u7684\u4e1c\u897f\uff09\uff0c\u628a\u4e66\u4e0a\u7684\u77e5\u8bc6\u70b9(\u6700\u597d\u770b\u51e0\u4efd\u5386\u5e74\u8bd5\u9898\uff0c\u8ba9\u81ea\u5df1\u660e\u767d\u8003\u4ec0\u4e48\u3002)\u770b\u61c2\u770b\u900f\uff0c\u6682\u65f6\u4e0d\u660e\u767d\u7684\u6216\u8005\u4e0d\u7406\u89e3\u7684\u5148\u7528\u7b14\u8bb0\u672c\u8bb0\u4e0b\u3002\u8fd9\u6837\u4f60\u7684\u7b14\u8bb0\u672c\u5c31\u6709\u6bcf\u7ae0\u4f60\u4e0d\u61c2\u7684\u77e5\u8bc6\u70b9\u548c\u9898\u76ee\u4e86\uff0c\u4e4b\u540e\u53ef\u4ee5\u95ee\u540c\u5b66\uff0c\u95ee\u8001\u5e08\u2026\u2026\u5982\u6b64\u53cd\u590d\uff0c\u534a\u4e2a\u6708\u4e0b\u6765\u4f60\u7684\u7b14\u8bd5\u6c34\u5e73\u8003\u8bd5\u5e94\u8be5\u6ca1\u95ee\u9898\u4e86\uff1b\u4e0b\u534a\u4e2a\u6708\u7684\u65f6\u95f4\u53ef\u4ee5\u4e00\u8fb9\u7ec3\u4e60\u9898\u76ee\uff0c\u4e00\u8fb9\u7ec3\u4e60\u4e0a\u673a\u3002\u5207\u4e0d\u53ef\u524d\u4e00\u6bb5\u65f6\u95f4\u505a\u9898\uff0c\u540e\u4e00\u6bb5\u65f6\u95f4\u4e0a\u673a\uff0c\u90a3\u6837\u7684\u8bdd\u4f1a\u6709\u5f88\u591a\u5fd8\u8bb0\u7684\u77e5\u8bc6\u70b9\u3002
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim C As Long
If KeyCode = 27 Then End
If KeyCode = 32 Then
If Timer1.Enabled = True Then
Timer1.Enabled = False
Label1.Visible = True
Else
Timer1.Enabled = True
Label1.Visible = False
End If
End If
C = UBound(She)
If GFangXiang = True Then Exit Sub
Select Case KeyCode
Case 37
If She(C).F = 2 Then Exit Sub
She(C).F = 0
GFangXiang = True
Case 38
If She(C).F = 3 Then Exit Sub
She(C).F = 1
GFangXiang = True
Case 39
If She(C).F = 0 Then Exit Sub
She(C).F = 2
GFangXiang = True
Case 40
If She(C).F = 1 Then Exit Sub
She(C).F = 3
GFangXiang = True
End Select
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = &HC000&
Me.FillColor = 255
Me.FillStyle = 0
Me.ScaleWidth = 24
Me.ScaleHeight = 24
Me.WindowState = 2
Set Timer1 = Controls.Add("VB.Timer", "Timer1")
Set Label1 = Controls.Add("VB.Label", "Label1")
Label1.AutoSize = True
Label1.BackStyle = 0
Label1 = "暂停"
Label1.ForeColor = RGB(255, 255, 0)
Label1.FontSize = 50
ChuShiHua
End Sub
Private Sub Form_Resize()
On Error GoTo 1:
With Me
If .WindowState <> 1 Then
.Cls
.ScaleMode = 3
HWB = .ScaleHeight / .ScaleWidth
.ScaleWidth = 24
.ScaleHeight = 24
Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2
HuaTu
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End If
End With
1:
End Sub
Private Sub Timer1_Timer()
Dim C As Long, I As Long
On Error GoTo 2:
QingChu
C = UBound(She)
Select Case She(C).F
Case 0
If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X - 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 1
If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y - 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then
GoTo 2:
End If
Case 2
If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X + 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 3
If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y + 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then
GoTo 2:
End If
End Select
ZhuangTai(She(0).X, She(0).Y) = 0
For I = 0 To C
Select Case She(I).F
Case 0
She(I).X = She(I).X - 1
Case 1
She(I).Y = She(I).Y - 1
Case 2
She(I).X = She(I).X + 1
Case 3
She(I).Y = She(I).Y + 1
End Select
Next
TiaoZheng
1:
GFangXiang = False
ZhuangTai(She(C).X, She(C).Y) = 1
HuaTu
Exit Sub
2:
If MsgBox("游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes Then
ChuShiHua
Else
End
End If
End Sub
Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 200
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9, 11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10, 11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11, 11) = 1
HuaTu
ChanShengShiWu
End Sub
Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF
Next
End Sub
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub
Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
She(I).F = She(I + 1).F
Next
End Sub
Private Sub ChanShengShiWu()
Randomize Timer
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
If ZhuangTai(X, Y) > 0 Then GoTo 1:
ZhuangTai(X, Y) = 2
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End Sub
直接复制到空代码窗口
15分太少.没有直接的.我也不想写.
连连看留邮箱
迷宫的要么？留邮箱
绛旓細鏁板瓧鎺掑簭灏忔父鎴 Option Explicit Dim Label2X As Integer '璁板綍鏍囩鎺т欢鏁扮粍涓绉诲姩鐨勬爣绛炬帶浠跺乏涓婅X鐨勪綅缃 Dim Label2Y As Integer '璁板綍鏍囩鎺т欢鏁扮粍涓绉诲姩鐨勬爣绛炬帶浠跺乏涓婅Y鐨勪綅缃 '璁╂爣绛炬暟缁勪腑鐨勬瘡涓爣绛炬帶浠朵笂鏄剧ず鐨勬暟瀛楁槸闅忔満鐨勶紝鏃犻噸澶嶇殑 Private Sub Init()Randomize Dim a(7) As ...
绛旓細杩欎釜浠ｇ爜涓嶈浠讳綍鎺т欢锛屼綘鍙渶瑕佹妸浠ヤ笅浠ｇ爜澶嶅埗鍒颁綘鐨勭獥浣撲唬鐮佷腑灏辫浜,浠ｇ爜寰堢畝鍗曪紝鐩镐俊浣犺兘鐪嬫噦锛佷粎浠呯敤浜涓涓缁撴瀯锛圫henTi锛変竴涓暟缁勶紙ZhuangTai(23, 23) As Long锛 涓涓彉閲忥紙GFangXiang锛変唬鐮佷腑鑷姩鐢熸垚浜員imer1锛孡abel1鎺т欢銆備互鍙婂嚑涓嚱鏁帮紙Randomize锛孋ircle锛孡ine锛孍rase...锛 鐩镐俊杩欎簺瀵逛簬...
绛旓細浣犺鐨勮椽鍚冭泧銆佹帹绠卞瓙閮戒笉绠鍗曪紝娑夊強鍒板緢澶氭柟闈㈢殑璁捐锛岃鑺变笉灏戞椂闂寸殑銆傝繖閲屼及璁″緢灏戞湁浜鸿兘甯緱涓婁綘銆傜浣犲ソ杩愩傚府浣犲仛浜涓涓绠鍗曠殑鐚滄暟娓告垙锛屼唬鐮濡備笅锛'鍙渶缁欑獥浣撴坊鍔犱竴涓狢ommand1鐨勬帶浠讹紝鍗曞嚮瀹冨嵆鍙墽琛岋紝鍏佽澶氭鎵ц Private Sub Command1_Click()Dim myArray(1 To 20) As Integer '鍌ㄥ瓨...
绛旓細2020-08-01 姹備竴涓猇B 灏忔父鎴忎唬鐮 瓒婄畝鍗曡秺濂借皝甯繖鍐欎竴涓 缃戠珯涓婂鍒剁殑... 7 2014-01-24 鎵撳湴榧爒b缂栫▼,瓒婄畝鍗曡秺濂 4 2013-10-01 姹俈B鎵撳瓧娓告垙鐨勭▼搴忎唬鐮,瓒婄畝鍗曡秺濂! 3 2014-08-19 璋佹湁浠诲姟绠＄悊鍣ㄧ殑VB浠ｇ爜?瓒婄畝鍗曡秺濂姐傘 2016-09-10 vb濡備綍瀛樺偍璇诲彇鏁版嵁,瓒婄畝鍗曡秺濂! 2010-06-16 璺眰VB绾㈤粍...
绛旓細濡備綘鎵璇 1銆佸缓绔嬩笁涓寜閽甤ommand1,command2,command3 2銆佸缓绔嬩袱涓爣绛緇abel1,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 ...
绛旓細' 閿ゅ瓙鍓垁甯 Private Sub Command1_Click()Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("鎴戝凡鎯冲ソ浜嗭紝浣犲嚭浠涔堬紵锛1=閿ゅ瓙锛 2=鍓垁锛3=甯冿細", "鐚滄嫵"))Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess Then k = 1 ElseIf Iguess < YouGuess...
绛旓細X = MsgBox("鏄惁鐪熺殑閫鍑猴紵", vbYesNo, "閫鍑娓告垙妗")If X = 6 Then tt = MsgBox("閫鍑烘父鎴忎箣鍓,鏄惁淇濆瓨", vbYesNo, "淇濆瓨鎻愮ず") If tt = 6 Then If flags1 = True Then End Else If Timer1.Interval = 1000 Then Open "C:\Users\Administrator\Desktop\鎵撳湴榧燶primary...
绛旓細绠鏄撲笁鍥藉織 鍒涘缓9涓猚ommand锛1涓timer锛屾椂闂20000,9涓猼ext锛6涓猣arm銆傚竷缃鍥 浠ｇ爜濡備笅 Private Sub Form_Load()Text1.Text = "100" '鎴戞柟鍓╀綑澹叺 Text2.Text = "170" '瀵规柟鍓╀綑澹叺 Text3.Text = "180" '瀵规柟鍓╀綑澹叺 Text4.Text = "200" '瀵规柟鍓╀綑澹叺 Text5.Text = "500" '閲戦挶 ...
绛旓細妫嬬洏鐢ㄤ簩缁存暟缁勫疄鐜 姣忚蛋涓姝ュ垽鏂鏁扮粍鏈夊皢鎴栧竻娌 椹瓧鍙兘璧版棩锛屼篃涓鏍凤紝if abs(oldx-newx)*abs(oldy-newy)=2 椹蛋 end if ___寰堟棭浠ュ墠鍋氳繃鍋氳繃璞℃灏忔父鎴忥紝鎴戠殑鏂规硶鏄妸妫嬪瓙鍋氭垚涓涓鑷畾涔夋帶浠 鍦ㄨ鎺т欢閲屽畾涔夋瀛愮殑琛屼负瑙勫垯 妫嬬洏鐢ㄦ暟缁勫瓨褰撳墠妫嬪眬鍚勬瀛愮殑浣嶅瓙 鈥斺斺擾__妫嬪瓙姣忚蛋涓姝...
绛旓細鍋氫釜璐悆铔囷紝flppy bird锛岀旱鍚戝儚绱犺禌杞︼紝鎺ㄧ瀛愶紝姘存灉鏈 杩欎簺閮戒笉闅撅紝杩愮敤鍒颁竴浜涚壒娈娓告垙绠楁硶锛岃椽鍚冭泧锛氬垱寤簆ictureBox鎺т欢鏁扮粍, 鐒跺悗鍔犺韩瀛愬氨load picture1(picture1.UBound+1)鍦ㄥ０鏄庝竴涓姩鎬佹暟2d鏁扮粍锛屾瘡涓韩瀛愰兘鏈変竴涓X锛孻鍊兼瘡绉诲姩涓娆¤椽鍚冭泧锛屽ご閮ㄥ厛璧颁竴姝ュ悗闈㈢殑韬瓙灏卞悜鍓嶄竴涓韩瀛愮殑浣嶇疆X,Y绉诲姩 fl...
