[답] Re:정보처리실기과제(2-2)

[후르바〃]

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 *3
고객종류 as string *3
end type
dim outrec as inrec
sub main()
open"c:\c_it\data\abc.txt"for random as #1 len=len(ouyrec)+2
open"c:\c_it\data\ans2.txt"for output as #2
a=val(left(command,instr(command, " ")))
b=val(mid(command, instr(command, " ")))
For i=a to b
get #1, i, outrec
if ucase(outrec.지점코드)="B" then
if val(outrec.당월잔액)>=60000 then
출력=출력+Val(outrec.당월잔액)
end if
end if
next
debug.print a, b, 출력
print #2, trim(a), b, 출력
close #1, #2
end sub