검색어 입력폼

[비주얼베이직] 비행기이용요금

등록일 2003.09.28 파일확장자압축파일 (zip) | 10페이지 | 가격 1,000원

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

열심히 했습니다.
VISUAL BASKC 6 21일 완성

컴파일 실행환경

<파일목록>
Form1.frm
Form2.frm
Form3.frm
Module1.bas
Project1.vbp
Project1.vbw

본문내용

For i = 1 To 7

If aa(i).행선지코드 = "B" Then
.TextMatrix(i, 1) = "부산"
End If
If aa(i).행선지코드 = "G" Then
.TextMatrix(i, 1) = "군산"
End If
If aa(i).행선지코드 = "K" Then
.TextMatrix(i, 1) = "광주"
End If
If aa(i).행선지코드 = "D" Then
.TextMatrix(i, 1) = "대구"
End If
If aa(i).행선지코드 = "T" Then
.TextMatrix(i, 1) = "대전"
End If
If aa(i).행선지코드 = "C" Then
.TextMatrix(i, 1) = "강릉"
End If



.TextMatrix(i, 0) = aa(i).고객번호
.TextMatrix(i, 2) = Format(bb(i).일등석탑승액, "###,##0")
.TextMatrix(i, 3) = Format(bb(i).이등석탑승액, "###,##0")
.TextMatrix(i, 4) = Format(bb(i).삼등석탑승액,

압축파일내 파일목록

Form1.frm
Form2.frm
Form3.frm
Module1.bas
Project1.vbp
Project1.vbw
다운로드 맨위로