목차
없음
본문내용
uffer, 27, 5))
탑승인원 = Val(Mid(Linebuffer, 24, 3))
월이용횟수 = Val(Mid(Linebuffer, 32, 2))
출발지코드 = Mid(Linebuffer, 20, 2)
If (여행거리 <= 25400) Or (출발지코드 = "DA") Then
탑승곱월이용 = 탑승인원 * 월이용횟수
고객번호 = Val(Mid(Linebuffer, 1, 5))
If (탑승곱월이용 < 최소탑승곱월이용) Or _
((탑승곱월이용 = 최소탑승곱월이용) And (고객번호 > 최대고객번호)) Then
최대고객번호 = 고객번호
최소탑승곱월이용 = 탑승곱월이용
End If
End If
End If
Next i
Print #2, Arg1; Arg2; 최대고객번호
Close #2
Close #1
End Sub
3번 Option Explicit
Sub main()
Dim Arg1 As Long
Dim Arg2 As Long
Arg1 = Val(Left(Command, InStr(Command, " ")))
Arg2 = Val(Mid(Command, InStr(Command, " ")))
Open "c:\C_it\data\abc0107.txt" For Input As #1
Open "c:\C_it\data\ans3.txt" For Output As #2
Dim i As Long
Dim Linebuffer As String
Dim 고객구분코드 As String
Dim 탑승인원 As Long
Dim 열차코드 As String
Dim 열차요금 As Long
Dim 할인포인트 As Double
Dim 합계 As Double
For i = 1 To Arg2
Line Input #1, Linebuffer
If i >= Arg1 Then
고객구분코드 = Mid(Linebuffer, 18, 2)
탑승인원 = Val(Mid(Linebuffer, 24, 3))
If (고객구분코드 = "MA") Or ((탑승인원 Mod 3) = 0) Then
열차코드 = Mid(Linebuffer, 6, 2)
열차요금 = Val(Mid(Linebuffer, 10, 6))
If 열차코드 = "SA" Then
할인포인트 = 0.4
ElseIf 열차코드 = "MU" Then
할인포인트 = 0.5
ElseIf 열차코드 = "TZ" Then
할인포인트 = 0.6
ElseIf 열차코드 = "BZ" Then
할인포인트 = 0.7
Else
할인포인트 = 0
End If
합계 = 합계 + (열차요금 * 할인포인트)
End If
End If
Next i
Print #2, Arg1; Arg2; 합계
Close #2
Close #1
End Sub
4번Option Explicit
Sub main()
Dim Arg1 As Long
Dim Arg2 As Long
Arg1 = Val(Left(Command, InStr(Command, " ")))
Arg2 = Val(Mid(Command, InStr(Command, " ")))
Open "c:\C_it\data\abc0107.txt" For Input As #1
Open "c:\C_it\data\ans4.txt" For Output As #2
Dim i As Long
Dim Linebuffer As String
Dim 좌석코드 As String
Dim 열차요금 As Long
Dim 월이용횟수 As Long
Dim 도착지코드 As String
Dim 추가포인트 As Double
Dim 합계 As Double
For i = 1 To Arg2
Line Input #1, Linebuffer
If i >= Arg1 Then
좌석코드 = Mid(Linebuffer, 8, 2)
열차요금 = Val(Mid(Linebuffer, 10, 6))
If (좌석코드 = "HE") And (열차요금 >= 4500) Then
월이용횟수 = Val(Mid(Linebuffer, 32, 2))
도착지코드 = Mid(Linebuffer, 22, 2)
If 도착지코드 = "KW" Then
추가포인트 = 12
ElseIf 도착지코드 = "MO" Then
추가포인트 = 9
ElseIf 도착지코드 = "KY" Then
추가포인트 = 21
ElseIf 도착지코드 = "ZU" Then
추가포인트 = 3
Else
추가포인트 = 0
End If
합계 = 합계 + (월이용횟수 + 추가포인트)
End If
End If
Next i
Print #2, Arg1; Arg2; 합계
Close #2
Close #1
End Sub
y
탑승인원 = Val(Mid(Linebuffer, 24, 3))
월이용횟수 = Val(Mid(Linebuffer, 32, 2))
출발지코드 = Mid(Linebuffer, 20, 2)
If (여행거리 <= 25400) Or (출발지코드 = "DA") Then
탑승곱월이용 = 탑승인원 * 월이용횟수
고객번호 = Val(Mid(Linebuffer, 1, 5))
If (탑승곱월이용 < 최소탑승곱월이용) Or _
((탑승곱월이용 = 최소탑승곱월이용) And (고객번호 > 최대고객번호)) Then
최대고객번호 = 고객번호
최소탑승곱월이용 = 탑승곱월이용
End If
End If
End If
Next i
Print #2, Arg1; Arg2; 최대고객번호
Close #2
Close #1
End Sub
3번 Option Explicit
Sub main()
Dim Arg1 As Long
Dim Arg2 As Long
Arg1 = Val(Left(Command, InStr(Command, " ")))
Arg2 = Val(Mid(Command, InStr(Command, " ")))
Open "c:\C_it\data\abc0107.txt" For Input As #1
Open "c:\C_it\data\ans3.txt" For Output As #2
Dim i As Long
Dim Linebuffer As String
Dim 고객구분코드 As String
Dim 탑승인원 As Long
Dim 열차코드 As String
Dim 열차요금 As Long
Dim 할인포인트 As Double
Dim 합계 As Double
For i = 1 To Arg2
Line Input #1, Linebuffer
If i >= Arg1 Then
고객구분코드 = Mid(Linebuffer, 18, 2)
탑승인원 = Val(Mid(Linebuffer, 24, 3))
If (고객구분코드 = "MA") Or ((탑승인원 Mod 3) = 0) Then
열차코드 = Mid(Linebuffer, 6, 2)
열차요금 = Val(Mid(Linebuffer, 10, 6))
If 열차코드 = "SA" Then
할인포인트 = 0.4
ElseIf 열차코드 = "MU" Then
할인포인트 = 0.5
ElseIf 열차코드 = "TZ" Then
할인포인트 = 0.6
ElseIf 열차코드 = "BZ" Then
할인포인트 = 0.7
Else
할인포인트 = 0
End If
합계 = 합계 + (열차요금 * 할인포인트)
End If
End If
Next i
Print #2, Arg1; Arg2; 합계
Close #2
Close #1
End Sub
4번Option Explicit
Sub main()
Dim Arg1 As Long
Dim Arg2 As Long
Arg1 = Val(Left(Command, InStr(Command, " ")))
Arg2 = Val(Mid(Command, InStr(Command, " ")))
Open "c:\C_it\data\abc0107.txt" For Input As #1
Open "c:\C_it\data\ans4.txt" For Output As #2
Dim i As Long
Dim Linebuffer As String
Dim 좌석코드 As String
Dim 열차요금 As Long
Dim 월이용횟수 As Long
Dim 도착지코드 As String
Dim 추가포인트 As Double
Dim 합계 As Double
For i = 1 To Arg2
Line Input #1, Linebuffer
If i >= Arg1 Then
좌석코드 = Mid(Linebuffer, 8, 2)
열차요금 = Val(Mid(Linebuffer, 10, 6))
If (좌석코드 = "HE") And (열차요금 >= 4500) Then
월이용횟수 = Val(Mid(Linebuffer, 32, 2))
도착지코드 = Mid(Linebuffer, 22, 2)
If 도착지코드 = "KW" Then
추가포인트 = 12
ElseIf 도착지코드 = "MO" Then
추가포인트 = 9
ElseIf 도착지코드 = "KY" Then
추가포인트 = 21
ElseIf 도착지코드 = "ZU" Then
추가포인트 = 3
Else
추가포인트 = 0
End If
합계 = 합계 + (월이용횟수 + 추가포인트)
End If
End If
Next i
Print #2, Arg1; Arg2; 합계
Close #2
Close #1
End Sub
y
추천자료
비쥬얼베이직) 자료를 읽어서 그래프를 그리는 프로그램입니다.
비쥬얼베이직) 고체역학) 보의 shear force 와 moment 를 그래프를 그리고 최대 최소값을 출...
비쥬얼베이직을이용한데이터계산프로그램
비쥬얼베이직 이미지 움직이기 프로그램
비쥬얼베이직 로또 추첨 프로그램
< 비주얼베이직 > 비쥬얼베이직 - 객체지향 프로그래밍 개념정리 & 응용
비쥬얼베이직(vb) 개인 관리 프로그램
비쥬얼베이직 학생관리소스
비주얼베이직[비베][비쥬얼베이직] 6.0 프로젝트용 타자게임 프로그램
비주얼베이직[비베][비쥬얼베이직] 6.0 프로젝트용 DB연동 쇼핑몰 상품관리 프로그램
소개글