| | | 제 목 | 어디가틀린건가요??..ㅡㅡ기사(050511 오후문제랍니닷!) | | | 글쓴이 | 권순표 | 작성일 | 2005-07-08 | 조회수 | 319 | | | 글공유 | |
| | | Sub main()
''필수 변수 선언
Dim 인수1, 인수2, K, 버퍼 As Variant
''핵심 변수 선언
Dim 예약수량, 예약금액, 지불금액(1000), 예약일자(1000), 일련번호(1000), P, Temp, Num As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수1 = Val(Mid(Command, InStr(Command, " ")))
''입력파일처리
Open "c:\c_it\data\san0105.txt" For Input As #1
For K = 1 To 인수2
Line Input #1, 버퍼
If K >= 인수1 Then
''변수 저장
예약수량 = Val(Mid(버퍼, 18, 5))
예약금액 = Val(Mid(버퍼, 23, 10))
''배열변수 구하기
If 예약수량 * 예약금액 >= 7000000 Then
Num = Num + 1
지불금액(Num) = Val(Mid(버퍼, 48, 10))
예약일자(Num) = Trim(Mid(버퍼, 8, 10))
일련번호(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
Temp = 일련번호(K)
일련번호(K) = 일련번호(P)
일련번호(P) = Temp
End If
Next P
Next K
''출력 파일 처리
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 예약일자(Num)
Close #2
End Sub
| |
|
|
이전글
다음글
