| | | 제 목 | 소스코딩좀 봐주세요..기사친구 모의고사 3회 호텔별예약관리입니다. | | | 글쓴이 | 전희경 | 작성일 | 2005-07-14 | 조회수 | 490 | | | 글공유 | |
| | | 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 회원구분 = "O" Or 회원구분 = "1" Then
num = num + 1
합계(num) = 예약수량 * 예약금액
예약번호(num) = Trim(Mid(버퍼, 1, 7))
End If
End If
Next K
''오름차순정렬
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
모의고사 3회를 이렇게 코딩을 했는데요...답이랑 비료를 해도 틀린 점이 안보입니다.
그런데 ..답에는 100 200 인수를 넣으면 P001106이 나와야 하는데요... 저는 아무리 해도
P001189가 나와요.... 뭐가 틀린거죠? | |
|
|
이전글
다음글
