Sub Main()
    ''필수변수선언
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''핵심변수선언
    Dim 생물점수, 성취도, 총점, 지리점수, 최소값, 체육점수, 학번, 최대학번 As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc09.txt" For Input As #1
    최소값 = 99999
    최대학번 = 0
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수저장
                생물점수 = Val(Mid(버퍼, 11, 3))
                총점 = Val(Mid(버퍼, 29, 3))
                성취도 = Trim(Mid(버퍼, 27, 1))
                지리점수 = Val(Mid(버퍼, 8, 3))
                체육점수 = Val(Mid(버퍼, 14, 3))
                학번 = Val(Mid(버퍼, 1, 6))
               
                ''최대값구하기
                If 생물점수 < 40 And 성취도 = "C" Then
                  If 최소값 < (총점 - 지리점수) / 4 Or _
                  (최소값 = (총점 - 지리점수) / 4 And 최대학번 < 학번) Then
                   최소값 = (총점 - 지리점수) / 4
                   최대학번 = 학번
                   체육점수 = 체육점수
                                     
                  End If
                End If
               
           End If
       Next i
    Close #1
    ''출력파일처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
    Print #2, 인수1, 인수2, 체육점수
    Close #2
End Sub

잘 모르겠어서 나름대로 짜보긴 했는데요 끝부분이 틀린것 같은데 어떻게 해야할지 모르겠네요 당연히 답도 틀리게 나오고~

어떻게 해야하는거죠????ㅠ.ㅠ