직장생활하니, 시간도 낼 까지 얼마없는데,

초급이라도 풀고가려고 코딩연습하는데 결과가 맞지 않으니 환장하겠군요..

강사님 코딩이랑 같은거 같은데,왜 답이 틀리는지..

일단 아래 글과 같은 시험인05년 5월 5일오전 시험 2번입니다..

답은  100  200  17 인데, 제 코딩한거로는

          100  200  999999999 가 나오네요..

Option Explicit

Sub main()

    ''필수
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''핵심
    Dim 지도코드, 과학점수, 영어점수, 최소값 As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력
    Open "c:\c_it\data\res0105.txt" For Input As #1
       
        최소값 = 999999999
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
           
            If K >= 인수1 Then
                ''변수저장
                지도코드 = Trim(Mid(버퍼, 14, 1))
                과학점수 = Val(Mid(버퍼, 26, 3))
                영어점수 = Val(Mid(버퍼, 20, 3))
           
                ''합계
                If 지도코드 = "c" Then
                   
                    If 최소값 > 과학점수 + 영어점수 Then
                        최소값 = 과학점수 + 영어점수
                    End If
                   
                End If
           
               
            End If
       
        Next K
       
       
       
       
    Close #1
   
       
    ''출력
    Open "c:\c_it\data\ans2.txt" For Output As #2
        Print #2, 인수1, 인수2, 최소값
    Close #2

End Sub