오늘 4월30일 시험본거 코딩해봤습니다...그런데 인수값지정도 했는데...메모장에 인수값은 나오는데 답이 안나옵니다...왜 그런거죠? 답답해서 미치겠습니다...시험도 얼마 안남았는데 ...빠른답변 부탁드립니다..수고 하세요....

Sub main()
''필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant
''핵심번수선언
Dim 담임코드, 영어점수, 수학점수, 학번(1000), 합계(1000), j, temp, num As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''필수파일처리
Open "c:\c_it\data\abc1115.txt" For Input As #1
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
''변수저장
담임코드 = Trim(Mid(버퍼, 29, 1))
영어점수 = Val(Mid(버퍼, 14, 3))
수학점수 = Val(Mid(버퍼, 17, 2))

If 담임코드 = "A" And 담임코드 = "C" Then
num = num + 1
합계(num) = 영어점수 + 수학점수
학번(num) = Val(Mid(버퍼, 1, 6))
End If
End If
Next i

''정렬
For i = 1 To num
For j = i To num
 
 If 합계(i) < 합계(j) Or _
     (합계(i) = 합계(j) And 학번(i) > 학번(j)) Then
    
     temp = 합계(i)
     합계(i) = 합계(j)
     합계(j) = temp
    
    
    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, 학번(5)
Close #2
End Sub