답이 틀리게 나와서요...
선생님의 코딩을 비교해가면서 틀린부분을 겨우 찾았는데여..
아무리 바두 똑같아요..
이런건 왜그런건가여.?
정말 수십번 바꿔가면서 해바두...선생님 코딩은 답이 바루 나오는데요...16625루
제껀 1900이 계속 나와요...
정말 왜그런건가요..?

하루종일 4문제가지구 씨름하구 있네여....ㅠ.ㅠ
걱정..................@.@
 

 이건 제가 코딩한거 복사해서 올린거구여...
검은색인 부분에서 답이 다르게 나옵니다...
정말 알수 없어여...
다른점이 없는것 같거든여..
갈쳐주세요.....좌절중--수고하세염~^^
   
Option Explicit

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\abc0001.txt" For Input As #1
       
        For k = 1 To 인수2
            Line Input #1, 버퍼
            If k >= 인수1 Then
           
            ''''''''변수저장
             단가 = Val(Mid(버퍼, 12, 3))
             운송코드 = Trim(Mid(버퍼, 19, 1))
             거래처등급 = Trim(Mid(버퍼, 23, 1))
       
       
            ''''''''표처리
                Select Case 운송코드
                    Case "A"
                        할인포인트 = 5
                    Case "B"
                        할인포인트 = 15
                    Case "C"
                        할인포인트 = 20
                End Select
                  
            ''''''''합계구하기
               If 거래처등급 = "B" Then
               
               
               합계 = 합계 + 단가 * 할인포인트  <-선생님 꺼 16625나옴,
                    
               합계 = 합계 + 단가 + 할인포인트  <-제꺼-.-1900나옴
               
               End If
            End If
        Next k
    Close #1
   
   
   
    ''''''''출력파일처리

    Open "C:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
       
    Close #2

End Sub