저 어제 첨 셤 봤는데
12 번에 A012번이었거든요..
혹시 저의 파일이 아니었나요??? --;

=> 박현숙님은 ***.***.***.184 서버에서 12번입니다. 다른 서버입니다.

전 어제 풀다가 3번이 잘 못되었다는 건 알았는데
오류를 찾지 못해 그냥 송신했거든요..
혹시
12번이 제 결과가 맞다면
어디가 잘 못되었는지 알수 있을까요?

=> 전송된 소스는 아래와 같습니다. 자료실에 있는 모의고사 소스와 비교해 보세요.

Option Explicit

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(버퍼, 93, 2))
            예약수량 = Val(Mid(버퍼, 18, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
           
            ''배열변수저장
            If 배달여부 <> "OK" Or 배달여부 <> "ON" 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\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 최대값(1)
Close #2

End Sub

그리고 어제 좀 접속이 안되서
모의고사 파일 받아서 풀다가 다시 접속하다가 그래서
제대로 모의고사를 잘 본건지 모르겠는데요
모의고사를 보다보니
여전히 인수값을 넣어야 하는 오류가 생기던데
시험장에서는 주어진다고 들을 것 같아서
좀 어리둥절 했거든요
인수값을 이번 모의고사처럼 시험장에서두 넣는 건가요?
(만약 제가 제대루 한거라면,, --;)

=> 자주하는질문을 확인해 주세요.(http://www.gisa79.com/news/news-02.html?Bmode=content&idx=64&page=1)

그리고 어제 8시정각에는 연결이 안되서
9시가까이 되서 혹시나 하구 연결하니까 되더라구요
그럼 언제까지 연결될수 있는 건가요?

=> 시험은 8시에서 11시까지입니다. 11시가 되면 접속이 중단되므로 그 전에 결과값을 전송하셔야 합니다.