| | | 제 목 | ''''62'''' 런타임 오류..파일끝을 넘어가는 입력입니다..(25강1번문제) | | | 글쓴이 | 김기훈 | 작성일 | 2005-07-03 | 조회수 | 1699 | | | 글공유 | |
| | | 코딩은 아래와 같이 했습니다.
자꾸 "62런타임오류..파일끝을 넘어가는입력입니다"..라고 나오네요..
대체 어디가 잘못된건지 답답합니다,..알려주세요.
sub main()
''''''''필수변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant
''''''''핵심변수선언
Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000), temp, p, num As Variant
''''''''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''''''''입력파일처리
Open "c:\c_it\data\abc05.txt" For Input As #1
For k = 1 To 인수2
Line Input #1, 버퍼
If k >= 인수1 Then
''''''''변수선언
제조등급 = Trim(Mid(버퍼, 29, 1))
매출액 = Val(Mid(버퍼, 26, 3))
판매량 = Val(Mid(버퍼, 15, 3))
제조포인트 = Val(Mid(버퍼, 20, 3))
''''''''합계구하기
If 제조등급 = "C" And 매출액 >= 80 Then
num = num + 1
합계(num) = 판매량 + 제조포인트
End If
End If
Next k
''''''''정렬
For k = 1 To num
For p = k To num
If 합계(k) < 합계(p) Then
temp = 합계(k)
합계(k) = 합계(p)
합계(p) = temp
End If
Next p
Next k
Close #1
''''''''출력파일처리
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(5)
Close #2
End Sub
| |
|
|
이전글
다음글
