更新日期： 2:10:26总IP记录条数：444963数据库大小：8.81 MB纯真IP数据库QQwry.dat可供网站、软件等相关程序语言调用读取指定IP的城市地区信息。因为IP地址
按字母检索
按声母检索
| Copyright &
. All Rights Reserved .今日: 1275|昨日: 6117|帖子: |欢迎新会员:
| 版主: , , ,
80591 / 5744680
┣ [FPS/TPS]
| 版主: , , ,
80167 / 1717191
从今天开始 创造未来
┣ [FPS/TPS]
┣ [FTG] |
| 版主: , ,
14847 / 201279
天下玩友是一家
┣ [FPS/TPS]
┣ [RAC] 版主: , , ,
1230 / 18480
|&& | 版主: ,
43021 / 699159
┗ 版主: ,
3809 / 183602
狂战炮姐的传奇版主: , ,
117 / 3902
盗贼的终点 船长的新生版主: , , ,
10352 / 127389
36814 / 702670
红毛色魔又一次翻船猎艳之旅版主: ,
3366 / 61014
用歌声卷起闪亮的浪潮！版主: ,
2141 / 26049
开放世界的崭新讨鬼体验！版主: , ,
581 / 6635
恶魔心 黑魂力 血源体 死个痛
3月24日日版先行来袭！
4月12日主机中文版、steam等降临！版主: , ,
34123 / 360666
Fortune Venus
欢迎再临扎克岛，请自备补品，文明观球版主: , ,
7875 / 97331
149485 / 2126058
112434 / 1136052
┣ [FPS/TPS]
26662 / 286209
100995 / 1914781
破解相关话题在此发布讨论版主:
53294 / 560723
┣ [FPS/TPS]
38342 / 488068
189453 / 2359013
46953 / 515707
┗ [SPG] 版主:
21601 / 306809
┣ [ETC] 版主: ,
29388 / 497371
36476 / 443807
19053 / 115179
7924 / 109976
┣ [ETC] 版主:
12007 / 219378
| 版主: , ,
17923 / 199960
5186 / 73390
主题: 56326, 帖数: 1245830
主题: 38907, 帖数: 451797
主题: 66546, 帖数: 774898
主题: 33933, 帖数: 385226
主题: 21428, 帖数: 206260
主题: 26004, 帖数: 307114
主题: 20800, 帖数: 285450
主题: 6127, 帖数: 60554
主题: 10669, 帖数: 183393
157126 / 1898266
77714 / 784519
30743 / 349760
106658 / 2311904
46222 / 649003
47750 / 665597
52558 / 655118
20756 / 239579
8288 / 146476
18074 / 588566
45366 / 253345
4864 / 48403
20884 / 567628
30025 / 603362
鹰击长空,鱼翔浅底,万类霜天竞自由版主: , ,
119039 / 5151208
收集建议和意见【发帖分数下限:10点】
13002 / 100283
Powered by
扫描二维码
下载 A9VG 客户端（iOS, Android）VB小游戏：贪吃蛇
■当前位置： &
VB小游戏：贪吃蛇
10. VB小游戏：贪吃蛇
本人原创，转载请注明出处：
' '以下代码在 VB6
调试通过。本小游戏带有自动游戏功能
'为窗体添加菜单 mFast，以及 mFast 的子菜单 mmFast，并将
mmFast 的索引设置为 0
'在窗体上放置 4
个控件：Label1、Label2、Shape1、Timer1
'在属性窗口修改控件属性：
' Label1 的
Name=LabSnake，Index=0
' Label2 的
Name=LabTai，Index=0
' Shape1 的
Name=ShaFoot，Index=0
Enum enMenuIndex
&&m_ShowNo
&&m_ShowTo
&&m_ShowNum
&&m_ShowWen
&&m_ShowRect
&&m_Line '此常数必须在最后，便于调试
&&to_Right
Dim ctTo As enTo, ctZong As Long, ctFoot As Long, ctHead As
Dim ctB As Long, ctSize As Long, ctH As Long, ctL As Long, ctEsc As
Dim ctDown As Long, ctRight As Long
Dim ctFen As Long, ctMaxFen As Long, ctAutoFen As Long, ctAutoMax
As Long, ctAuto As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
&&&Select Case
vbKeyUp:&&&&If
ctTo && to_Down Then ctTo =
vbKeyDown: If ctTo && to_Up Then ctTo
vbKeyLeft: If ctTo && to_Right Then
ctTo = to_Left
vbKeyRight: If ctTo && to_Left Then
ctTo = to_Right
Private Sub ShowBack(Optional AutoSize As Boolean)
Dim W As Single, H As Single, W1 As Single, H1 As Single
If Not AutoSize Then GoTo Back1
W1 = Me.Width - Me.ScaleX(Me.ScaleWidth, Me.ScaleMode,
vbTwips)&&&'窗口边框宽度：缇
H1 = Me.Height - Me.ScaleY(Me.ScaleHeight, Me.ScaleMode, vbTwips)
'窗口标题栏高度：缇
W = ctL * ctSize + ctB * 2: H = ctH * ctSize + ctB * 2
W = W + Me.TextWidth("A") * 14 '留出 14
个字符的空白区，显示成绩
For I = 0 To LabTai.Count - 1
&&&&&LabTai(I).Move
ctRight + ctB * 0.5, ctB + ctSize * 1.2 * (I + 1)
W = W1 + Me.ScaleX(W, Me.ScaleMode, vbTwips)
H = H1 + Me.ScaleY(H, Me.ScaleMode, vbTwips)
Me.Move (Screen.Width - W) * 0.5, (Screen.Height - H) * 0.5, W,
Me.Line (ctB, ctB)-(ctRight, ctDown), RGB(0, 155, 0), BF
If Not mmFast(m_Line).Checked Then Exit Sub
Dim nStr As String
Me.Font.Size = 9
W1 = Me.TextWidth("A"): H1 = (ctSize - Me.TextHeight("A")) *
For H = 0 To ctH '横线
&&&&&Me.Line
(ctB, ctB + H * ctSize)-Step(ctRight - ctB, 0)
&&&&&Me.CurrentX
= ctB - Me.TextWidth(nStr)
&&&&&Me.CurrentY
= ctB + H * ctSize + H1
H & ctH Then Me.Print nStr
H1 = Me.TextHeight("A")
For H = 0 To ctL '纵线
&&&&&Me.Line
(ctB + H * ctSize, ctB)-Step(0, ctDown - ctB)
&&&&&Me.CurrentX
= ctB + H * ctSize + (ctSize - Me.TextWidth(nStr)) * 0.5
&&&&&Me.CurrentY
= ctB - H1
H & ctL Then Me.Print nStr
Private Sub KjInit()
&&&'初始化
&&&Dim I As
Long, nEnd As Long, S As Long, H As Long
&&&ctFoot =
2&&&&&&&&&&&&&&&&&&&&'同时出现的食物数
&&&ctZong = 10:
ctTo = to_Right '初始长度、方向
&&&ctHead = 0:
0&&&&&&&&&'蛇头序号，得分
&&&ctSize =
15&&&&&&&&&&&&&&&&&&&'蛇身宽度（控件大小）：像素
20&&&&&&&&&&&&&&&&&&&&&&'边框空白区：像素
&&&ctH = 25: ctL
30&&&&&&&&&&&&'活动区行列数
&&&ctDown = ctB
ctSize&&&'活动区底部位置
&&&ctRight = ctB
+ ctL * ctSize '活动区右部位置
mmFast(m_ShowRect).Checked Then LabSnake(0).BorderStyle = 1 Else
LabSnake(0).BorderStyle = 0
&&&LabSnake(0).Alignment
= 2: LabSnake(0).BackColor = 255
&&&Randomize: H
= 1 + Int((ctH - 1) * Rnd) '初始出发行
LabSnake.Count - 1 '当前末尾序号
& nEnd Then S = nEnd
&&&For I = 0 To
I & ctZong Then
&&&&&&&&&Unload
LabSnake(I)
&&&&&&Else
&&&&&&&&&If
I & nEnd Then Load LabSnake(I): LabSnake(I).Visible
&&&&&&&&&LabSnake(I).Move
ctB, ctB + ctSize * H, ctSize, ctSize
&&&&&&&&&If
mmFast(m_ShowNum).Checked Then LabSnake(I).Caption = I Else
LabSnake(I).Caption = ""
&&&ShaFoot(0).Shape
= 3: ShaFoot(0).FillStyle = 0: ShaFoot(0).FillColor = RGB(0, 0,
&&&ShaFoot(0).Move
-ctB - ctSize, 0, ctSize, ctSize
ShaFoot.Count - 1 '当前末尾序号
&&&S = ctFoot -
& nEnd Then S = nEnd
&&&For I = 0 To
I & ctFoot - 1 Then
&&&&&&&&&Unload
ShaFoot(I)
&&&&&&Else
&&&&&&&&&If
I & nEnd Then Load ShaFoot(I): ShaFoot(I).Visible =
&&&&&&&&&Call
RndFoot(I)
Private Sub Form_Unload(Cancel As Integer)
&&&ctEsc =
&&&If ctAutoMax
& ctAutoFen Then ctAutoMax = ctAutoFen
&&&If ctMaxFen
& ctFen Then ctMaxFen = ctFen
&&&SaveSetting
"Snake", "Opt", "AutoMax", ctAutoMax
&&&SaveSetting
"Snake", "Opt", "MaxFen", ctMaxFen
Private Function KjIndex(Index As Long, AddNum As Long)
&&&KjIndex =
Index + AddNum
&&&If AddNum
KjIndex & ctZong Then KjIndex = KjIndex - ctZong -
KjIndex & 0 Then KjIndex = KjIndex + ctZong +
End Function
Private Sub LabTai_MouseDown(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
&&&If Index = 0
And Button = 1 Then Me.PopupMenu mFast, , LabTai(Index).Left,
LabTai(Index).Top + LabTai(Index).Height
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
&&&If Button = 2
Then Me.PopupMenu mFast
Private Sub Form_Load()
&&&Dim I As
&&&Me.Caption =
"贪吃蛇" 'Snake
&&&Me.KeyPreview
= True: Me.AutoRedraw = True
&&&Timer1.Interval
= 100 '速度
&&&Me.ScaleMode
= vbPixels ' 3 像素
&&&Timer1.Enabled
&&&mFast.Visible
&&&For I = 1 To
&&&&&&Load
&&&&mmFast(m_Bar1).Caption
= "-": mmFast(m_Bar2).Caption = "-"
&&&mmFast(m_Start).Caption
= "开始/停止"
&&&mmFast(m_Auto).Caption
= "自动游戏"
&&&mmFast(m_Fast).Caption
&&&mmFast(m_ShowNo).Caption
= "空白蛇身"
&&&mmFast(m_ShowTo).Caption
= "显示前进方向"
&&&mmFast(m_ShowNum).Caption
= "显示数字"
&&&mmFast(m_ShowWen).Caption
= "显示花纹"
&&&mmFast(m_ShowRect).Caption
= "显示方格"
&&&mmFast(m_Line).Caption
= "显示网格线"
&&&LabTai(0).AutoSize
&&&For I = 1 To
&&&&&&Load
LabTai(I): LabTai(I).Visible = True
&&&LabTai(0).Caption
= "选项": LabTai(1).Caption = "双击开始游戏"
&&&ctAutoMax =
GetSetting("Snake", "Opt", "AutoMax", 0)
&&&ctMaxFen =
GetSetting("Snake", "Opt", "MaxFen", 0)
ShowBack(True)
&&&Me.Font.Bold
ShowStr("双击开始游戏", 36)
ShowStr("用键盘的方向键控制蛇的运动方向", 18, 1)
Private Sub Form_DblClick()
&&&Timer1.Enabled
&&&If ctAutoMax
& ctAutoFen Then ctAutoMax = ctAutoFen
&&&If ctMaxFen
& ctFen Then ctMaxFen = ctFen
&&&Call KjInit:
Call ShowBack
&&&ctAutoFen =
0: ctFen = 0
&&&If ctAuto
Then LabTai(1).Caption = "游戏中（自动）" Else LabTai(1).Caption =
Private Sub mmFast_Click(Index As Integer)
&&&Dim I As
&&&If ctAutoMax
& ctAutoFen Then ctAutoMax = ctAutoFen
&&&If ctMaxFen
& ctFen Then ctMaxFen = ctFen
&&&Select Case
&&&&&&Timer1.Enabled
= Not Timer1.Enabled
Timer1.Enabled Then Call KjInit: Call ShowBack
&&&&&&ctAuto
= Not ctAuto: mmFast(Index).Checked = ctAuto
&&&&&&Timer1.Enabled
Timer1.Enabled Then Call KjInit: Call ShowBack
&&&&&mmFast(Index).Checked
= Not mmFast(Index).Checked
mmFast(Index).Checked Then Timer1.Interval = 50 Else
Timer1.Interval = 100
&&&&&mmFast(Index).Checked
= Not mmFast(Index).Checked: Call ShowBack
m_ShowNo, m_ShowTo, m_ShowNum, m_ShowWen
&&&&&mmFast(m_ShowNo).Checked
= False: mmFast(m_ShowTo).Checked = False
&&&&&mmFast(m_ShowNum).Checked
= False: mmFast(m_ShowWen).Checked = False
&&&&&mmFast(Index).Checked
m_ShowRect
&&&&&&mmFast(Index).Checked
= Not mmFast(Index).Checked
I = 0 To LabSnake.Count - 1
&&&&&&&&&If
mmFast(Index).Checked Then LabSnake(I).BorderStyle = 1 Else
LabSnake(I).BorderStyle = 0
&&&&&&Next
Timer1.Enabled Then
ctAuto Then LabTai(1).Caption = "游戏中（自动）" Else LabTai(1).Caption =
&&&&&&ctAutoFen
= 0: ctFen = 0
&&&&&&LabTai(1).Caption
= "游戏已停止"
Private Sub Timer1_Timer()
&&&Dim nHead As
Long, nEnd As Long, X As Long, Y As Long, I As Long
&&&Dim H As
Long, L As Long, H1 As Long, L1 As Long
&&&If ctSize = 0
Then Exit Sub
&&&nHead =
ctHead: nEnd = KjIndex(ctHead, 1) '当前蛇头、蛇尾序号
GetHL(LabSnake(nHead).Left, LabSnake(nHead).Top, H, L) '获得当前蛇头 行列号
&&&Select Case
to_Up:&&&&H
&&&Case to_Down:
&&&Case to_Left:
to_Right: L = L + 1
& ctL Or L & 1 Then
H & ctH * 0.5 Then ctTo = to_Down Else ctTo =
&&&&&&GoTo
& ctH Or H & 1 Then
L & ctL * 0.5 Then ctTo = to_Right Else ctTo =
&&&&&&GoTo
&&&nHead = nEnd
MoveTo(LabSnake(nHead), H,
L)&&&&&&&&'蛇尾移到蛇头
&&&If ctAuto
Then Call AutoPlay(nHead, H, L) '自动避免碰到身体，会修改 H, L
InBody(nHead, H, L) & -1 Then
&&&&&&LabSnake(nHead).ZOrder
&&&&&&Timer1.Enabled
&&&&&&LabTai(1).Caption
= "游戏结束"
&&&&&&Call
ShowStr("Game Over", 36)
&&&&&&Call
ShowStr("双击重新开始", 36, 1)
&&&&&&GoTo
SetNewHead
&&&'是否吃到食物
&&&For I = 0 To
ctFoot - 1
&&&&&&Call
GetHL(ShaFoot(I).Left, ShaFoot(I).Top, H1, L1) '获得食物 行列号
H = H1 And L = L1 Then
&&&&&&&&&&ctZong
= ctZong + 1 '蛇身增加一节
&&&&&&&&&&Load
LabSnake(ctZong): LabSnake(ctZong).Visible = True
&&&&&&&&&&If
mmFast(m_ShowNum).Checked Then LabSnake(ctZong).Caption = ctZong
Else LabSnake(I).Caption = ""
&&&&&&&&&&LabSnake(ctZong).Move
LabSnake(0).Left, LabSnake(0).Top '新控件与序号0重叠
LabSnake(ctZong).ZOrder 0
&&&&&&&&&&Call
ShowFen(True)
&&&&&&&&&&Call
RndFoot(I)&&&&&'重新设置食物的位置
&&&&&&&&&&Exit
&&&&&&&End
SetNewHead:
LabSnake(nHead).BackColor = 255
If mmFast(m_ShowWen).Checked Then
LabSnake(ctHead).Caption = "●" Then LabSnake(nHead).Caption = "◎"
Else LabSnake(nHead).Caption = "●"
'原蛇头变蛇身
LabSnake(ctHead).BackColor = RGB(0, 0, 255)
If mmFast(m_ShowNo).Checked Then LabSnake(ctHead).Caption =
If mmFast(m_ShowTo).Checked Then LabSnake(ctHead).Caption =
ToStr(ctTo)
If mmFast(m_ShowNum).Checked Then LabSnake(ctHead).Caption =
ctHead = nHead
If ctAuto Then FindFoot LabSnake(ctHead).Left, LabSnake(ctHead).Top
'自动查找食物，修改运动方向。
Private Sub ShowFen(Optional AddFen As Boolean)
&&&Dim Adds As
mmFast(m_Fast).Checked Then Adds = 20 Else Adds = 10
&&&If ctAuto
AddFen Then ctAutoFen = ctAutoFen + Adds
&&&&&&LabTai(2).Caption
= "最高分 " & ctAutoMax
&&&&&&LabTai(3).Caption
= "得 分 " & ctAutoFen
AddFen Then ctFen = ctFen + Adds
&&&&&&LabTai(2).Caption
= "最高分 " & ctMaxFen
&&&&&&LabTai(3).Caption
= "得 分 " & ctFen
Private Function ToStr(nTo As enTo) As String
&&&Select Case
to_Up:&&&&&ToStr
to_Down:&&&ToStr
to_Left:&&&ToStr
to_Right: ToStr = "→"
End Function
Private Sub MoveTo(Kj, H As Long, L As Long)
&&&Kj.Move ctB +
ctSize * (L - 1), ctB + ctSize * (H - 1)
Private Sub GetHL(X As Long, Y As Long, H As Long, L As Long)
&&&'将坐标转变为行列位置
&&&If ctSize = 0
Then Exit Sub
&&&L = 1 +
Int((X - ctB) / ctSize): H = 1 + Int((Y - ctB) / ctSize)
Private Sub ShowStr(nStr As String, Optional FontSize As Long = 9,
Optional T As Single)
&&&Me.DrawMode =
&&&Me.Font.Size
= FontSize
&&&Me.CurrentX =
ctB + (ctRight - ctB - Me.TextWidth(nStr)) * 0.5
&&&If T = 0 Then
Me.CurrentY = ctB + (ctDown - ctB - Me.TextHeight(nStr)) *
&&&Me.Print
&&&Me.DrawMode =
Private Sub AutoPlay(Head As Long, H As Long, L As Long)
&&&'自动避免碰到身体，Head：蛇头序号 H,L：蛇头行列位置
&&&'如果碰到会修改 H,L
&&&Dim BodyS As
Long, H2 As Long, L2 As Long
&&&Dim Head1 As
Long, H1 As Long, L1 As Long, ToH As Long, ToL As Long
&&&BodyS =
InBody(Head, H, L) '碰到处的序号
&&&If BodyS
& 0 Then Exit Sub
&&&BodyS =
KjIndex(BodyS, 1) '碰到处的前面一个
LabSnake(BodyS).Left, LabSnake(BodyS).Top, H2, L2 'H2, L2：BodyS 的行列位置
&&&Head1 =
KjIndex(Head, -1) '蛇头的后面一个
LabSnake(Head1).Left, LabSnake(Head1).Top, H1, L1 'H1, L1：Head1 的行列位置
&&&ToH = H1: ToL
&&&If ctTo =
to_Down Or ctTo = to_Up Then '---垂直运动
L - L2 & 0 Then ctTo = to_Right Else ctTo =
ctTo = to_Right Then ToL = ToL + 1 Else ToL = ToL - 1
ToL & 1 Then ToL = 1
ToL & ctL Then ToL = ctL
InBody(-1, ToH, ToL) & -1 Then 'ToH,ToL 处不是空白
&&&&&&&&ToL
&&&&&&&&If
L - L2 & 0 Then ToH = H1 - 1: ctTo = to_Down Else
ToH = H1 + 1: ctTo = to_Up
'--------------------------------------水平运动
H - H2 & 0 Then ctTo = to_Down Else ctTo = to_Up
'首选远离 BodyS
ctTo = to_Down Then ToH = ToH + 1 Else ToH = ToH - 1
ToH & 1 Then ToH = 1
ToH & ctH Then ToH = ctH
InBody(-1, ToH, ToL) & -1 Then 'ToH,ToL 处不是空白
&&&&&&&&ToH
&&&&&&&&If
H - H2 & 0 Then ToL = L1 - 1: ctTo = to_Left Else
ToL = L1 + 1: ctTo = to_Right
& 1 Or ToH & ctH Then Exit Sub
& 1 Or ToL & ctL Then Exit Sub
&&&If InBody(-1,
ToH, ToL) & -1 Then Exit Sub
MoveTo(LabSnake(Head), ToH,
ToL)&&&'移动到新位置
&&&H = ToH: L =
Private Function InBody(NoNum As Long, H As Long, L As Long) As
&&&'返回行列处（H,L）的 LabSnake 序号（NoNum 除外），-1 表示没有
&&&Dim I As
Long, H1 As Long, L1 As Long
&&&For I = 0 To
I && NoNum Then
&&&&&&&&&Call
GetHL(LabSnake(I).Left, LabSnake(I).Top, H1, L1)
&&&&&&&&&If
H1 = H And L1 = L Then InBody = I: Exit Function
&&&InBody =
End Function
Private Sub FindFoot(X As Long, Y As Long)
&&&'自动查找食物，修改运动方向。 X,Y 表示当前蛇头的位置
&&&Dim X1 As
Long, Y1 As Long, I As Long, S As Long, S1 As Long, F As Long
&&&'查找距离最近的食物序号
&&&S = Abs(X -
ShaFoot(F).Left) + Abs(Y - ShaFoot(F).Top) '蛇头 与食物的距离
&&&For I = 1 To
ctFoot - 1
= Abs(X - ShaFoot(I).Left) + Abs(Y - ShaFoot(I).Top)
S & S1 Then S = S1: F = I
&&&X1 = X -
ShaFoot(F).Left: Y1 = Y - ShaFoot(F).Top
&&&If X1 = 0
Y1 & 0 Then
&&&&&&&&&If
ctTo && to_Down Then ctTo =
&&&&&&Else
&&&&&&&&&If
ctTo && to_Up Then ctTo =
X1 & 0 Then
&&&&&&&&If
ctTo && to_Right Then ctTo =
&&&&&&Else
&&&&&&&&If
ctTo && to_Left Then ctTo =
Private Sub RndFoot(I As Long)
&&&'随机设置食物的行列位置
&&&Randomize
ShaFoot(I), 1 + Int(Rnd * ctH), 1 + Int(Rnd * ctL)
本人原创，转载请注明出处：
■当前位置： &
VB小游戏：贪吃蛇
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。新股申购代码一览|3.12新股申购代码查询
发布者：tangy&&&&&来源：网络转载
本月中旬将有大批新股进行网上申购活动，相信听到这一消息最兴奋的还是那些爱好打新的股民吧。并且在3月10号那天将有一只新股进行，那么现在民都会有一个很重要的问题那就是在3月10号那天的新股申购代码到底是多少呢？以下是小编为大家整理收集出来的相关详细信息，以供所有打新者参考了解。 在3月份的中国股市里，将会新增24只新股，它们包括了上交所12家，中小板4家，创业板8家。确实随着3月2日证监会的一纸公文的下发意味着中国股市将要进入紧张的IPO新股申购热潮中来了。 同时，据老钱庄新闻小编了解到，这些新股从下周二起就将开始进行发行申购。其中3月10日将申购的新股是蓝思科技（创）、3月11日新股申购有10只，其中包括了东方证券、富临精工（创）、龙韵股份、立霸股份、世龙实业、恒通科技（创）、四通新材（创）、诚益通（创）、拓普集团、松发股份。3月12日要申购的新股有暴风科技（创）、龙津药业、北部湾旅、埃斯顿、九华旅游、爱普股份、全筑股份、创力集团、国光股份、强力新材（创）、腾龙股份、浙江鼎力则是在3月13日进行申购。 小编整理了3月10日新股创业板的蓝思科技的相关介绍如下： 蓝思科技的申购代码为深：300433，股价未知，发行数额为6736万股，中签率将会在3月12日公布，中签号将在3月13日揭晓，资金解冻日为日。 相关阅读 1、 2、
【声明】本文内容由网友发布，仅代表网友个人经验或观点，不代表本网站立场和观点。如果本文侵犯了您的知识产权，请与我们取得联系，我们会及时修改或删除。
&&&&&小额贷款10分钟下款
&&&&&马上到账的贷款口子
文章评论&&&&
预期年化收益
预期年化收益
预期年化收益
微信公众号用VB帮忙做一个小游戏_百度知道
用VB帮忙做一个小游戏
求一个小游戏 不用多复杂
但是不要贪吃蛇和打地鼠
提问者采纳
&&begin&Label1(x);x1&2 .3&&iForm_LoadEnd&&=&If&&+&&&&&&&*&0;a(1&&1&Call&&As&&Label1(index);",&4000Scale .2&(i&=&+&yidong(x1&2;&If&&&True&=&True& .Caption&&&&1)&&IfEnd&-&True&Str(i)Label1(i);=&&FalseNext&3;3&Call& .Visible&begin&If&i&As&Label1(0); .Width&&= .Caption)&win&i&TLabel1_Click(r)Next&Label1(0);haveload&<,&haveload& .Width .Caption&begin&index)&+& .Left&&-0;&+&&2)&3;y1&*&Command1;40Next&=&&y1&&=&1& ,&&&0)-(3;=&&As&(y1&&a(x1&Label1(index);If&开始&=&&y1 :&=&&1)&= ,&y1&=&1;&To&T&i&&Then&1&Label1_Click(index&&SubPrivate&8&SubSub&&& , .Caption&&&Then&2;&True&3)&1&&win&+ ；再添加一个名为command1的按钮控件Dim&9Label1(i);=&For&False&IfFor&BIf&&&&&+&True&(y1&Then&Fa(i)&&&yidong(x1 .Width&Mod&&+&=&Label1(x);y1 .2&&=&&&&Label1(0).2&恭喜你成功了&start&I&End&&&- .BackColor&=&&Call&index)&3Label1(i).BackColor&&&&1Label1(i);=&As&9)&9&&1)&Then&=&yidong(x1&3;&3)&&);haveload&&&Label1(x)'i&TrueLabel1(i);Sub .Height&+ .BackColor&&Next&=& :&T&If .BackColorEnd&&Val(Label1(i);start .Top&IntegerIf&&&If&+&&Label1(x), :&<:&False&yidong(x1&y1&start&&&+&*&4400Me;False&=&To&&As&If&a(x1 .BackColor&&3Label1(i).Caption&1&+ .BackColor&y1&Integer)Dim&&Sub&&&=&i&Rnd)&9&&&SubPrivate&&Command1_Click()start&&BooleanPrivate&*&To&(0;Sub&Label1(i)&=&Command1;To&\&End&+&&i&=&=&&TrueLabel1(0);1) :&*&(index&&Boolean:&Command1;i .BackColor& .Caption&&(i&3&As&* .2&;-&&1&1&B&1&=&Then ,&&&vbWhiteRandomizeFor& .Top&Label1(index);&Int(9&&&TrueLabel1(i);&=&=&1&&Then&&&Call&index)&Next&&=&Mod&End&win&&Command1;Then&& .Caption&&=&a(index)&&&&&&x1&&&&Then&TrueEnd&添加一个名为label1的标签控件;&",&&1)&True&&1&&False&&True&&=& .Caption&&&&&&\& :&&To&1Label1(i);=&a(x1&&&=&&If&True :&As&1&&&=&=&1&&Then&&3&y1&Command1;+&&If&=&3)&& .FontSize&&1)&QBColor(i)Label1(i);&&&& ,&Label1(9).BackColor&For&&(&-&&&&1)&&&index)Label1(0);=&=&=&=&&-&&&+&begin .Visible&FalseMe;iEnd&&3;=&+&&&&r% .Height .Caption&True :&(y1&&&Then ，并将其index设为0.3)If&Then&If&If&=&*&+&1)&And&&&=&yidong(x;Then .FontBold&End&&=&&iLabel1(9);*&-&ibegin&&=&To&+&&BooleanDim&&If&x1&=&=&If&&Call&&&=&&x1&1&Load&&Then&(index&&&Label1(index);MsgBox&=&-&*&a(x)&As&&2;&&=&=&End&&&&&=&&If&&&FalseEnd&= .Left&&start&a(x1&=&1.Height&&=&=&&500&3&&+&3;+&-&index)&If ,&&&&-0;&&a(index)&FalseFor ,&win&(y1&Form_Load()a(9) .Caption 
提问者评价
相关专业回答
下面是个程序!希望有用
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
其他类似问题
为您推荐：
小游戏的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁
