Option Explicit

Sub main()

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

''핵심 변수 선언
Dim 운행거리, 거래포인트, 단가, 합계(1000), j, Temp, Num As Variant

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

''입력파일처리
Open "c:\c_it\data\abc0107.txt" For Input As #1
   
    For i = 1 To 인수2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
        ''변수 저장
        운행거리 = Val(Mid(버퍼, 27, 6))
        거래포인트 = Val(Mid(버퍼, 23, 4))
        단가 = Val(Mid(버퍼, 14, 4))
       
        ''배열변수 구하기
        If 운행거리 >= 40000 Then
        Num = Num + 1
        합계(Num) = 거래포인트 + 단가
       
        End If
        End If
        Next i
       
   
            ''정렬(내림차순)
            For i = 1 To Num
                For j = i To Num
               
               
                If 합계(i) < 합계(j) Then
                Temp = 합계(i)
                합계(i) = 합계(j)
                합계(j) = Temp
               
                End If
               
                Next j
               
            Next i
           
   
   
   
  
Close #1

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

End Sub

2.3.4번은 잘 풀려서 답을 확인을 했는데.

1번은 맞게 코딩한것같은데 몇번을 확인해도 data 파일에 저장되어있지 않습니다.

왜그런걸까요?

인수값 넣어주고 실행해서 확인해볼려니 뜨질을 않내요..ㅜㅜ