Option Explicit type rec .. . . . 중략.. End Type Dim R As Rec Sub Main() Dim a, b, c a = val(Left(command,Instr(command," "))) b = val(Mid(command,Instr(command," "))) open "c:\c_it\data\*.txt" For Random As #1 Len  = Len(R) +2 open "c:\c_it\data\*.txt" For Output As #2 For c = a to b       Get #1, c, R ------------------------------------------------------------------------------------ 횽들도 알다시피 여기까지는 공통소스야 그냥 외우면 되는 거지.. 물론 아래서 쓰인 변수는 더 선언해줘야지. 1.최대,최소값( 두개 똑같으니까 최소값만 쓸게) 만약 C가 20이상인 A에 대해서 (B+C)의 값중 가장 작은 값을 출력한다고 하면(동일값 발생시 한번만) min=999999999999 이런 변수를 하나 추가시켜주고, if Val(R.C) >= 20 then      s = Val(R.B) + Val(R.C)      if s < min then      min = sik end if end if next    이렇게 쓰면 끝. 완전 개 쉽지. 만약 문제서 동일값 발생하면 D값이 가장 큰 값이 가장 큰놈을 출력해라 한다 치면.. if s < min or s=min and Val(R.D) > max then     max = s     max = (R.D) 이런 식으로만 써주면 된다. 이것만 알면 최소 최대값 문제는 끝-.-; 2. 선택문 표가 나왔다면 Select Case Ucase(R.****)      Case "A" : pt=5      Case "B" : pt=10      Case "C" : pt=15      Case Else : pt=20 End Select 뭐 이런 형식으로만 앞에 선언해주면 되는거구.. 3. 순위 C가 30이상인 자료 중 (A*B) 값이 큰 순으로 순위를 정할 때 5번째 자료를 구한다고 치면. if Val(R.C) >= 30 then     cnt = cnt + 1     Gi(cnt) = Val(R.A)*Val(R.B) End if next. For c = 1 To cnt    Rnk(c) = 1    For d = 1 To cnt        if Gi(c) < gi(d) +1    End if next next out = Rnk(5) 이렇게만 해주면 순위 구하는 것도 끝이지. 4. 정렬 C인 어떤 자료에 대해서 (A+B)의 값에 따라 내림차순으로 정렬했을때 5번째 자료의 (A+B) 의 값을 출력한다고 쳐보자. Dim Ar(1000) As Rec, t As Rec 일단 이 변수들을 앞에 선언해주고 나서 또 똑같이.. if ~~~ 문제에 해당되는 조건으로 지정해주고 then    Cnt = Cnt +1    Ar(cnt) = R      end if next 여기부터가 정렬 For c = 1 to cnt    For d = c+1 to cnt         s1 = Val(Ar(c).A)+Val(Ar(c).B)         s2 = Val(Ar(d).A)+Val(Ar(d).B)     if s1 < s2 then     t=Ar(c) : Ar(c) = Ar(d) : Ar(d) =t End if next next out = Val(Ar(5).A)+Val(Ar(5).B) 이렇게 해주면 끝! 뭐 오름차순이라면 s1 > s2이런식으로 바꿔주면 되는거구.. 동일값이 발생했다 치면 역시 최소값 최대값에서 했던 것 처럼 해주면 되는거고 -------------------------------------------------------------------------------------- 마지막 공통 소스.. Debug.Print a, b, out // 출력변수가 out이라면.. Print #2, a, b, out Close End sub 솔직히 이것만 할줄 알면 정보처리산업기사나 정보처리기사 실기는 껌이지. 물론 기능사는 정렬이나 순위문제도 잘 안나오기 땜에 발로만 안하면 왠만해선 합격할 걸. 나도 담달 초에 산업기사 실기가 있어서 복습도 해볼겸 간단히 정리해봤어. 사실은 병특갈라고 셤 보는 건데  그냥 군대나 갈라고. 셤 치는 횽아들 누나들 담달에 셤 잘봐~~