Contents

조회 수 61384 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

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

단축키

Prev이전 문서

Next다음 문서

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

    a1(pc) = Text1.Text
    b1(pc) = Text2.Text
    c1(pc) = Text3.Text

    Text1.Text = ""
    Text2.Text = ""
    Text3.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
            End If
        Next j
    Next i

    For i = 1 To pc

        e(i) = c(i) * 20000

        If b(i) = 21 Then
            d(i) = "사원"
            x = 1000000
        
            Select Case e(i)
                Case Is >= 1000000: f(i) = 50000
                Case Is >= 500000: f(i) = 30000
                Case Is < 500000: f(i) = 0
            End Select
        Else
            d(i) = "대리"
            x = 1500000
        
            Select Case e(i)
                Case Is >= 1000000: f(i) = 100000
                Case Is >= 500000: f(i) = 50000
                Case Is < 500000: f(i) = 0
            End Select
        End If

        g(i) = x + f(i)
    Next

    For i = 1 To pc
        s = 1
        For j = 1 To pc
            If g(i) < g(j) Then
                s = s + 1
            End If
        Next
            
        h(i) = s
    Next

    Form1.Hide
    Form2.Show

    Form2.Print "비번호: 123"
    Form2.Print "사원번호", "직위", "매출금", "보너스", "총합계", "순위"

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

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


?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
807 Develop [c#] mfc 기반의 웹서비스 서버/클라이언트 샘플과 예제 소스 secret hooni 2013.04.23 2073
806 Develop [js] 스크롤 이벤트 막기 hooni 2015.04.14 2076
805 Develop [ios] Thread Loop 내에서 UI 업데이트 방법 hooni 2015.01.03 2080
804 Develop [c#] MS IE(Internet Explorer) 툴바 버튼 예제 2003/2005 두가지 버전 secret hooni 2013.04.23 2090
803 Develop [linux] CentOS Apache 웹서버에 HTTPS 적용 hooni 2015.10.23 2094
802 Develop [maven] Mac OS에 메이븐(maven) 설치하기 file hooni 2015.01.21 2098
801 Develop 정리할 자료. file hooni 2015.07.02 2103
800 Develop XE Core 1.8.18 본문 작성시 태그(html) 사라지는 버그 file hooni 2016.04.21 2112
799 Develop [ios] ViewController Push할 때 애니메이션 효과 hooni 2015.10.23 2124
798 Develop [android] N-Puzzle 게임 file hooni 2015.07.09 2130
797 Develop [ios] 최상위 ViewController 가져오기 hooni 2015.10.12 2131
796 Develop [c#] 툴바 최근 버전(IE6, IE7 두가지 버전) secret hooni 2013.04.23 2138
Board Pagination Prev 1 2 3 4 5 6 7 8 9 10 ... 71 Next
/ 71