1회문제에서 똑같이 코딩해봤는데
''인수 처리 인수1 = Val(Left(Command, InStr(Command, " "))) 인수2 = Val(Mid(Command, InStr(Command, " ")))
인수2부분에서 오류가 뜨네요 ''프로시저 호출 또는 인수가 잘못되었습니다.''라고 나오는데 뭐가 잘못된건지 도통 모르겠네요..
똑같이 코딩했는데...ㅠ.ㅠ
Sub main() ''필수 변수 선언 Dim 인수1, 인수2, I, 버퍼 As Variant ''핵심 변수 선언 Dim 단가, 이익포인트, 거래포인트, 합계(1000), NUM, TEMP, J 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 = 1 To NUM If 합계(I) < 합계(J) Then TEMP = 합계(1) 합계(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 |