답이 틀리네여.. 소스도 맞는것같구 , 입력파일 위치도 맞는데, 봐주세여..

5/4 오후 산업기사

문제1)

Option Explicit

Sub main()
''필수
Dim 인수1, 인수2, 버퍼, i As Variant
''핵심
Dim 국사점수, 과학점수, 합계(1000), j, num, temp As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일
Open "C:\C_it\data\abc1115.txt" For Input As #1
    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
            ''변수저장
            국사점수 = Val(Mid(버퍼, 23, 3))
            과학점수 = Val(Mid(버퍼, 20, 3))
            num = num + 1
            합계(num) = 국사점수 + 과학점수
        End If
    Next i
    ''정렬구하기(오름차순)
    For i = 1 To num
        For j = i To num
            If 합계(i) > 합계(j) Then
                temp = 합계(i)
                합계(i) = 합계(j)
                합계(j) = temp
            End If
        Next j
    Next i
Close #1
''출력파일
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
Close #2
End Sub

문제2)

Option Explicit

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\abc1115.txt" For Input As #1
   최대값 = 0
    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
            ''변수저장
            국사점수 = Val(Mid(버퍼, 23, 3))
            과학점수 = Val(Mid(버퍼, 20, 3))
            If 최대값 < (국사점수 + 과학점수) Then
                최대값 = (국사점수 + 과학점수)
            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