急救！各位音乐大神哪位在零几年的时候在QQ音乐淘歌里面听过类似于俄罗斯方块dj的专辑是一个叫暴徒的人的_百度知道
急救！各位音乐大神哪位在零几年的时候在QQ音乐淘歌里面听过类似于俄罗斯方块dj的专辑是一个叫暴徒的人的
他传的曲子，曲名都很奇葩，我记得一个叫什么
农村葫芦娃打不过你城市奥特曼，跪求。
我有更好的答案
按默认排序
你到酷狗搜索MC暴徒也许能找到答案
那个人不是MC只是在QQ音乐发布了一个dj舞曲专辑。
其他类似问题
俄罗斯方块的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁【求助】 哪位大神能帮忙把这个程序写个注释啊？俄罗斯方块_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：50,875贴子：
【求助】 哪位大神能帮忙把这个程序写个注释啊？俄罗斯方块收藏
Dim gn(3) As IntegerDim pn(3) As IntegerDim ps As IntegerDim gs As IntegerDim ln As IntegerDim t As IntegerPrivate Sub lf()Select Case Int(Rnd * 6)
'产生小于等于6的随机数Case 0Select Case Int(Rnd * 2)Case 0pn(0) = 3pn(1) = 4pn(2) = 5pn(3) = 6ps = 0Case 1pn(0) = 5pn(1) = 15pn(2) = 25pn(3) = 35ps = 1End SelectCase 1pn(0) = 4pn(1) = 14pn(2) = 15pn(3) = 5ps = 2Case 2Select Case Int(Rnd * 2)Case 0pn(0) = 6pn(1) = 5pn(2) = 15pn(3) = 14ps = 3Case 1pn(0) = 4pn(1) = 14pn(2) = 15pn(3) = 25ps = 4End SelectCase 3Select Case Int(Rnd * 2)Case 0pn(0) = 4pn(1) = 5pn(2) = 15pn(3) = 16ps = 5Case 1pn(0) = 5pn(1) = 15pn(2) = 14pn(3) = 24ps = 6End SelectCase 4Select Case Int(Rnd * 4)Case 0pn(0) = 4pn(1) = 5pn(2) = 6pn(3) = 15ps = 7Case 1pn(0) = 5pn(1) = 15pn(2) = 25pn(3) = 14ps = 8Case 2pn(0) = 16pn(1) = 15pn(2) = 14pn(3) = 5ps = 9Case 3pn(0) = 24pn(1) = 4pn(2) = 15pn(3) = 14ps = 10End SelectCase 5Select Case Int(Rnd * 4)Case 0pn(0) = 4pn(1) = 5pn(2) = 15pn(3) = 25ps = 11Case 1pn(0) = 5pn(1) = 15pn(2) = 14pn(3) = 13ps = 12Case 2pn(0) = 25pn(1) = 24pn(2) = 14pn(3) = 4ps = 13Case 3pn(0) = 14pn(1) = 4pn(2) = 5pn(3) = 6ps = 14End SelectCase 6Select Case Int(Rnd * 3)Case 0pn(0) = 5pn(1) = 4pn(2) = 14pn(3) = 24ps = 15Case 1pn(0) = 15pn(1) = 5pn(2) = 4pn(3) = 3ps = 16Case 2pn(0) = 24pn(1) = 25pn(2) = 15pn(3) = 5ps = 17Case 3pn(0) = 4pn(1) = 14pn(2) = 15pn(3) = 16ps = 18End SelectEnd SelectEnd SubPrivate Sub hf(hn As Integer)Select Case hnCase 0Cd1(gn(0)).Visible = FalseCd1(gn(1)).Visible = FalseCd1(gn(2)).Visible = FalseCd1(gn(3)).Visible = FalseCase 1Cd2(pn(0)).Visible = FalseCd2(pn(1)).Visible = FalseCd2(pn(2)).Visible = FalseCd2(pn(3)).Visible = FalseEnd SelectEnd SubPrivate Sub sf(sn As Integer)Select Case snCase 0Cd1(gn(0)).Visible = TrueCd1(gn(1)).Visible = TrueCd1(gn(2)).Visible = TrueCd1(gn(3)).Visible = TrueCase 1Cd2(pn(0)).Visible = TrueCd2(pn(1)).Visible = TrueCd2(pn(2)).Visible = TrueCd2(pn(3)).Visible = TrueEnd SelectEnd SubPrivate Sub begin_Click()Picture1.SetFocusTimer2.Interval = 1000 / Val(Text2.Text)For i = 0 To 3
gn(i) = pn(i)Nextsf (0)gs = psTimer2.Enabled = Truehf (1)lfsf (1)End SubPrivate Sub continue_Click()Timer2.Enabled = TrueEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If t = 0 Thenhf (0)Select Case KeyCodeCase vbKeyLeft
If la = True Then
For j = 0 To 3
Cd1(gn(j) - 1).Visible = True
gn(j) = gn(j) - 1
sf (0)Case vbKeyDown
If da = True Then
For j = 0 To 3
Cd1(gn(j) + 10).Visible = True
gn(j) = gn(j) + 10
sf (0)Case vbKeyRight
If ra = True Then
For j = 0 To 3
Cd1(gn(j) + 1).Visible = True
gn(j) = gn(j) + 1
sf (0)Case vbKeyUp
xzCase Else
sf (0)End SelectEnd IfEnd SubPrivate Sub Form_Load()sp(1).Checked = TrueDim i As IntegerFor i = 1 To 199Load Cd1(i)Next iFor i = 0 To 199Cd1(i).Left = (i Mod 10) * 495Cd1(i).Top = (i \ 10) * 495Cd1(i).Visible = FalseCd1(i).BackColor = vbBlueNextFor i = 1 To 39Load Cd2(i)NextFor i = 0 To 39Cd2(i).Left = (i Mod 10 - 2) * 495Cd2(i).Top = (i \ 10 + 1) * 495Cd2(i).Visible = FalseCd2(i).BackColor = vbGreenNextRandomizelfsf (1)a = FalseEnd SubPrivate Sub over_Click()EndEnd SubPrivate Sub pause_Click()Timer2.Enabled = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If t = 0 Thenhf (0)Select Case ButtonCase 1
If la = True Then
For j = 0 To 3
Cd1(gn(j) - 1).Visible = True
gn(j) = gn(j) - 1
sf (0)Case 2
If ra = True Then
For j = 0 To 3
Cd1(gn(j) + 1).Visible = True
gn(j) = gn(j) + 1
sf (0)Case 4
xzCase Else
sf (0)End SelectEnd IfEnd SubPrivate Sub sp_Click(Index As Integer)Dim j As IntegerFor j = 1 To 5sp(j).Checked = FalseNextsp(Index).Checked = TrueText2.Text = IndexEnd SubPrivate Sub Timer2_Timer()hf (0)If da() = True Then
For j = 0 To 3
gn(j) = gn(j) + 10
Nextsf (0)Else
clFor i = 0 To 9
If Cd1(i).Visible = True Then Exit ForNextDim mymsg As StringDim myref As IntegerIf i & 10 Thenmymsg = "输了不要灰心" & vbCrLf & "是否重新开始玩游戏"myref = MsgBox(mymsg, vbYesNo + vbQuestion, "俄罗斯方块游戏")If myref = vbYes ThenFor i = 0 To 199
Cd1(i).Visible = FalseNextText3.Text = 0ln = 0For j = i * 10 To i * 10 + 9
If Rnd &= 0.5 Then Cd1(j).Visible = TrueNextElseEndEnd IfEnd IfFor i = 0 To 3
gn(i) = pn(i)Nextsf (0)gs = psText3.Text = Str(Val(Text3.Text) + 10 * (2 ^ ln - 1))If Val(Text3.Text) &= 300 ^ Val(Text2.Text) Then
Text2.Text = Str(Val(Text2.Text) + 1)
Timer2.Interval = 1000 / Val(Text2.Text)End Ifln = 0hf (1)lfsf (1)End IfEnd SubPrivate Sub cl()For i = 190 To 10 Step -10
For m = 0 To 9
If Cd1(i + m).Visible = True Then n = n + 1
NextIf n = 10 Then
For j = i + 4 To i Step -1
Cd1(j).Visible = False
Cd1(2 * i + 9 - j).Visible = False
For k = 1 To 4000
ln = ln + 1
For j = i - 1 To 0 Step -1
If Cd1(j).Visible = True Then
Cd1(j).Visible = False
Cd1(j + 10).Visible = True
clEnd IfNextEnd SubFunction da() As Boolean
If gn(0) & 190 And gn(1) & 190 And gn(2) & 190 And gn(3) & 190 Then
If Cd1(gn(0) + 10).Visible = False And Cd1(gn(1) + 10).Visible = False And Cd1(gn(2) + 10).Visible = False And Cd1(gn(3) + 10).Visible = False Then
da = False
da = False
End IfEnd FunctionFunction ra() As Boolean
If gn(0) Mod 10 && 9 And gn(1) Mod 10 && 9 And gn(2) Mod 10 && 9 And gn(3) Mod 10 && 9 Then
If Cd1(gn(0) + 1).Visible = False And Cd1(gn(1) + 1).Visible = False And Cd1(gn(2) + 1).Visible = False And Cd1(gn(3) + 1).Visible = False Then
ra = False
ra = False
End IfEnd FunctionFunction la() As Boolean
If gn(0) Mod 10 && 0 And gn(1) Mod 10 && 0 And gn(2) Mod 10 && 0 And gn(3) Mod 10 && 0 Then
If Cd1(gn(0) - 1).Visible = False And Cd1(gn(1) - 1).Visible = False And Cd1(gn(2) - 1).Visible = False And Cd1(gn(3) - 1).Visible = False Then
la = False
la = False
End IfEnd FunctionPrivate Sub xz()Select Case gsCase 0If gn(0) - 18 &= 2 And gn(3) + 9 &= 198 Then
If Cd1(gn(0) - 18).Visible = False And Cd1(gn(1) - 9).Visible = False And _
Cd1(gn(3) + 9).Visible = False Then
gn(0) = gn(0) - 18
gn(1) = gn(1) - 9
gn(3) = gn(3) + 9
End IfEnd IfCase 1If (gn(0) + 18) Mod 10 & 8 And (gn(3) - 9) Mod 10 & 0 Then
If Cd1(gn(0) + 18).Visible = False And Cd1(gn(1) + 9).Visible = False And _
Cd1(gn(3) - 9).Visible = False Then
gn(0) = gn(0) + 18
gn(1) = gn(1) + 9
gn(3) = gn(3) - 9
End IfEnd IfCase 2Case 3If gn(0) - 11 & 1 Then
If Cd1(gn(0) - 11).Visible = False And _
Cd1(gn(3) + 2).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) - 9
gn(3) = gn(3) + 2
End IfEnd IfCase 4If (gn(3) - 2) Mod 10 & 9 Then
If Cd1(gn(2) + 9).Visible = False And _
Cd1(gn(3) - 2).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) + 9
gn(3) = gn(3) - 2
End IfEnd IfCase 5If gn(0) - 9 & 1 Then
If Cd1(gn(0) - 9).Visible = False And _
Cd1(gn(3) - 2).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) - 11
gn(3) = gn(3) - 2
End IfEnd IfCase 6If (gn(3) + 2) Mod 10 & 0 Then
If Cd1(gn(2) + 11).Visible = False And _
Cd1(gn(3) + 2).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) + 11
gn(3) = gn(3) + 2
End IfEnd IfCase 7If gn(0) - 9 & 0 Then
If Cd1(gn(0) - 9).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) + 9
gn(3) = gn(3) - 11
End IfEnd IfCase 8If (gn(0) + 11) Mod 10 & 0 Then
If Cd1(gn(0) + 11).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) - 11
gn(3) = gn(3) - 9
End IfEnd IfCase 9If gn(0) + 9 & 199 Then
If Cd1(gn(0) + 9).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) - 9
gn(3) = gn(3) + 11
End IfEnd IfCase 10If (gn(0) - 11) Mod 10 & 9 Then
If Cd1(gn(0) - 11).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) + 11
gn(3) = gn(3) + 9
End IfEnd IfCase 11If gn(0) - 9 & 1 And (gn(3) - 22) Mod 10 & 9 Then
If Cd1(gn(0) - 9).Visible = False And _
Cd1(gn(3) - 22).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) - 11
gn(3) = gn(3) - 22
End IfEnd IfCase 12If (gn(0) + 11) Mod 10 & 0 And (gn(3) - 18) & 1 Then
If Cd1(gn(0) + 11).Visible = False And _
Cd1(gn(3) - 18).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) - 9
gn(3) = gn(3) - 18
End IfEnd IfCase 13If gn(0) + 9 & 198 And (gn(3) + 22) Mod 10 & 0 Then
If Cd1(gn(0) + 9).Visible = False And _
Cd1(gn(3) + 22).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) + 11
gn(3) = gn(3) + 22
End IfEnd IfCase 14If (gn(0) - 11) Mod 10 & 9 And (gn(3) + 18) & 198 Then
If Cd1(gn(0) - 11).Visible = False And _
Cd1(gn(3) + 18).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) + 9
gn(3) = gn(3) + 18
End IfEnd IfCase 15If (gn(3) - 22) Mod 10 & 8 Then
If Cd1(gn(2) - 11).Visible = False And _
Cd1(gn(3) - 22).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) - 11
gn(3) = gn(3) - 22
End IfEnd IfCase 16If gn(3) - 18 & 1 Then
If Cd1(gn(2) - 9).Visible = False And _
Cd1(gn(3) - 18).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) - 9
gn(3) = gn(3) - 18
End IfEnd IfCase 17If (gn(3) + 22) Mod 10 & 1 Then
If Cd1(gn(1) + 11).Visible = False And _
Cd1(gn(3) + 22).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) + 11
gn(3) = gn(3) + 22
End IfEnd IfCase 18If gn(3) + 18 Mod 10 & 198 Then
If Cd1(gn(2) + 9).Visible = False And _
Cd1(gn(3) + 18).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) + 9
gn(3) = gn(3) + 18
End IfEnd IfEnd SelectEnd Sub
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
为兴趣而生，贴吧更懂你。或