Contents

조회 수 68519 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

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

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
DefSng A-Z
Dim a(10), b(10), c(10), pc
----------------------------------------------------------------
Private Sub Command1_Click()
    pc = pc + 1
    a(pc) = Text1.Text
    b(pc) = Text2.Text
    c(pc) = Text3.Text

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

    Text1.SetFocus

End Sub
----------------------------------------------------------------

Private Sub Command2_Click()
    Dim d(10), e(10), f(10), g(10)

    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
            End If
        Next j
    Next i


    For i = 1 To pc
        d(i) = c(i) - b(i)
        e(i) = 2000
        f(i) = d(i) * 50
        g(i) = 2000 + f(i)

        total = total + g(i)
    Next


    Form1.Hide
    Form2.Show
    Form2.Print "사용자번호", "전월 검침량", "금월 검침량", "사용량", "기본료", "사용금액", "납부금액"

    For i = 1 To pc
        Form2.Print a(i), b(i), c(i), d(i), e(i), f(i), g(i)
    Next

    Form2.Print "납부액 총계"; total
    
End Sub


?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
133 Develop [android] 가속도 센서를 이용한 흔듦(Shake) 감지 file hooni 2014.11.04 3064
132 Develop [js] 모바일 스크롤 방지(해제) hooni 2015.04.14 3047
131 System/OS OpenSSL로 ROOT CA 생성 및 SSL 인증서 발급하기 hooni 2017.10.28 3041
130 Develop [Javascript][Ajax] 자바스크립트 강의 산출물 file hooni 2019.10.05 3030
129 Develop [swift] 실행시간 측정하기 hooni 2021.09.14 3021
128 Develop [android] 간단한 SQLIite 예제 hooni 2017.06.14 3010
127 System/OS [linux] CentOS 에 APM 설치하기 hooni 2015.01.02 2978
126 Etc 사이버보안실무 수업 메모 hooni 2017.03.30 2971
125 PPT [ppt] 전자금융보안론 발표/설치 자료 file hooni 2016.05.03 2956
124 Develop [ios] GPS 이용 상태 확인 hooni 2015.04.27 2938
123 PPT [ppt] OCB기술개발팀 OJT 자료 file hooni 2015.11.13 2924
122 Database [mysql] MySQL 백업 및 복구 hooni 2019.11.22 2889
Board Pagination Prev 1 ... 83 84 85 86 87 88 89 90 91 92 ... 99 Next
/ 99