| | | 제 목 | 3,4번 분석 | | | 글쓴이 | 권우석 | 작성일 | 2005-07-14 | 조회수 | 486 | | | 글공유 | |
| | | 3번
Sub Main()
Dim 인수1, 인수2, K, 버퍼 As Variant
Dim 거래코드, 제조구분, 매출액, 추가포인트, 합계 As Variant
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
Open "C:\C_iT\data\abc05.txt" For Input As #1
For K = 1 To 인수2
Line Input #1, 버퍼
If K >= 1 Then ====> If K >= 인수1 Then
매출액 = Val(Mid(버퍼, 26, 3))
거래코드 = Trim(Mid(버퍼, 19, 1))
제조구분 = Trim(Mid(버퍼, 7, 1))
Select Case 거래코드
Case "A"
추가포인트 = 5
Case "B"
추가포인트 = 10
Case "C"
추가포인트 = 15
End Select
If 제조구분 = "B" Then
합계 = 합계 + 매출액 + 추가포인트
End If
End If
Next K
Close #1
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2
End Sub
4번
Sub Main()
Dim 인수1, 인수2, K, 버퍼 As Variant
Dim 제조구분, 매출액, 추가포인트, 단가, 합계 As Variant
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
Open "C:\C_iT\data\abc05.txt" For Input As #1
For K = 1 To 인수2
Line Input #1, 버퍼
If K >= 1 Then ====> If K >= 인수1 Then
매출액 = Val(Mid(버퍼, 26, 3))
제조구분 = Trim(Mid(버퍼, 7, 1))
단가 = Val(Mid(버퍼, 12, 3))
Select Case 제조구분
Case "A"
추가포인트 = 5
Case "B"
추가포인트 = 15
Case "C"
추가포인트 = 20
End Select
If 단가 <= 20 Then ====> If 단가 <= 80 Then
합계 = 합계 + 매출액 + 추가포인트
End If
End If
Next K
Close #1
Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2
End Sub | |
|
|
이전글
다음글
