Contents

Home Study
✔ 뷰어로 보기
Develop
2003.04.23 00:05

[vb] 비쥬얼 베이직 기출 문제 연습2

hooni
조회 수 54341 댓글 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

TAG •

Facebook Twitter Google Pinterest KakaoStory Band
위로 아래로 댓글로 가기 인쇄
에디터 선택하기
?
에디터 사용하기 닫기

  1. 라이브러리에 대한 설명 (static & dynamic library)

    Date2013.04.23 CategoryDevelop Byhooni Views6946
    Read More

  2. 도메인 관련 솔루션 분석할 거.. ㅋㄷ

    Date2013.04.23 CategoryDevelop Byhooni Views6983
    Read More

  3. 다운 받아서 테스트 해볼것..

    Date2013.04.23 CategoryDevelop Byhooni Views9143
    Read More

  4. 다양한 방법으로 아주 큰 수(Big Number) 계산.. ㅋㅋ

    Date2013.04.23 CategoryDevelop Byhooni Views8379
    Read More

  5. 논문에 들어갈 툴바 테스트 해볼 것..

    Date2013.04.23 CategoryDevelop Byhooni Views8013
    Read More

  6. 논문 실험용 고려대 툴바 ㅎㅎ

    Date2013.04.23 CategoryDevelop Byhooni Views8686
    Read More

  7. 객체지향 프로그래밍에 대한 개념.. (객체)

    Date2013.04.23 CategoryDevelop Byhooni Views7313
    Read More

  8. [펌] 게임 엔진 만든거 공개합니다.

    Date2015.02.21 CategoryDevelop Byhooni Views2359
    Read More

  9. [자료구조] 트리(tree) 용어정리

    Date2003.04.23 CategoryDevelop Byhooni Views11070
    Read More

  10. [Xcode] 디버깅 옵션

    Date2013.04.23 CategoryDevelop Byhooni Views57201
    Read More

  11. [winmobile] 윈도우 모바일 간단한 테스트 코드 ㅋㅋ

    Date2013.04.23 CategoryDevelop Byhooni Views17089
    Read More

  12. [web] 웹 연동 프로그램 모음..

    Date2013.04.23 CategoryDevelop Byhooni Views6960
    Read More
쓰기
Board Pagination Prev 1 2 3 4 5 6 7 8 9 10 ... 71 Next
/ 71