초급 첫번째문제 코딩해봤는데 처음부터 오류가 나네요
아무리 봐도 왜 틀렸는지 모르겠습니다
저와 비슷한 질문들에 올려진 답변을 보았는데 인수값을 정해줘야 한다네요 100 200으로요
그런데 그건 100번째에서 200번째 파일만 필요할때 쓰는 값아닌가요? 아님 모든 문제의 인수값을 똑같이 100 200으로 줘야하는 건가요?
그런데 강의 보면 값이 483 587 99 이렇게 답이 나와야 한다고 하는데 100 200 으로 하면 99가 안나오던데요
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