form1.frm

自行写的为同学打篮球分组方便而写的代码

      BackColor       =   &H00C0C0C0&
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "华文中宋"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   9240
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   120
      Width           =   2655
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "开始自动排序"
      BeginProperty Font 
         Name            =   "华文中宋"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   120
      Width           =   2535
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Dim Qf() As Variant, Zf() As Variant, Hw() As Variant

Private Sub Command1_Click()
If Command1.Caption = "开始自动排序" Then
 Command1.Caption = "停止并确定排序"
 Timer1.Enabled = True
 '取消人图象
  For i = 1 To 14
     Image1(i).Picture = LoadPicture("")
  Next i
 
Else
   Timer1.Enabled = False
   Command1.Caption = "开始自动排序"
   

'显示个人图象

  For i = 1 To 14
     Image1(i).Picture = LoadPicture(App.Path & "\个人图片库\" & Trim(Text1(i).Text) & ".jpg")
  Next i
End If
End Sub

Private Sub Command2_Click()
Dim s%
s = MsgBox("您真的要退出吗?", vbOKCancel + vbQuestion, "程序")
If s = 1 Then
Unload Me
End
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
For i = 1 To 14
  Text1(i).Text = ""
  Text1(i).Alignment = 2
  Image1(i).Stretch = True
  Text1(i).FontSize = 12
  Text1(i).FontName = "楷体_GB2312"
Next i

Qf = Array("戴福星", "林君毅", "张国荣", "邓晖", "徐雁", "柴琦")
Zf = Array("程春飚", "李晓伟", "张帅", "李丹")
Hw = Array("邱尚长", "曾文彬", "黄赐嘉", "陈朝龙")
End Sub


Private Sub Timer1_Timer()
Dim Qf1(3) As Variant, Zf1(2) As Variant
Dim Qf2(3) As Variant, Zf2(2) As Variant
Dim Hw1(2) As Variant, Hw2(2) As Variant

   Randomize
    ' 以下是从前锋中随机取三个同学
    n = Int(6 * Rnd + 1)
    nn = Int(6 * Rnd + 1)
    nnn = Int(6 * Rnd + 1)
    Do While 1
      If n = nn Then
          nn = Int(6 * Rnd + 1)
      End If
      If n = nnn Then
          nnn = Int(6 * Rnd + 1)
      End If
     If nn = nnn Then
          nnn = Int(6 * Rnd + 1)
      End If

      If n <> nn And nn <> nnn And n <> nnn Then
          Exit Do
      End If
    Loop
    If n > nn Then t = n: n = nn: nn = t
    If nn > nnn Then t = nn: nn = nnn: nnn = t
    If n > nn Then t = n: n = nn: nn = t
    
    Qf1(1) = Qf(n)     'Qf1代表第一组前锋
    Qf1(2) = Qf(nn)
    Qf1(3) = Qf(nnn)
        If n = 4 Then m1 = 1: m2 = 2: m3 = 3
        If n = 3 Then
           m1 = 1: m2 = 2
           If nn = 5 Then m3 = 4
           If nn = 4 Then
              If nnn = 5 Then
                 m3 = 6
              Else
                 m3 = 5
              End If
            End If
        End If
        
        If n = 2 Then
           m1 = 1
           If nn = 5 Then m2 = 3: m3 = 4
           If nn = 4 Then
              m2 = 3
              If nnn = 5 Then
                 m3 = 6
              Else
                 m3 = 5
              End If
            End If
            If nn = 3 Then
              If nnn = 4 Then m2 = 5: m3 = 6
              If nnn = 5 Then m2 = 4: m3 = 6
              If nnn = 6 Then m2 = 4: m3 = 5
            End If
        End If
        
        If n = 1 Then
           If nn = 5 Then m1 = 2: m2 = 3: m3 = 4
           
           If nn = 4 Then
              m1 = 2: m2 = 3
              If nnn = 6 Then
                  m3 = 5
              Else
                  m3 = 6
              End If
            End If
            
            If nn = 3 Then
              m1 = 2
              If nnn = 4 Then
                 m2 = 3: m3 = 5
              ElseIf nnn = 5 Then
                 m2 = 4: m3 = 6
              Else
                 m2 = 4: m3 = 5
              End If
            End If
            
            If nn = 2 Then
              If nnn = 6 Then
                m1 = 3: m2 = 4: m3 = 5
              
              ElseIf nnn = 5 Then
                m1 = 3: m2 = 4: m3 = 6
              ElseIf nnn = 4 Then
                m1 = 3: m2 = 5: m3 = 6
              Else
                m1 = 4: m2 = 5: m3 = 6
              End If
            End If
        End If
        
        
       Qf2(1) = Qf(m1) 'Qf2代表第二组前锋
       Qf2(2) = Qf(m2)
       Qf2(3) = Qf(m3)
' 以上是从前锋中随机取三个同学给数组Qf1


     
         ' 以下是从后卫中随机取2个同学
    h1 = Int(4 * Rnd + 1)
    h2 = Int(4 * Rnd + 1)
    Do While 1
      If h1 = h2 Then
          h2 = Int(4 * Rnd + 1)
      End If
      If h1 <> h2 Then
          Exit Do
      End If
    Loop
    
    If h1 > h2 Then t = h1: h1 = h2: h2 = t
    
    If h1 = 3 Then
       hh1 = 1: hh2 = 2
    ElseIf h1 = 2 Then
       If h2 = 4 Then
          hh1 = 1: hh2 = 3
        ElseIf h2 = 3 Then
          hh1 = 1: hh2 = 4
        End If
    ElseIf h1 = 1 Then
        If h2 = 4 Then
          hh1 = 2: hh2 = 3
        ElseIf h2 = 3 Then
          hh1 = 2: hh2 = 4
        ElseIf h2 = 2 Then
          hh1 = 3: hh2 = 4
        End If
    End If
    Hw1(1) = Hw(h1)
    Hw1(2) = Hw(h2)
    Hw2(1) = Hw(hh1)
    Hw2(2) = Hw(hh2)
        
    ' 以上是从后卫中随机取2个同学给数组Qf1
    
    ' 以下是从中锋中随机取2个同学给数组Qf1
    z1 = Int(1000 * Rnd + 1)
    
     If z1 <= 500 Then
        Zf1(1) = Zf(1)
        Zf1(2) = Zf(2)
        Zf2(1) = Zf(3)
        Zf2(2) = Zf(4)
    Else
        Zf1(1) = Zf(3)
        Zf1(2) = Zf(4)
        Zf2(1) = Zf(1)
        Zf2(2) = Zf(2)
    End If
    
    
    ' 以上是从中锋中随机取2个同学给数组Qf1

'第一组名单

For i = 1 To 3
  Text1(i).Text = Qf1(i)
Next i

For i = 1 To 2
   Text1(i + 3).Text = Hw1(i)
Next i

For i = 1 To 2
   Text1(i + 5).Text = Zf1(i)
Next i


'第二组名单
For i = 1 To 3
  Text1(i + 7).Text = Qf2(i)
Next i

For i = 1 To 2
   Text1(i + 10).Text = Hw2(i)
Next i

For i = 1 To 2
   Text1(i + 12).Text = Zf2(i)
Next i


End Sub