|
|
|
|
 |
|
![]()
| 김민수 |
2004-07-26 14:10:18, 조회 : 1,765 |
|
|
|
<<정보처리 실기>>
<자료구조>
번호/성명/국어/컴퓨터
문2 문3 숫3 숫3
<문1> 감독위원PC로 다운받은 abc.txt파일을 읽어 컴퓨터 점수가
가장 큰 점수를 구하여 ans1.txt파일에 출력하시요.
Private Sub Form_Load()
'1 변수선언
Dim 번호(1000), 성명(1000), 국어(1000), 컴퓨터(1000), 결과1(1000), 결과2(1000)
Dim a, a1, a2, a3, b, b1, b2, b3, c, c1, c2, c3, d, d1, d2, d3, m, m1, m2, m3, i, j
'2 파라미터 읽기
a = Command()
b = InStr(a, " ")
b1 = Val(Left(a, b))
b2 = Val(Mid(a, b))
'3 초기값지정
m1 = -999999999999#
'4 읽기쓰기 파일 열기
Open "c:\c_it\data\abc.txt" For Input As #1
Open "c:\c_it\data\ans1.txt" For Output As #2
'5 전체 자료 읽어 필드구분하기
For i = 1 To 1000
Line Input #1, c
번호(i) = Trim(Mid(c, 1, 2))
성명(i) = Trim(Mid(c, 3, 3))
국어(i) = Val(Mid(c, 6, 3))
컴퓨터(i) = Val(Mid(c, 9, 3))
Next
'6 자료 처리
'7. 결과 출력
'8 파일닫기 및 종료
End Sub |
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
이전글
