6월 30일 초급문제 1번 정렬문제 코딩은 맞았는데

점수를 확인해보니까  틀렸다고  돼있네용

선생님께서 올려놓으신 코딩이랑 비교해보고

출력도 해보니까 100  200  201이라고 같은 값도 나왔거든요

근데 왜 틀렸다고 나왔을까요?

무지 답답합니다 ㅠ.ㅠ

제가 검산한다고 인수값에 100 200 대신에

1 10을  넣어보았더니 값이 안나오더라구요

그걸 그대로 감독관 컴에 전송해서 그런걸까요?

글고 1 10 을 넣었는데 왜 값이 나오지 않았을까요?


1문제를 풀고나서 계속 비쥬얼 베이직을 새로 열어서
저장했는대요 좀 불편한것 같아요
다른 방법은 없을까요?


시험장에 가면요~ data폴더 제가 만들어야하나요?
아님 미리 만들어져 있나여?

혹시 몰라서 제가코딩한거 첨부해서 보낼게요
확인부탁드립니당


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\abc05.txt" For Input As #1
For k = 1 To 인수2
Line Input #1, 버퍼
If k >= 인수1 Then

''''변수저장
제조등급 = Trim(Mid(버퍼, 29, 1))
매출액 = Val(Mid(버퍼, 26, 3))
판매량 = Val(Mid(버퍼, 15, 3))
제조포인트 = Val(Mid(버퍼, 20, 3))
If 제조등급 = "C" And 매출액 >= 80 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\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(5)
Close #2

End Sub