선생님, 안녕하세요?

기능사 완전 초보입니다,,

아무리 해도 안풀리는게 있습니당,,

까페랑 지식검색 다 해봐도

거기있는 답변대로 다해봐도

안됩니다,,

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
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\abc2130.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, " ")))

최소값 = 999999

For i = a To b

Get #1, i, outrec

계산 = Val(outrec.판매량) * Val(outrec.이익포인트)

If 최소값 > 계산 Then

 최소값 = 계산
 
 출력 = outrec.거래번호
 
 
 
ElseIf 최소값 = 계산 And 출력 < outrec.거래번호 Then

출력 = outrec.거래번호

End If

Next i

Debug.Print a, b, 출력

Print #2, Trim(a), b, 출력

Close #1, #2

End Sub

 
이렇게 했는데요,,



인수를 입력하여도 0 은커녕 아예 답이 안나옵니다,

인수값 100 200 입력한 것만 창에 나옵니다,,

대체 어떻게 해야되는지,,답이 안나오니까 진도도 못나가고있습니다..

ㅠ_ㅠ


어떤사람이 수검자등록먼저 하라길래 그거 먼저하고 해도 안나옵니다,,


제발 ,, 도움좀 주세요,,,,ㅠ_ㅠ 꼭 합격해야됩니다..실기변경전 마지막 시험인데...ㅠ