텍스트파일 읽어서 배열에 할당하는 문제..고수님들 도와주세요.ㅠㅠ
흰가람
안녕하세요 아래 과제를 풀어야하는데, 나름대로 소스를 짜봤는데요
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]--
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2658583 | 비베 질문좀!!ㅠ (1) | 헤벌심 | 2024-06-17 |
2658552 | 프로그램 실행시키면 뜨는 페이지... | 매화 | 2024-06-17 |
2658528 | 간단질문.. | 말달리자 | 2024-06-16 |
2658475 | 리스트박스가 멍청합니다. | 큰가람 | 2024-06-16 |
2658446 | 비주얼 베이직 설치 단계 (제발 도와주세욥;;ㅠㅠ) (1) | 여자 | 2024-06-16 |
2658421 | 폼을키면화면중앙에켜지는것. | 눈꽃 | 2024-06-15 |
2658389 | cmd창 경로 대신 다른 프롬프드 실행시키기 (4) | 엄지 | 2024-06-15 |
2658359 | 으으 컨트롤이름이 (3) | 하람 | 2024-06-15 |
2658335 | DO Loop문 + Timer질문 (1) | 염소자리 | 2024-06-15 |
2658306 | did 화면 회전 (6) | 딸기향 | 2024-06-14 |
2658245 | 파싱하는중에 오류가 자꾸뜨네요... | 사에 | 2024-06-14 |
2658221 | 커맨드 버튼 노래 볼륨 | 놀리기 | 2024-06-14 |
2658193 | 424런타임 오류가 떠요;;ㅠㅠ (1) | 두메꽃 | 2024-06-13 |
2658166 | ListView 질문이요 ~ (1) | 겨울 | 2024-06-13 |
2658137 | Form load하면 wav파일 한번만 실행하기 (7) | 솔로 | 2024-06-13 |
2658078 | 관리자권한으로실행시키기 | 여우비 | 2024-06-12 |
2658051 | 비베 6.0으로 dll 메박 뜨게 하는 방법좀 ㅠ? (1) | 천사의눈물 | 2024-06-12 |
2658022 | 링커만 쓰면 프로그램이 이상해지네요 | 겨레 | 2024-06-12 |
2657992 | 저기 비베6.0 사용하시는분들 글좀읽어주십시오.. (3) | 일진누나 | 2024-06-12 |
2657963 | 레지등록 관련 부분 | 촉촉한 초코칩 | 2024-06-11 |