VBI 73

Private Sub Command1_Click()
    Dim SName As String
    Dim rn, tm As String
    Open "Marks.dat" For Append As #1
    rn = 1
    Do While rn > 0
        SName = InputBox("Enter Student Name", "String")
        rn = InputBox("Enter Roll No", "Integer")
        tm = InputBox("Enter Total Marks", "Integer")
        If rn = 0 Then
            Close #1
            End
        End If
    Write #1, rn, SName, tm
    Loop
End Sub

VBO 73

Advertisements