form.frm

一个团竞赛程序

      Top             =   9720
      Width           =   2895
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "分"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   495
      Left            =   9240
      TabIndex        =   19
      Top             =   8520
      Width           =   1095
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "加"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   615
      Left            =   5160
      TabIndex        =   17
      Top             =   8520
      Width           =   975
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "四队"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   975
      Left            =   11640
      TabIndex        =   7
      Top             =   3480
      Width           =   2295
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "三队"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   855
      Left            =   8400
      TabIndex        =   6
      Top             =   3480
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "二队"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   855
      Left            =   5040
      TabIndex        =   5
      Top             =   3480
      Width           =   1575
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "一队"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   735
      Left            =   1680
      TabIndex        =   4
      Top             =   3480
      Width           =   1575
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "各队得分情况统计"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   975
      Left            =   3600
      TabIndex        =   3
      Top             =   2520
      Width           =   7335
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00000080&
      Caption         =   "纪念红军长征胜利七十周年"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   615
      Left            =   2880
      TabIndex        =   2
      Top             =   240
      Width           =   8895
   End
   Begin VB.Menu 文件 
      Caption         =   "文件"
      Begin VB.Menu 关闭 
         Caption         =   "关闭"
      End
      Begin VB.Menu 设定倒计时时间 
         Caption         =   "设定倒计时时间"
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
      Begin VB.Menu 关于竞赛程序 
         Caption         =   "关于竞赛程序"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim IsStart As Boolean, IsBeep As Boolean

Private Sub Check1_Click()
If IsBeep Then Check1.Value = 0 Else Check1.Value = 1
IsBeep = Not IsBeep
End Sub

Private Sub Command1_Click()
IsStart = Not IsStart
Timer1.Enabled = Not Timer1.Enabled
If IsStart Then Command1.Caption = "取消" Else Command1.Caption = "开始"
End Sub

Private Sub Command2_Click()

If Option1.Value = True Then
  Text2.Text = Str$(Val(Text2.Text) + Val(Text6.Text))
  Text2.Alignment = 2
   Else
    If Option2.Value = True Then
    Text3.Text = Str$(Val(Text3.Text) + Val(Text6.Text))
    Text3.Alignment = 2
      Else
         If Option3.Value = True Then
         Text4.Text = Str$(Val(Text4.Text) + Val(Text6.Text))
         Text4.Alignment = 2
           Else
             If Option4.Value = True Then
             Text5.Text = Str$(Val(Text5.Text) + Val(Text6.Text))
             Text5.Alignment = 2
         End If
        End If
    End If
  End If



End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Command4_Click()
Text1.Text = form3.Text1.Text
End Sub

Private Sub Command5_Click()
Form28.Show
End Sub

Private Sub Form_Load()
IsStart = False
IsBeep = False
End Sub

Private Sub Text1_Change()
Text1.Alignment = 2
End Sub

Private Sub Text2_Click()
Text2.Alignment = 2
End Sub

Private Sub Timer1_Timer()
If Val(Text1.Text) < 1 Then
MsgBox "时间到!"
Timer1.Enabled = False
Command1.Caption = "开始"
IsStart = False
Exit Sub
End If
Text1.Text = Str$(Val(Text1.Text) - 1)
If IsBeep Then Beep
End Sub


Private Sub 关闭_Click()
Form1.Hide
End Sub

Private Sub 设定倒计时时间_Click()
form3.Show
End Sub

Private Sub 通用对话框_Click()

End Sub