1번문제 풀다보니
답이 자꾸 연도 4자리만 나오고 월-일이 나오지 않는데
어떻게 해야 하죠..??

참고로 코딩을 올립니다...


Option Explicit

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

''''핵심변수선언
Dim 예약수량, 예약금액, 지불금액(1000), 예약일자(1000), 등록번호(1000), p, temp, num As Variant

''''인수저장
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''''입출력파일처리
Open "c:\c_it\data\abc06.txt" For Input As #1
    For K = 1 To 인수2
    Line Input #1, 버퍼
        If K >= 인수1 Then
            ''''변수저장
            예약수량 = Val(Mid(버퍼, 18, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
           
            ''''배열변수저장
            If 예약수량 * 예약금액 >= 700000 Then
                num = num + 1
                지불금액(num) = Val(Mid(버퍼, 48, 10))
                예약일자(num) = Val(Mid(버퍼, 8, 10))
                등록번호(num) = Val(Mid(버퍼, 1, 7))
               
            End If
           
        End If
       
    Next K
    ''''정렬
    For K = 1 To num
        For p = K To num
            If 지불금액(K) > 지불금액(p) Or _
                (지불금액(K) = 지불금액(p) And 등록번호(K) > 등록번호(p)) Then
           
                temp = 지불금액(K)
                지불금액(K) = 지불금액(p)
                지불금액(p) = temp
               
                temp = 등록번호(K)
                등록번호(K) = 등록번호(p)
                등록번호(p) = temp
               
                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, 예약일자(num)
Close #2

End Sub