Re:정보처리실기과제(1-3)

[평온의노을‥]

type inrec
사원번호 as string * 6
직위 as string * 1
호봉 as string * 2
기본급 as string * 4
근무지 as string * 1
직위수당 as string * 4
부양가족 as string * 1
부양가족 수당 as string * 3
초과시간 as string * 2
초과수당 as string * 3
세금 as string * 3
end type
dim outrec as inrec

sub main()
open "c:\c_it\data\ham0101.txt" for pandom as #1 len = len(outrec)+2
open "c:\c_it\data\ham2.txt" for output as #2
a= val(left(command,instr(command, " ")))
b= val(mid(command,instr(command, " ")))
최대값=0
for i= a to b
get #1, i, outrec
if 최대값 < val(outrec, 직위수당)then
최대값= val(outrec, 직위수당)
출력= val(outrec, 직위수당)
end if
next
debug.print a, b, 출력
print #2, trlm(a), b, 출력
close #1, #2
end sub