开始的开始

今天在网盘中, 找个文档, 无意间就翻到了高中时, 写的代码....怀着好奇的心情, 下载打开看看....嘿嘿

当年的这个打包起的名字呀......[捂脸]....一只猪, 是编译好的可执行文件...我相信你 是一源文件....现在想想也是很欢乐的...这tm应该是高中毕业在家写的, 高二用VB写的拼图找不到了......哎~(不过变种jQuery版的留下来了, 好像还写过Android版 和 微信小程序版 这俩就都没有剩下了)

现在看, 还知道是干啥的, 再让我写, 是已经写不出来了.....

听我碎碎念了这久....直接看代码吧...

窗体的代码:

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6645
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12540
   LinkTopic       =   "Form1"
   ScaleHeight     =   6645
   ScaleWidth      =   12540
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   120
      Top             =   1800
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   54
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   53
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   52
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   51
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   50
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   49
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   48
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   47
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   46
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   45
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   44
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   43
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   42
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   41
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   40
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   39
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   38
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   37
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   36
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   35
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   34
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   33
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   32
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   31
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   30
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   29
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   28
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   27
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   26
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   25
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   24
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   23
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   22
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   21
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   20
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   19
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   18
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   17
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   16
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   15
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   14
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   13
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   12
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   11
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   10
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   9
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   8
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   7
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   6
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   5
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   4
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   3
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   2
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   1455
      Index           =   1
      Left            =   120
      Stretch         =   -1  'True
      Top             =   240
      Visible         =   0   'False
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1


