조금이나마 도움이 되었음 해서 이렇게 글을 적어 봅니다...^^;;
<br>
<br>
왜 이렇게 글을 적냐면... 사촌형이 이번에 필기에 붙었다구 해서
<br>
<br>
설명해주다 보니 자연히 저도 머리속에 들어 와서 다시한번 되풀이 하여
<br>
<br>
제 머리속에 확실하게 넣을려구요.. 물론 소스 해석으로 인해
<br>
<br>
이 글을 읽으신분도 도움이 되셨음 해서요...^^;
<br>
<br>
우선 보통 1번 문제에 대해서 소스에 대한 해석을 해보겠습니다.
<br>
<br>
문제는 대충 국어점수+영어점수 에 따라 내림차순 정렬 하였을때 5번째 자료..
<br>
<br>
단 동일 값 발생시 오름차순 하여 나타 내시오 거든요
<br>
<br>
자자 우선 소스를 타이핑 하기 전에...
<br>
<br>
이 카페에 저장되 있는것은 폼을 사용 한것이고...
<br>
<br>
전 폼이 아니라 폼을 제거 하고 모듈을 생성 해서 약간이 소스에 변화가 있다는걸
<br>
<br>
미리 말씀 드리고자 합니다... 전 모듈에서 타이핑 한것입니다..이점 알아두세요~!
<br>
<br>
그럼 우선 소스에 대해서 txt문서에 대해서 가져 올때 비베가 인식할수 있도록
<br>
<br>
선언을 해주는 부분 소스 입니다~ 다들 아시겠지만 확실히 아시길 바라며..^^;;
<br>
<br>
Option Explicit
<br>
Type recode
<br>
학번 as string * 6
<br>
이메일 as string * 4
<br>
국어점수 as string * 3
<br>
영어점수 as string * 3
<br>
수학점수 as string * 3
<br>
과학점수 as string * 3
<br>
국사점수 as string * 3
<br>
총점점수 as string * 3
<br>
담임코드 as string * 1
<br>
성취도 as string * 1
<br>
지역코드 as string * 1
<br>
end type
<br>
Dim 자료 As recode
<br>
<br>
이부분은 txt파일에 대해 테이블형식으로 변환 하는 과정을 선언 하는 부분입니다.
<br>
<br>
대충 보심 아시겠지만 학번은 string 선언으로 6byte에 대한 선언이고
<br>
<br>
점수는 3byte 코드 및 성취도는 1byte 로 선언 한것입니다~
<br>
<br>
왜 이렇게 선언을 했냐 하면~ 텍스트 문서의 byte당으로 구분을 해서 마치 구분이
<br>
<br>
있는것 처럼 나태나려 하는것 입니다.. 이부분은 어떤 문제가 됬던지 선언을 해야
<br>
<br>
하는 부분입니다. 그러면 맨위에 타입(제가 편하게 한글로 표기 하겠습니다..^^;)
<br>
<br>
타임 레코드 이부분 있죠? 레코드라는 임의의 단어를 테이블형을 표기한 형식을
<br>
<br>
하나로 저장시키려 하는것입니다. 즉 레코드는 쉽게 말하면.."가족" 이렇게 하나로
<br>
<br>
묵는것처럼 가족에는 아버지도 있고 어머니도 있고 아들도 있고..이렇게 하나를
<br>
<br>
묶어 가족으로 나타내는것처럼... 레코드는 테이블에 대한 형을 단지 레코드로
<br>
<br>
쉽게 표기 하려는 묶음형 단어라 하심 쉽게 이해 하실꺼라 생각합니다.
<br>
<br>
그래서 밑에 엔드 타입은 하나의 레코드 타입을 시작과 끝을 표기 한것이며
<br>
<br>
dim 자료 as recode 는 다시 레코드란 변수를 자료라는 변수로 바꾼것입니다.
<br>
<br>
참고로 비베는 한글도 표기가 되고 한글에 대한 변수 명을 써줘도 문제가 없습니다.
<br>
<br>
Type group1 /*"그룹1" 이라는변수를 선언합니다
<br>
학번 as String /* "학번" 이란 변수를 스트링으로 선언합니다
<br>
합 as Long /*"합" 이라는 변수를 롱으로 선언합니다.
<br>
end Type /*타입을 끝냅니다.
<br>
<br>
여기서 그룹화를 한것은 문제를 보심 아시겠지만 학번은 주민번호처럼 한개가 있는
<br>
<br>
것이고 합이란 변수를 선언 함으로써 국어점수와 영어점수에 대해서 합을 하나의
<br>
<br>
변수로 그룹화 시킨것입니다.
<br>
<br>
Dim 학생(1000) as group1 /*1000개의 행에 대한 그룹으로 선언합니다.
<br>
Dim 임시 as group1 /*임시라는 변수를 그룹으로 선언해줍니다.
<br>
<br>
여기서 학생은 천명이 있다는걸 나타내는 것이고
<br>
<br>
임시는 나중에 밑에 나오는데 정렬에는 내림차순 오름차순이 있는데.
<br>
<br>
여기서 값에 따라 정렬을 하고자 할때는 컴퓨터는 3개의 저장소가 있어야 합니다
<br>
<br>
밑에서 다시 설명하겠지만 간단하게 2개에는 들어있는 저장소(값이 들어 있는..)
<br>
<br>
한개는 비어있는 저장소가 바로 임시라는 변수로 선언하여 값이 없는곳을 선언한
<br>
<br>
것입니다..
<br>
<br>
-----------------여기까지가 선언부분입니다...---------------------------------
<br>
<br>
본격적으로
<br>
<br>
Sub Main()
<br>
Dim a, b, cnt, i, j As Integer /*임의의 변수 a와b,cnt와 i,j등을 인티져
<br>
<br>
인티져로 선언한 것입니다.. 스트링과 인티져의 차이점은..저장공간의 차이입니다.
<br>
<br>
오래되서 까먹었는데 대충 설명해보자면..
<br>
<br>
Byte 1바이트 ,Integer 2바이트 Long 4바이트 Double 8바이트 String 문자당 1Byte
<br>
<br>
입니다.. 선언의 차이는 저장공간의 절약을 위한것입니다..^^;; 대충~~*
<br>
<br>
open "C:\C_it\data\abc1115.txt" For Random As #1 Len = Len(자료)+2
<br>
<br>
파일을 여는 것입니다. 씨드라이브 및에...C_it 및에 data 및에 abc1115.txt 파일을
<br>
<br>
For Rendom : 바이트 수로 읽으라는 것이고...
<br>
<br>
Len: 자리수를 계산하는것이며 여기서 +2 는 자리수에 여유를 주기 위해 2byte를
<br>
<br>
더 준것입니다...
<br>
<br>
이렇게 해서 파일을 여는 것에 대한 소스이고..
<br>
<br>
Open "C:\C_it\data\ans1.txt" For Output as #2 /*답에대한 저장을..
<br>
<br>
답을 저장하는것으로 처음에 폴더를 열고 ans1에 대한 텍스트를 열고...
<br>
<br>
OutPut으로 인해 답을 그 텍스트 문서에 내 보내는 것입니다.
<br>
<br>
a = val(Left(command, InStr(command, " ")))
<br>
b = val(mid(command, InStr(command," "))) /*입력인자값 인식
<br>
<br>
여기서 a는 문제의 추출하려는 값에 대해 어디서 어디까지..의 조건을
<br>
<br>
제시해주는 것으로 만약 100 에서 200 까지이면.. 여기서 a는 100이고
<br>
<br>
200은 b 값이 되는거 입니다...
<br>
<br>
여기까지가 모든 문제에 대해서는 써주는 부분입니다...
<br>
<br>
더 쓰고 싶은데 시간이 넘늦어서리;; 짧은 글이나마 도움이 되셨는지;;
<br>
<br>
담에 제가 다시 글 올릴께요~+.+;;
<br>
<br>
위에 제가 쓴 부분은 다 외우시고 다 똑같이 써주는것만 아세요~
<br>
<br>
물론 변수명 같은건 자신이 쓰는거구요..원하는거..^^;
<br>
<!-- -->
첫댓글 이 사이틀은 전진하 교수님과 관련이 없는 사이틀입니다 JJH(전진하 교수님)정보처리 사이틀 http://cafe.daum.net/m2mcyber
쉽게 설명해시네요. 돔 많이 됬구요, 여기까찐 똑같이 쓰면 되니 별 어려움 없는데 그담이 더 문제잖아요, 전 이해를 못해 해메고 있는데, 여유있으시다면 추가설명 부탁드립니다.
제가 화요일까지 중간고사라 그거 끝나면 다시 추가 설명 해드릴께요..^^;;
a, b, cnt, i 까지가 Variant 타입이 되는 것이고, j만이 Interger타입이 되는 겁니다.
integer 선언 해도 별문제가 없는뎅...^^;;
고맙습니다~^^