| | | 제 목 | 시험이 28일입니다. | | | 글쓴이 | 이정숙 | 작성일 | 2005-08-18 | 조회수 | 322 | | | 글공유 | |
| | | 안녕하세요.
오늘 오전까지 로그인 하면 강의를 들을수 있었는데
오후에 보니까 기간이 끝났나 강의실에 들어갈 수 없네요.
8월 28일날 시험인데 10일만 연장해주심 안될까요.
그리고 아까 전화로 문의 드렸는데요.
소스 코딩이 다 끝나고 직접실행창을 띄웠는데 실행을 누르면 결과값이 보이지 않습니다.
코딩은 제대로 해서 수검관리 에서는 채점이 100점으로 나오거든요.
직접실행창에서 확인하면 좋을것같은데요.
제가 소스 코딩한것을 보냅니다.
무엇이 잘못된는지 알려주시면 감사하겠습니다.
()
''필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant
''핵심변수선언
Dim 전월잔액, 당월잔액, 계좌번호(1000), 합계(1000), j, temp, num As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일처리
Open "c:\c_it\data\abc0004.txt" For Input As #1
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
''변수저장
전월잔액 = Val(Mid(버퍼, 18, 5))
당월잔액 = Val(Mid(버퍼, 23, 5))
''합계구하기
num = num + 1
합계(num) = 전월잔액 + 당월잔액
계좌번호(num) = Val(Mid(버퍼, 1, 5))
End If
Next i
''정렬(합계내림차순 or (합계같음 and 계좌번호오름차순))
For i = 1 To num
For j = i To num
If 합계(i) < 합계(j) Or _
(합계(i) = 합계(j) And 계좌번호(i) > 계좌번호(j)) Then
temp = 합계(i)
합계(i) = 합계(j)
합계(j) = temp
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, 계좌번호(10)
Close #2
End Sub
| |
|
|
이전글
다음글
