강의 중 초급 두번째 문제요...
강의중 나온 부분과 답이 달라여...
하나는 안나오고..
똑 같이 했는데....

2번 중 4번 문제요..

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\abc02.txt" For Input As #1
   
        For K = 1 To 인수2
        Line Input #1, 버퍼
        If K >= 인수1 Then
           
            ''변수저장
            거래처신용도 = Trim(Mid(버퍼, 20, 1))
            단가 = Val(Mid(버퍼, 16, 4))
            월매출액 = Trim(Mid(버퍼, 26, 4))
        ''표처리
        Select Case 거래처신용도
            Case "G"
                할인금액 = 360
            Case "B"
                할인금액 = 450
            Case "D"
                할인금액 = 590
            Case "K"
                할인금액 = 810
        End Select
       
       
        ''합계구하기
        If 단가 >= 290 Then
            합계 = 합계 + 월매출액 - 할인금액
        End If
        End If
       
        Next K
       
       
   
    Close #1

    ''출력파일처리
    Open "c:\c_it\data\ans2-4.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
End Sub


전 답이 45197 나옵니다.....ㅠㅠ