산업기사 7월16일 오후문제요...
밑에분도 질문하셨는데..
답이 안나오네요....

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\abc0105.txt" For Input As #1
   
        For k = 1 To 인수2
        Line Input #1, 버퍼
            If k >= 인수1 Then
                ''변수 저장
                예약방법코드 = Trim(Mid(버퍼, 36, 2))
                고객구분코드 = Trim(Mid(버퍼, 17, 2))
                누적점수 = Val(Mid(버퍼, 40, 5))
                               
                ''표처리
                Select Case 예약방법코드
                    Case "LG"
                    추가포인트 = 335
                    Case "TE"
                    추가포인트 = 712
                    Case "FA"
                    추가포인트 = 223
                    Case "HU"
                    추가포인트 = 531
                End Select
               
               
                ''합계 구하기
                If 고객구분코드 = "vp" Then
                    합계 = 합계 + 누적점수 + 추가포인트
                End If
               
            End If
   
       
        Next k
       
          
       
       
       
    Close #1
   
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans8.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
        Close #2
   
   
   
End Sub