안녕하세요. 기사친구 권우석입니다.

결과값이 안 나오는 경우를 이번에 접해 보셨으니(에러 메시지 없는 오류가 가장 해결이 어렵죠^^) 시험장 가셔서는 꼭 합격 하실 겁니다.

결과가 나오지 않는 경우는 출력파일 처리에서

Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계(5)
Close #2

합계(5) 에 값이 없다는 뜻입니다. 그럼.....왜 합계(5) 값이 없을까요?

그건...변수저장 부분에 처리가 잘못되어서 그럴 가능성이 높습니다. 레코드에서 변수값을 추출하는 부분과 조건문 처리가 잘못되었기 때문입니다.

제가 강의 중에도 말씀드렸지만...많은 오류를 보셔야 합니다. 에러메시지가 보이는 에러든..아니든... 좋은 경험하셨습니다. 다른 오류도 일부러 만들 필요 있습니다. 아래 소스와 비교해 보시고 그래도 해결이 안될 경우는 메일로 작성한 소스를 보내주세요. iwebmania@edumoa.com

''입력 파일 처리
    Open "c:\c_it\data\abc0001.txt" For Input As #1
   
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                단가 = Val(Mid(버퍼, 12, 3))
                이익포인트 = Val(Mid(버퍼, 20, 3))
                거래포인트 = Val(Mid(버퍼, 27, 3))
               
                If 단가 >= 50 Then
                    Num = Num + 1
                    합계(Num) = 이익포인트 + 거래포인트
                End If
               
            End If
        Next i
       
        ''정렬(합계 내림차순)
        For i = 1 To Num
            For j = i To Num
           
                If 합계(i) < 합계(j) Then
                    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