VBI 66.PNG

Private Sub Command1_Click()
    Dim i, rn, tm As Integer
    Open "Marks.txt" For Input As #1
    For i = 1 To 5
        Input #1, rn, tm
        Print rn, tm
    Next i
    Close #1
End Sub

VBO 66.PNG

Advertisements