Dim students(36) As StringDim tempstu(36) As StringDim student(2, 2, 2, 2, 2, 2, 2, 2) As StringDim i As Integer
Private Sub Command1_Click()Dim sign As Integer
End Sub
Private Sub Form_Load()Open "d/:1.txt" For Input As
#1For i = 1 To 36Input #1, student(i)Next iEnd Sub