기사친구와 함께하시면 합격은 기본이죠..^^ 문제가 보이질 않아 전화 드렸었는데..놀라셨죠..ㅎㅎㅎ

소스를 확인하고 비교해 보세요.. 즐거운 주말 보내세요.

Option Explicit

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 예약금액, 사은포인트, Num As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\abc0017.txt" For Input As #1
   
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                ''표처리
                Select Case 예약금액
                    Case Is >= 70001
                        사은포인트 = 2500 + (예약금액 * 4)
                    Case Is >= 60001
                        사은포인트 = 2000 + (예약금액 * 3)
                    Case Else
                        사은포인트 = 1500 + (예약금액 * 2)
                End Select
               
                ''Num 구하기
                If 예약금액 >= 50000 And 예약금액 < 80000 Then
               
                    If 사은포인트 >= 200000 Then
                        Num = Num + 1
                    End If
                   
                End If
               
            End If
        Next i
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
       
        Print #2, 인수1, 인수2, Num
       
    Close #2
End Sub