Option Explicit

Sub main()
''''필수변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''''핵심변수선언
Dim 할인금액, 투숙기간, 합계(1000), p, temp, num As Variant

''''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''''입력파일처리
Open "c:\c_it\data\san0001.txt" For Input As #1

    For k = 1 To 인수2
        Line Input #1, 버퍼
        If k >= 인수1 Then
       
        ''''변수저장
        할인금액 = Val(Mid(버퍼, 30, 4))
        할인금액 = Val(Mid(버퍼, 15, 2))
       
        ''''합계구하기
        num = num + 1
        합계(num) = 할인금액 * 투숙기간
       
        End If
    Next k
       
        ''''정렬(오름차순)
       
        For k = 1 To num
            For p = k To num
                If 합계(k) > 합계(p) Then
                    temp = 합계(k)
                    합계(k) = 합계(p)
                    합계(p) = temp
                End If
            Next p
        Next k
       
    Close #1
               
''''출력파일처리
Open "c:\c_it\data\ans1.txt" For Output As #2

    Print #2, 인수1, 인수2, 합계(8)

Close #2

End Sub




산업기사 19강 호텔할인요금관리에서 1번문제 소스코딩을 똑같이 했습니다..위와같이..
그리고 인수값도 100 200을 줬는데 결과값이 0이 나오더라구요...다른인수값을 줘도 결과값이 계속 0이 옮니다 제가 뭐를 잘못했나요??