>>어제의 저와 같으시군요..저도 어제 하루종일 그문제로 끙끙 앓았었는데

저도 초보라서 정확히는 모르겠지만

부등호방향 두군데가 잘 못되어있는것같아요.

If 단가>=50 then (=을 빼먹으신것같구요)

If 합계(i)<합계(j) then (부등호 방향이 반대로 되어있어요)

이외에 다른 문제가 있는지 모르겠지만..^^;;

확실히 반복해서 하다보니 하루차이인데도 확실히 이해의 폭이 넓어진것같아요.

끝까지 홧팅이요 ^^*

>>

처음부터 막히니 너무나도 답답합니다. 

>>

맨처음 예제인 거래처관리를 몇번째 코딩해보고 있는데요.

>>

강사님이 제시하신 4가지 샘플대로 답이 안나오고 있습니다.

>>

뭐가 문제일까요???

>>

>>

Option Explicit

>>

Sub main()

>>

    ''''''''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''''''핵심 변수 선언
    Dim 단가, 이익포인트, 거래포인트, 합계(1000),  j, Temp, Num As Variant
   
    ''''''''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''''''입력 파일 처리
    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
   

>>

>>

End Sub