Private Sub Form_Load()
 Dim i As Integer
  
  Voluation
  Start
  
  For i = 1 To 54
   Image1(i).Picture = LoadPicture("C:\dly\" & Trim(Str(i)) & ".gif")
  Next i
  PlayFlage = 1
End Sub


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer, t As Integer
t = 0
If test(1) Then
 ShuaXin
 For i = 1 To 5
  If WJ(1).candidate(i) Then
   Image1(WJ(1).Index(i)).Top = 2000
   Image1(WJ(1).Index(i)).Left = t * 1111 + 4660
   Pai(WJ(1).Index(i)).sy = 4
   WJ(1).candidate(i) = False
   t = t + 1
   Nu = 0
  End If
 Next i
 WJ(1).flage = False
 WJ(2).flage = True
 PlayFlage = 2
 Timer1.Enabled = True
End If

End Sub

Private Sub Image1_Click(Index As Integer)
Dim i As Integer

If WJ(1).flage Then
 If Image1(Index).Top = 5100 Then
  For i = 1 To 5
    If WJ(1).Index(i) = Index Then WJ(1).candidate(i) = True
  Next i
  Image1(Index).Top = 4950
  Nu = Nu + 1
 Else
  For i = 1 To 5
    If WJ(1).Index(i) = Index Then WJ(1).candidate(i) = False
  Next i
  Image1(Index).Top = 5100
  Nu = Nu - 1
 End If
End If

End Sub

Private Sub Timer1_Timer()
  If WJ(PlayFlage).flage Then DN (PlayFlage)
End Sub

模块的代码:

Attribute VB_Name = "Module1"
Option Explicit
Option Base 1

Public Pai(1 To 54) As Pai
Public x(1 To 54) As Integer
Public WJ(1 To 3) As player
Public Nu As Integer
Public PipeNu, Pipe As Integer
Public PlayFlage As Integer

Public Type Pai
 mz As Integer
 fz As Integer
 sy As Integer
End Type

Public Type player
 Index(1 To 5) As Integer
 guo As Boolean
 candidate(1 To 5) As Boolean
 flage As Boolean
End Type

Public Sub Voluation()
Randomize Time
Dim i As Integer, j As Integer
 For i = 1 To 54
  If i >= 53 Then
   Pai(i).mz = 14
  Else
   If i Mod 13 = 0 Then
    Pai(i).mz = 13
   Else
    Pai(i).mz = i Mod 13
   End If
  End If

  Select Case Pai(i).mz
   Case Is = 7
    Pai(i).mz = 25
   Case Is = 14
    Pai(i).mz = 24
   Case Is = 5
    Pai(i).mz = 23
   Case Is = 2
    Pai(i).mz = 22
   Case Is = 3
    Pai(i).mz = 21
  End Select
   
  Select Case Pai(i).mz
   Case Is = 23
    Pai(i).fz = 5
   Case Is = 10
    Pai(i).fz = 10
   Case Is = 13
    Pai(i).fz = 10
  End Select
 Next i
 
 For i = 1 To 54
  x(i) = Int(Rnd * 54) + 1
  For j = 1 To i - 1
   If x(i) = x(j) Then
    i = i - 1
    Exit For
   End If
  Next j
 Next i
WJ(1).flage = True
WJ(2).flage = False
WJ(3).flage = False

End Sub

Public Sub PX(ByRef a() As Integer)
 Dim i As Integer, j As Integer, t As Integer
  For i = 1 To 5
   For j = 1 To 4
    If Pai(a(j)).mz < Pai(a(j + 1)).mz Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
   Next j
  Next i
End Sub

Public Sub Start()
Dim i As Integer, t As Integer
 
 For i = 1 To 5
  WJ(1).Index(i) = x(i)
  Pai(x(i)).sy = 1
  WJ(2).Index(i) = x(i + 5)
  Pai(x(i + 5)).sy = 2
  WJ(3).Index(i) = x(i + 10)
  Pai(x(i + 10)).sy = 3
 Next i
 
 For i = 1 To 3
  PX WJ(i).Index
 Next i
 
 For i = 1 To 5
  Form1.Image1(WJ(1).Index(i)).Visible = True
  Form1.Image1(WJ(1).Index(i)).Left = (i - 1) * 1011 + 150
  Form1.Image1(WJ(1).Index(i)).Top = 5100
 Next i
End Sub


Public Function test(ByVal t As Integer) As Boolean
Dim x As Integer, y As Integer, i As Integer
 test = False
If PipeNu = "" Then
 If Nu = 1 Or Nu = 2 Then
  If Nu = 2 Then
   For i = 1 To 5
    If WJ(t).candidate(i) Then
     If x = 0 Then
      x = WJ(t).Index(i)
     Else
      y = WJ(t).Index(i)
     End If
    End If
   Next i
   If Pai(x).mz = Pai(y).mz And Pai(x).mz >= Pipe Then test = True: PipeNu = Nu: Pipe = Pai(x).mz
  Else
   For i = 1 To 5
    If WJ(t).candidate(i) And Pai(WJ(t).Index(i)).mz >= Pipe Then test = True: PipeNu = Nu: Pipe = Pai(WJ(t).Index(i)).mz
   Next i
  End If
 End If
Else
 If (Nu = 1 Or Nu = 2) And Nu = PipeNu Then
  If Nu = 2 Then
   For i = 1 To 5
    If WJ(t).candidate(i) Then
     If x = 0 Then
      x = WJ(t).Index(i)
     Else
      y = WJ(t).Index(i)
     End If
    End If
   Next i
   If Pai(x).mz = Pai(y).mz And Pai(x).mz >= Pipe Then test = True: Pipe = Pai(WJ(t).Index(i)).mz
  Else
   For i = 1 To 5
    If WJ(t).candidate(i) And Pai(WJ(t).Index(i)).mz >= Pipe Then test = True: Pipe = Pai(WJ(t).Index(i)).mz
   Next i
  End If
 End If
End If
End Function


Public Sub ShuaXin()
Dim i As Integer
 For i = 1 To 54
  If Pai(i).sy = 4 Then
   Form1.Image1(i).Visible = False
  End If
 Next i
End Sub


Public Sub DN(ByVal t As Integer)
 Dim i As Integer
 If PipeNu = 2 Then
   For i = 5 To 2 Step -1
    If Pai(WJ(t).Index(i)).mz >= Pipe Then
     If Pai(WJ(t).Index(i - 1)).mz = Pai(WJ(t).Index(i)).mz Then
      ShuaXin
      Pai(WJ(t).Index(i)).sy = 4
      Pai(WJ(t).Index(i - 1)).sy = 4
      Form1.Image1(WJ(t).Index(i)).Top = 2000
      Form1.Image1(WJ(t).Index(i)).Left = 4660
      Form1.Image1(WJ(t).Index(i - 1)).Top = 2000
      Form1.Image1(WJ(t).Index(i - 1)).Left = 5771
      Form1.Image1(WJ(t).Index(i)).Visible = True
      Form1.Image1(WJ(t).Index(i - 1)).Visible = True
      WJ(t).candidate(i) = False
      WJ(t).candidate(i - 1) = False
      Pipe = Pai(WJ(t).Index(i)).mz
      PipeNu = 2
      Exit For
     Else
     ' WJ(t).guo = True: Form1.Print "wj(" & t&; ")过"
     End If
    End If
   Next i
   If i < 1 Then WJ(t).guo = True: Form1.Print "wj(" + Str(t) + ")过"
 Else
   For i = 5 To 1 Step -1
    If Pai(WJ(t).Index(i)).mz >= Pipe Then
     ShuaXin
     Form1.Image1(WJ(t).Index(i)).Top = 2000
     Form1.Image1(WJ(t).Index(i)).Left = 4660
     Form1.Image1(WJ(t).Index(i)).Visible = True
     Pai(WJ(t).Index(i)).sy = 4
     WJ(t).candidate(i) = False
     Pipe = Pai(WJ(t).Index(i)).mz
     PipeNu = 1
     Exit For
    End If
   Next i
   If i < 1 Then WJ(t).guo = True: Form1.Print "wj(" + Str(t) + ")过"""
   
 End If
 
 If t = 2 Then
  WJ(2).flage = False
  WJ(3).flage = True
  PlayFlage = 3
 Else
  WJ(t).flage = False
  Form1.Timer1.Enabled = False
  WJ(1).flage = True
 End If
Form1.Print Form1.Timer1.Enabled
Form1.Print t
End Sub

工程描述文件

Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Module=Module1; Module1.bas
IconForm="Form1"
Startup="Form1"
Command32=""
Name="工程1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="LD"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1