제가 강의중에 말씀드렸죠..많은 오류를 보고 해결해 보시라고...

연습할 때 문제마다 척척 풀고 오류 하나없이 해결하는 분도 계십니다.. 물론 연습을 많이 해서 그럴 수 있겠죠...그러나...막상 시험장에서 오류가 발생하면 해결 못 하는 경우가 있습니다.

그런 의미에서는 지금 오류가 시험장이 아니라 모의고사에서 발생했다는 것이 얼마나 고마운지 모르실 겁니다.^^

오류가 생기면 해결하면 됩니다. 그 힘을 키우세요.

몇 가지 수정할 부분이 있습니다.

1)
제조등급 = Trim(Mid(버퍼, 29, 1))

2)
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

3)
Open "c:\c_it\data\ans1.txt" For Output As #2