Contents

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

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

hooni
조회 수 54336 댓글 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
번호 분류 제목 글쓴이 날짜 조회 수
1173 System/OS 해커스랩 깨기.. 후후.. ㅋㅋ file hooni 2013.04.23 18410
1172 Etc 플라스터(Plaster) 수업 내용 secret hooni 2016.05.24 0
1171 Develop 프로그램 문서 관리 (Doxygen) hooni 2013.04.23 16384
1170 Develop 프로그래밍에서 foo, bar 함수의 유래 file hooni 2013.06.25 21243
1169 Develop 프로그래밍 소스 관련 사이트.. hooni 2013.04.23 16484
1168 Develop 페이팔에서 돈 찾기 (Paypal withdraw) file hooni 2014.02.20 10954
1167 Etc 티스토리 테이블 html,css 구문 hooni 2013.11.03 15941
1166 System/OS 콘솔에서 패스워드 걸린 zip 압축하는 명령 hooni 2018.03.02 927
1165 System/OS 컴파일러 수업 자료(교재 : 컴파일러 입문) file hooni 2003.04.23 21965
1164 Develop 캘리포니아 운전면허 족보 file hooni 2017.06.12 724
1163 Etc 캘리포니아 운전면허 문제 file hooni 2017.07.22 956
1162 Develop 최근 논문 자료 (2011/01/03, 만현형한테 보낸거..) secret hooni 2013.04.23 10366
쓰기
Board Pagination Prev 1 2 3 4 5 6 7 8 9 10 ... 98 Next
/ 98