안녕하세요.
어제 모의 고사에서 ***.186. 32번 컴퓨터로 했어요.
인수 100,200 줘서, 계산하고 맞다고 생각햇는데..
0점으로 되어 있네요.
어디가 틀렸는지 잘 모르겠어요~
가르쳐주세요.
-------------------
Option Explicit

Sub main()

''원래
Dim 인수1, 인수2, K, 버퍼 As Variant

''문제 변수
Dim 고객구분, 예약수량, 예약금액, 합계(1000), P, Num, temp 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
   
    ''변수 저장
    고객구분 = Trim(Mid(버퍼, 33, 1))
    예약수량 = Val(Mid(버퍼, 18, 5))
    예약금액 = Val(Mid(버퍼, 23, 10))
  
   
    ''합계
    If 고객구분 <> "0" Or 고객구분 = "1" Then
    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