Contents

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

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

hooni
조회 수 54338 댓글 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
위로 아래로 댓글로 가기 인쇄
에디터 선택하기
?
에디터 사용하기 닫기
List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
21 Develop 웹페이지 성능 테스트 툴 설명 hooni 2013.04.23 27443
20 Develop 이어서 작업할 내용~ secret hooni 2013.11.21 0
19 Etc 이클립스(Eclipse) 유용한 단축키 ㅋㅋ hooni 2013.04.23 21761
18 Etc 인증서 *.p12 파일을 *.pem 파일로 변환 hooni 2015.04.30 1804
17 Develop 자주 쓰는 Docker 명령어 alias hooni 2020.01.10 269109
16 Develop 정리할 자료. file hooni 2015.07.02 677
15 Etc 정보시스템(정보보안)의 위험관리 설명 hooni 2013.04.23 19335
14 Etc 종합시험 관련 자료 secret hooni 2017.03.15 0
13 Develop 참고하고 지울 자료.. 집에서 바야지.. ㅋㅋ file hooni 2013.04.23 12119
12 Develop 최근 논문 자료 (2011/01/03, 만현형한테 보낸거..) secret hooni 2013.04.23 10366
11 Etc 캘리포니아 운전면허 문제 file hooni 2017.07.22 972
10 Develop 캘리포니아 운전면허 족보 file hooni 2017.06.12 730
쓰기
Board Pagination Prev 1 ... 89 90 91 92 93 94 95 96 97 98 Next
/ 98