비쥬얼 베이직에 관한 모델링

소개글

비쥬얼 베이직에 관한 모델링에 대한 보고서 자료입니다.

목차

없음

본문내용

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

키워드

비쥬얼,   베이직,   비주얼,   비쥬얼베이직,   비주얼베이직,   모델링,   비주얼 베이직,   비쥬얼 베이직