제가 어제 질문을 올렸거든요..
답변을 좀 확인 할려구 아무리 찾아두 없네요..
...
자꾸 어제와 똑같은 오류가 생겨서 답답해 죽겠는데..
.............
5월5일 오전 초급문제 1번을 소스코딩했거든요

선생님꺼랑 비교해봤는데 틀린게 없는데 자꾸 답은 안나오고
200만 달랑 나와요..
왜 그러는 거죠???
짜증나 죽겠어요..
어제두 계속 그래서 질문 올렸는데..
전화를 주시던지 답글을 올려주세요


Option Explicit

Sub main()

''필수 변수 선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심 변수 선언
Dim 지도코드, 과학점수, 영어점수, 합계(1000), p, temp, num As Variant

''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수1 = Val(Mid(Command, InStr(Command, " ")))

''입력 파일 처리
Open "c:\c-it\data\res0105.txt" For Input As #1

  For k = 1 To 인수2
     Line Input #1, 버퍼
       If k >= 인수1 Then
      
          ''변수 저장
          지도코드 = Trim(Mid(버퍼, 14, 1))
          과학점수 = Val(Mid(버퍼, 26, 3))
          영어점수 = Val(Mid(버퍼, 20, 3))
         
          ''합계구하기
           If 지도코드 = "C" 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\ans01.txt" For Output As #2
 
 Print #2, 인수1, 인수2, 합계(5)

Close #2

End Sub