Option Base 1
Dim a(20, 3) As Integer
Private Sub Command1_Click()
    Open App.Path & "\in4.dat" For Input As #1
    For i = 1 To 20
      For j = 1 To 3
          Input #1, a(i, j)
          Text1 = Text1 + Str(a(i, j)) + Space(4)
      Next j
      Text1 = Text1 + Chr(13) + Chr(10)
    Next i
    Close #1
End Sub
Private Sub Command2_Click()
  Dim x(3) As Integer
  For i = 1 To 20
'    ? = (a(i, 2) + a(i, 3)) / 2
      Select Case Avg
'        Case ?
            x(1) = x(1) + 1
'        Case ?
            x(2) = x(2) + 1
        Case Is < 60
            x(3) = x(3) + 1
'    ?
  Next i
  For n = 1 To 3
'    Text2( ? ) = x(n)
  Next n
End Sub