질문 정보처리 기능사 실기 프로그램 작성 질문이에여^^

[aksEkd]

제가 정보처리기능사 실기 준비를 하는데여

연습하다 보니까

아래와 같이 프로그램 작성했거든여

근데 실행을 시키면 자꾸

컴파일 오류입니다.
내부 프로시저가 잘못되었습니다

라고 나와여...뭐가 잘못됐는지 도무지 모르겠거든여

제발 도와주세여 여러분^^

Option Explicit
Private Sub Form_Load()

Type inrec
거래번호 As String * 6
제품번호 As String * 2
제품구분 As String * 1
거래처번호 As String * 6
거래처등급 As String * 1
단가 As String * 5
판매량 As String * 3
이익포인트 As String * 3
판매구분 As String * 1
담당이메일 As String * 4
배달거리 As String * 3
End Type

Dim outrec As inrec

Sub main()
Open "c:\c_it\data\abc0125.txt" For Random As #1 Len = Len(outrec) + 2
Open "c:\c_it\data\ans1.txt" For Output As #2

a = Val(Left(Command, InStr(Command, " ")))
b = Val(Mid(Command, InStr(Command, " ")))

Max = 0

For i = a To b

Get #1, i, outrec

sik = Val(outrec.단가) * Val(outrec.판매량)

If sik > Max Then
Max = sik
out = outrec.거래번호
ElseIf sik = Max And outrec.거래번호 < out Then
out = outrec.거래번호
End If

Next

Debug.Print a, b, out

Print #2, CStr(a), b, out

Close #1, #2

End Sub