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\san0105.txt" For Input As #1
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''''변수 저장
                회원구분 = Trim(Mid(버퍼, 33, 1))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                ''''배열변수 구하기
                If 회원구분 = 0 or 회원구분 = 1 Then
               
                Else  ------> 
                
                Num = Num + 1
                합계(Num) = 예약수량 * 예약금액
                End If
               
            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\ans2.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 합계(1)
       
    Close #2
   
End Sub

윗줄에 0과 1이 아닌수를 지정할때 선생님과 좀 다르게 코딩했거든요.근데 답은 같게 나오더라구요..이거 틀린건가요? 이거 맞음 합격인데 ㅡㅡ;;; 겁나죽겠어요..
함 확인해주심 안될까여?