강의로 풀어주신건데 그대로 했는데 결과값이 100 200              게 않뜨네요
원인이 뭔지요?

그리고 수검관리프로그램이 받아지지가 않아요..
자꾸 오류가 뜹니다.


Option Explicit

Sub MAIN()

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

''''핵심인수선언
Dim 지불일자, 지불금액(1000), 일련번호(1000), P, TEMP, NUM As Variant

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

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

   For k = 1 To 인수2
     Line Input #1, 버퍼
     If k >= 인수1 Then
     ''''변수저장
     지불일자 = Trim(Mid(버퍼, 61, 10))
    
    
     If 지불일자 = "1999" Then
     NUM = NUM + 1
     지불금액(NUM) = Val(Mid(버퍼, 48, 10))
     일련번호(NUM) = Trim(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
     
     
End If
Next P
Next k
 
Close #1

''''출력파일처리

Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 일련번호(1)

Close #2

End Sub

 ----------