대소문자를 구분해야하는가봐요.

대문자로 고치니 결과값이 맞아요

문제에서 대소문자도 구별해야하나봐요

그럼 입력파일이나 출력파일도 대소문자 구분해야하는지요?

(c:\c_it~     or C:C_IT  등등)

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\abc0020.txt" For Input As #1
          ''''''''최소값 초기화
          최소값 = 9999999
          For i = 1 To 인수2
               Line Input #1, 버퍼
                If i >= 인수1 Then
               ''''''''변수저장
               지역코드 = Trim(Mid(버퍼, 6, 1))
               연봉 = Val(Mid(버퍼, 14, 5))
               이적료 = Val(Mid(버퍼, 19, 5))
              
               ''''''''최소값구하기
               If 지역코드 = "s" Then  (이거 대문자로 바꾸니 결과값이 맞네요)
                  If 최소값 > 연봉 + 이적료 Then
                    최소값 = 연봉 + 이적료
                  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