Contents

Develop
2003.04.23 00:04

[vb] 비주얼 베이직 173페이지

조회 수 62151 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
DefSng A-Z
Dim a(5), b(5) As String, c(5), d(5), e(5), f(5), g(5), h(5) As String, pc, tmp As Variant
Dim a1(5), b1(5) As String, c1(5), d1(5)
Private Sub Command1_Click()
    pc = pc + 1
    a(pc) = Text1.Text
    b(pc) = Text2.Text
    c(pc) = Text3.Text
    d(pc) = Text4.Text
    a1(pc) = Text1.Text
    b1(pc) = Text2.Text
    c1(pc) = Text3.Text
    d1(pc) = Text4.Text

    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""

    Text1.SetFocus

End Sub

Private Sub Command2_Click()
    For i = 1 To pc - 1
        For j = i + 1 To pc
            If a(i) > a(j) Then
                tmp = a(i): a(i) = a(j): a(j) = tmp
                tmp = b(i): b(i) = b(j): b(j) = tmp
                tmp = c(i): c(i) = c(j): c(j) = tmp
                tmp = d(i): d(i) = d(j): d(j) = tmp
            End If
        Next j
    Next i

    For i = 1 To pc
        Select Case b(i)
            Case "L": h(i) = "경차": e(i) = 500 + (c(i) * 0.8)
            Case "M": h(i) = "중형": e(i) = 1800 + (c(i) * 0.8)
            Case "B": h(i) = "버스": e(i) = 3000 + (c(i) * 0.8)
            Case "T": h(i) = "화물": e(i) = 2000 + (c(i) * 0.8)
        End Select

        Select Case e(i)
            Case Is <= 800: f(i) = e(i) + d(i) + 0
            Case Is <= 1200: f(i) = e(i) + d(i) + 15
            Case Is <= 1800: f(i) = e(i) + d(i) + 30
            Case Is <= 2000: f(i) = e(i) + d(i) + 40
            Case Is >= 2000: f(i) = e(i) + d(i) + 60
        End Select

        g(i) = f(i) * 0.5 + 11

    Next i

    Form1.Hide
    Form2.Show
    Form2.Print "고객번호", "차종", "자차부담금", "차량가격", "총금액", "보험료"
    
    For i = 1 To pc
        Form2.Print a(i), h(i), d(i), e(i), f(i), g(i)
    Next

    Form2.Print ""
    Form2.Print ""
    Form2.Print "입력자료"
    For i = 1 To pc
        Form2.Print a1(i), b1(i), c1(i), d1(i)
    Next
End Sub


?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
61 PPT [ajax] 크로스 도메인(Cross Domain) 이슈 해결 방안 file hooni 2013.04.23 22959
60 Develop [ajax] 이벤트 코드 생성기 작업중.. ㅋㅋ file hooni 2013.04.23 8566
59 Develop [ajax] 샘플 코드와 한글처리에 대한 간단한 설명 hooni 2013.04.23 7727
58 Develop ZBar 라이브러리를 이용한 바코드 스캔 앱 개발하기 file hooni 2015.01.01 2713
57 Develop XML, JSON, BSON, MSGPACK 장,단점 비교 file hooni 2017.01.11 6214
56 Develop XE Core 1.8.18 본문 작성시 태그(html) 사라지는 버그 file hooni 2016.04.21 2110
55 Etc WM미통기 - 10. 조건부확률 hooni 2015.04.20 2258
54 Develop What is difference between Get, Post, Put and Delete? hooni 2018.02.28 5343
53 Develop URI 인코딩, URL 인코딩 file hooni 2013.04.23 19820
52 System/OS Ubuntu Desktop RDP Setup - 24.04 LTS file hooni 2024.10.16 3388
51 System/OS SVN(Subversion) 설치와 설정 (sasl 인증 적용 포함) file hooni 2014.09.11 7209
50 Develop SVN 초간단 사용하기 hooni 2014.02.28 9014
Board Pagination Prev 1 ... 89 90 91 92 93 94 95 96 97 98 99 Next
/ 99