VB³ÌÐòÉè¼ÆÏîÄ¿(¶íÂÞ˹·½¿é)

ÄÚÈÝ·¢²¼¸üÐÂʱ¼ä : 2025/11/2 8:28:50ÐÇÆÚÒ» ÏÂÃæÊÇÎÄÕµÄÈ«²¿ÄÚÈÝÇëÈÏÕæÔĶÁ¡£

'¼ì²éÓÎÏ·ÇøµÄ¸÷ÐÐ Dim i As Integer Dim j As Integer Dim k As Integer

For i = 190 To 10 Step -10

If Command1(i).Visible = True And _ Command1(i + 1).Visible = True And _ Command1(i + 2).Visible = True And _ Command1(i + 3).Visible = True And _ Command1(i + 4).Visible = True And _ Command1(i + 5).Visible = True And _ Command1(i + 6).Visible = True And _ Command1(i + 7).Visible = True And _ Command1(i + 8).Visible = True And _ Command1(i + 9).Visible = True Then For j = i + 4 To i Step -1 t = 1

Command1(j).Visible = False

Command1(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 Command1(j).Visible = True Then Command1(j).Visible = False Command1(j + 10).Visible = True End If Next

'ΪÁËʵÏÖÁ¬ÏûÊýÐУ¬ÕâÀïʹÓõݹéµ÷Óà ClearLine End If Next End Sub

'×Ô¶¨Ò庯Êý£¬È·¶¨·½¿éÊÇ·ñÄÜϽµ

Private Function DownAble() As Boolean

If GameNum(0) < 190 And GameNum(1) < 190 And GameNum(2) < 190 And GameNum(3) < 190 Then

If Command1(GameNum(0) + 10).Visible = False And _ Command1(GameNum(1) + 10).Visible = False And _ Command1(GameNum(2) + 10).Visible = False And _

16

Command1(GameNum(3) + 10).Visible = False Then DownAble = True Else

DownAble = False End If Else

DownAble = False End If End Function

'×Ô¶¨Ò庯Êý£¬È·¶¨·½¿éÊÇ·ñÄÜ×óÒÆ

Private Function LeftAble() As Boolean

If GameNum(0) Mod 10 <> 0 And GameNum(1) Mod 10 <> 0 And GameNum(2) Mod 10 <> 0 And GameNum(3) Mod 10 <> 0 Then

If Command1(GameNum(0) - 1).Visible = False And _ Command1(GameNum(1) - 1).Visible = False And _ Command1(GameNum(2) - 1).Visible = False And _ Command1(GameNum(3) - 1).Visible = False Then LeftAble = True Else

LeftAble = False End If Else

LeftAble = False End If End Function

'×Ô¶¨Ò庯Êý£¬È·¶¨·½¿éÊÇ·ñÄÜÓÒÒÆ

Private Function RightAble() As Boolean

If GameNum(0) Mod 10 <> 9 And GameNum(1) Mod 10 <> 9 And GameNum(2) Mod 10 <> 9 And GameNum(3) Mod 10 <> 9 Then

If Command1(GameNum(0) + 1).Visible = False And _ Command1(GameNum(1) + 1).Visible = False And _ Command1(GameNum(2) + 1).Visible = False And _ Command1(GameNum(3) + 1).Visible = False Then RightAble = True Else

RightAble = False End If Else

RightAble = False End If End Function

17

'¶¨Òåʹ·½¿éÐýתµÄ¹ý³Ì Private Sub Zhuan()

Select Case GameSituation

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'³¤ÌõÐÍ·½¿éÓɺá×űä³ÉÊúÁ¢×´Ì¬ Case 0

If GameNum(0) - 18 >= 2 And GameNum(3) + 9 <= 198 Then If Command1(GameNum(0) - 18).Visible = False And _ Command1(GameNum(1) - 9).Visible = False And _ Command1(GameNum(3) + 9).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 18 GameNum(1) = GameNum(1) - 9 GameNum(3) = GameNum(3) + 9 ShowFanku (0) GameSituation = 1 End If End If

'ÓÉÊúÁ¢±ä³Éºá×Å״̬ Case 1

If (GameNum(0) + 18) Mod 10 < 8 And (GameNum(3) - 9) Mod 10 > 0 Then

If Command1(GameNum(0) + 18).Visible = False And _ Command1(GameNum(1) + 9).Visible = False And _ Command1(GameNum(3) - 9).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 18 GameNum(1) = GameNum(1) + 9 GameNum(3) = GameNum(3) - 9 ShowFanku (0) GameSituation = 0 End If End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Õý·½Ðη½¿éÎޱ仯 Case 2

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

18

'ÕýSÐÍ·½¿éµÄ±ä»¯ Case 3

If GameNum(0) - 11 > 1 Then

If Command1(GameNum(0) - 11).Visible = False And _ Command1(GameNum(3) + 2).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 11 GameNum(2) = GameNum(2) - 9 GameNum(3) = GameNum(3) + 2 ShowFanku (0) GameSituation = 4 End If End If Case 4

If (GameNum(3) - 2) Mod 10 < 9 Then

If Command1(GameNum(2) + 9).Visible = False And _ Command1(GameNum(3) - 2).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 11 GameNum(2) = GameNum(2) + 9 GameNum(3) = GameNum(3) - 2 ShowFanku (0) GameSituation = 3 End If End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'·´SÐÍ·½¿éµÄ±ä»¯ Case 5

If GameNum(0) - 9 > 1 Then

If Command1(GameNum(0) - 9).Visible = False And _ Command1(GameNum(3) - 2).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 9 GameNum(2) = GameNum(2) - 11 GameNum(3) = GameNum(3) - 2 ShowFanku (0) GameSituation = 6 End If End If Case 6

If (GameNum(3) + 2) Mod 10 > 0 Then

If Command1(GameNum(2) + 11).Visible = False And _

19

Command1(GameNum(3) + 2).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 9 GameNum(2) = GameNum(2) + 11 GameNum(3) = GameNum(3) + 2 ShowFanku (0) GameSituation = 5 End If End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'TÐÍ·½¿éµÄ±ä»¯ Case 7

If GameNum(0) - 9 > 0 Then

If Command1(GameNum(0) - 9).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 9 GameNum(2) = GameNum(2) + 9 GameNum(3) = GameNum(3) - 11 ShowFanku (0) GameSituation = 8 End If End If Case 8

If (GameNum(0) + 11) Mod 10 > 0 Then

If Command1(GameNum(0) + 11).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 11 GameNum(2) = GameNum(2) - 11 GameNum(3) = GameNum(3) - 9 ShowFanku (0) GameSituation = 9 End If End If Case 9

If GameNum(0) + 9 < 199 Then

If Command1(GameNum(0) + 9).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 9 GameNum(2) = GameNum(2) - 9 GameNum(3) = GameNum(3) + 11 ShowFanku (0)

GameSituation = 10

20