12회 2번

[하얀세상]

Type inrec
학번 As String * 6
이메일 As String * 4
국어 As String * 3
영어 As String * 3
수학 As String * 3
과학 As String * 3
국사 As String * 3
총점 As String * 3
지역코드 As String * 1
성취도 As String * 1
담당교사코드 As String * 1
End Type
Dim outrec As inrec
Sub main()
Open "c:\c_it\data\abc.txt" For Random As #1 Len = Len(outrec) + 2
Open "c:\c_it\data\ans2.txt" For Output As #2

a = Val(Left(Command, InStr(Command, " ")))
b = Val(Mid(Command, InStr(commamd, " ")))
최대값 = 9999999
For i = a To b
Get #1, i, outrec
If outrec.성취도 = "A" Then
If 최소값 > Val(outrec.총점) Then
최소값 = Val(outtrc.총점)
출력 = Val(outrec.총점)
End If
Next
Debug.Print a, b, 출력
Print #2, Trim(a), b, 출력
Close #1, #2
End Sub