정보처리기사 해설

소개글

정보처리기사 실기문제 해설입니다.

목차

없음

본문내용

Option Explicit

Type 레코드
제조번호 As String * 6
제조구분 As String * 1
담당자 As String * 4
단가 As String * 3
판매량 As String * 3
공장코드 As String * 1
거래코드 As String * 1
제조포인트 As String * 3
출고횟수 As String * 3
매출액 As String * 3
제조등급 As String * 1
End Type

Dim 자료 As 레코드, 인수1 As Long, 인수2 As Long

Sub main()

Dim 추가포인트 As Long, i as Long
Dim 합계 As Long

인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

Open "c:\c_it\data\M071420.txt" For Random As #1 Len = Len(자료) + 2
Open "c:\c_it\data\ans4.txt" For Output As #2

For i = 인수1 To 인수2
Get #1, i, 자료
If Val(자료.단가) <= 80 Then
Select Case 자료.제조구분
Case Is = "A"
추가포인트 = 5
Case Is = "B"

참고 자료

없음