Re:파일을 불러와서 평균을 구하는 문제인데여 평균을 구할때.

[jinu]

2차원 배열을 사용하세여...

Type sMember
sName As Long
iNum(3) as Interger
End Type

dim sTemp() as sMember
dim i as Interger

Open "\dd.txt" For Input As #1
i=0
do while not EOF(1)
redim Preserve sTemp(i)
Input #1, sTemp(i).sName, sTemp(i).iNum(0), sTemp(i).iNum(1), sTemp(i).iNum(2), sTemp(i).iNum(3)
i=i+1
loop

이렇게 하심 되겠네여...
무슨 뜻인지 아시겠져???
sTemp(0) <= A sTemp(0).iNum(0) 국어 .....
sTemp(1) <= B sTemp(1).iNum(0) 국어 .....

이런식이니까...

과목별 평균을 구하려면

(sTemp(0).iNum(0) + sTemp(1).iNum(0) + sTemp(2).iNum(0))/3

몇명인지 모르시면 Ubound(sTemp) +1 하시면 전체 인원수가
나옵니다..

그럼 이만.

--------------------- [원본 메세지] ---------------------
Open "\dd.txt" For Input As #1
Input #1, name, kor, math, eng, sci
average = FormatNumber((kor + math + eng + sci) / 4, 2)
pic_result.Print name, kor, math, eng, sci, average

dd.txt에 사람 ABC세명의 국수영과 성적이 각각
A,10 20 30 40
B 20 30 40 50
C 30 40 50 60 일때요 각사람의 전체 평균은 구할수
있으나 과목별 평균을 구할수가 없더군요.

input가 순차라 그런거 가튼데

어떤 과목별평균을 구할수있는 방법이 없을까요.?

감사