| | | 제 목 | 선생님~!!! 다시요.. | | | 글쓴이 | 최은정 | 작성일 | 2005-07-23 | 조회수 | 346 | | | 글공유 | |
| | | 빠른답변 감사해요. ^^
아래 적어주신 주소로 가서 코딩이랑 확인해 보았습니다.
그런데.. 1번 문제 제 나름대로는 맞게 코딩한거 같았는데.. 답이 0이 나왔거든요.
정답코딩이랑 비교해봐도.. 역시나 틀린곳을 못찾겠어요.
정렬할때.. 가로치는거 이외에는요. 가로가 그렇게 중요한건가요?
그것보다는 다른데서 오답이 나온거 같은데..
코딩좀 봐주세요~~
오늘.. 모의고사 문제까지 전부 다 하고 밤새고 가야겠어요!!
Sub main()
''변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant
''필수변수선언
Dim 회원구분, 예약수량, 예약금액, 합계(1000), 예약번호(1000), p, temp, num As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일처리
Open "c:\c_it\data\abc03.txt" For Input As #1
For k = 1 To 인수2
Line Input #1, 버퍼
If k >= 인수1 Then
''변수저장
회원구분 = Trim(Mid(버퍼, 33, 1))
예약수량 = Val(Mid(버퍼, 18, 5))
예약금액 = Val(Mid(버퍼, 23, 10))
''배열합계구하기
If 회원구분 = "0" Or 회원구분 = "1" Then
num = num + 1
합계(num) = 예약수량 * 예약금액
예약번호(num) = Val(Mid(버퍼, 1, 7))
End If
End If
Next k
''합계오름차순 정렬or 합계동일 and 예약번호 오름차순
For k = 1 To num
For p = k To num
If 합계(k) > 합계(p) Or 합계(k) = 합계(p) And 예약번호(k) > 예약번호(p) Then
temp = 합계(k)
합계(k) = 합계(p)
합계(p) = temp
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, 예약번호(10)
Close #2
End Sub | |
|
|
이전글
다음글
