''''변수저장
지역코드 = Trim(Mid(버퍼, 6, 1))
연봉 = Val(Mid(버퍼, 14, 5))
지역코드 = Val(Mid(버퍼, 19, 5))

지역코드가 겹쳤네요..마지막은 혹시 이적료 아닌가요??

>>

특강 1의 문제 1 구인정보관리 입니다..

>>

답이 나오지 않네요

>>

Option Explicit

>>

Sub main()

>>

''''필수변수선언

>>

Dim 인수1, 인수2, i, 버퍼 As Variant

>>

''''핵심변수선언

>>

Dim 지역코드, 연봉, 이적료, 합계(1000), j, Temp, Num 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

>>

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
    Num = Num + 1
    합계(Num) = 연봉 + 이적료
End If

>>

       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