Option Explicit

Sub main()

    ''''''''필수변수선언
    Dim 인수1, 인수2, i As Long
    Dim 버퍼 As String
   
    ''''''''핵심변수선언
    Dim 예약수량, 예약금액, 합계(1000), j, temp, num As Long
    Dim 회원구분 As String
   
    ''''''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''''''입력파일처리
    Open "c:\c_it\data\san0105.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''''''''핵심코드작성(변수값저장)
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
                회원구분 = Trim(Mid(버퍼, 33, 5))
             
                if 회원구분 <> "0" and <> "1" 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, 합계(1)
    Close #2
   
   
End Sub

왜 에러가 나는지 잘 모르겠습니다..설명좀 해주세요~



2번 문제에서보면요 회원구분이 첫 번째값이 ''''0''''도 아니고 ''''1''''도 아닌 자료에 대해서
구하라고 했자나요
그래서 변수저장을 할때
회원구분 크기 5를 지정하는 것이 아니라 1로 지정해야 하는것 같은데요..
그래서 회원구분=trim(mid(버퍼,33,1))
이렇게 변수저장을 해서 다시 실행시켜보세요 ^^


-> 그렇게 해도 똑같은 부분에서 에러가 나는데요....
어떻게 해야하죠...