교수님.. 안녕하세요..
휴.. 문법을 다 듣고. 초급 기출문제를 풀려고 하는데.. 23강입니다.
교수님께서는 결과값을 탐색기에서 확인할수 있던데.. 저는 안되더라구요..
코딩을 했지만... 그후에 어떻게 해야 하는지... 무엇을 다운받아야 되는지요..
지금 진도 하나도 못빼고 있습니다..
계속해서 오류가 뜨는데 경로를 찾을수 없다고 나와요..그리고 파일도 찾을 수 없다고 나오구요,,
에궁... 답변 부탁드려요..ㅠㅠ
제 소스..무엇이틀렸나요?
계속해서 인수가 잘못되었다고 오류가 떠요..
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