VERSION 5.00
Begin VB.Form FrmDbtj 
   Caption         =   "体育达标统计"
   ClientHeight    =   3045
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3045
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Pic1 
      BackColor       =   &H00FFFFFF&
      Height          =   2655
      Left            =   240
      ScaleHeight     =   2595
      ScaleWidth      =   4155
      TabIndex        =   0
      Top             =   240
      Width           =   4215
      Begin VB.CommandButton Cmd1 
         Caption         =   "开始统计"
         Height          =   375
         Left            =   2640
         TabIndex        =   1
         Top             =   2160
         Width           =   1335
      End
   End
End
Attribute VB_Name = "FrmDbtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s(1 To 8) As Integer
Private Sub Cmd1_Click()
   Pic1.Cls
   For i = 1 To 24
     x = Val(InputBox("请输入项目通过同学的编号", "数据输入"))
     If x = -1 Then       '设-1为数据输入的退出标志
       Exit For           '退出循环
     Else
       s(x) = s(x) + 1    '编号输入次数的统计
       If s(x) = 3 Then   '下标为编号的下标变量值是3表示该编号的同学达标
         Pic1.Print Space(2) + "编号为" + CStr(x) + "号的同学达标"
       End If
     End If
   Next i
End Sub
