수다닷컴

안녕하세요 아래 과제를 풀어야하는데, 나름대로 소스를 짜봤는데요
EOF까지 라인별로 읽어들이는건 알겠는데, 그걸 배열에 어떻게 할당하고, 계산해야할지 막막하네요..
알려주시면 제게 정말 큰 도움이 될 것 같습니다.
읽어주셔서 감사합니다.3. 다음과같은 조건으로 변수를 선언한다.

1) 사용자 정의 자료형 이름 : Person
2) 사용자 정의 자료형에 들어가는 변수를 아래와 같이 선언
구분

변수명

자료형

이름
kName
String
시험
Exam
Integer
과제
Task
Integer
총점
Total
Integer
수료여부
IsPass
String
등수
Rank
Integer

4. 아래조건에 맞는 배열을 설정하여 해당 파일을 읽고 출력한다.

1)배열 이름 : Score
2)배열 크기 : 5
3)EOF를 만날 때까지 반복적으로 파일을 끝까지 읽음

5. 아래에맞춰 데이터를 계산/처리하고 출력한다.

1)총점 : 시험 + 과제
2)수료여부 : 60점 이상 Pass, 60점 미만 Fail 출력
3)등수 : 전체 중 학습자의 순위
4) 프로젝트 실행 시 아래와 같은 결과가 나와야 함Option Explicit
Private Type Person
kName As String
Exam As Integer
Task As Integer
Total As Integer
IsPass As String
Rank As Integer
End Type
Dim stCN As Integer
Dim Score(5) As PersontxtOutput.Text = 이름 시험 과제 총점 수료여부 등수
Dim fHandle As Integer
Dim InLine As String
fHandle = FreeFile
Open C:\Score.txt For Input As fHandle
Do While Not EOF(fHandle)
Line Input #fHandle, InLine
Loop
Close #fHandle!--[endif]--

신청하기