제대로 한것 같고..정답이랑비교해봐도 뭐가 틀린지 눈에 안들어와요...


산업기사 7월 5일 오후 예여




Sub main()

''''필수 변수 선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''''핵심 변수 선언
Dim 국어점수, 국사점수, 합계(1000), p, temp, num As Variant

''''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수1 = Val(Mid(Command, InStr(Command, " ")))

''''입력파일 처리
Open "c:\c_it\data\abc1115.txt" For Input As #1
    For k = 1 To 인수2
    Line Input #1, 버퍼
    If k >= 인수1 Then
   
    ''''변수 저장
    국어점수 = Val(Mid(버퍼, 11, 3))
    국사점수 = Val(Mid(버퍼, 23, 3))
    
    ''''합계구하기
    num = num + 1
    합계(num) = 국어점수 + 국사점수
   
    End If
   
    Next k
   

    ''''오름차순 정렬
    For k = 1 To num
        For p = 인수1 To num
            If 합계(k) > 합계(p) Then
            temp = 합계(k)
            합계(k) = 합계(p)
            합계(p) = temp
            End If
        Next p
    Next k
   
   
Close #1

''''출력파일 처리
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
Close #2

End Sub