Home Study

✔ 뷰어로 보기

Develop

2003.04.23 00:05

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

hooni

조회 수 54335 댓글 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)

For i = 1 To pc

s = 1

For j = 1 To pc

If g(i) < g(j) Then

s = s + 1

End If

h(i) = s

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)

Form2.Print ""

Form2.Print "입력자료"

For i = 1 To pc

Form2.Print a1(i), b1(i), c1(i)

End Sub

TAG •

0 추천 0 비추천

Facebook Twitter Google Pinterest KakaoStory Band

위로 아래로 댓글로 가기 인쇄

✔댓글 쓰기

에디터 선택하기

✔ 텍스트 모드 ✔ 에디터 모드

댓글 쓰기

에디터 사용하기 닫기

Category

List of Articles
번호	분류	제목	글쓴이	날짜
841	Develop	[ios] 스터디 자료 (from 종길M)	hooni	2013.06.04
840	Develop	아이 훌레시 작업중 ㅋㅋ	hooni	2013.08.09
839	Develop	이어서 작업할 내용~	hooni	2013.11.21
838	Develop	[ios] APNS 샘플 코드..	hooni	2013.06.27
837	Develop	[c#] 전자금융보안론 발표/설치 자료(툴바 소스코드)	hooni	2016.05.07
836	Develop	DDay Memo 1.9.4 소스코드	hooni	2015.10.03
835	Develop	[iphone] PerfectlyClear 보정솔루션 최신..	hooni	2013.05.28
834	Develop	사이버보안실무 수업 메모	hooni	2017.03.23
833	Develop	[ios] 최신 UI 모음.. (나중에 정리할 것)	hooni	2013.08.09
832	Develop	[js] 2048 예쁘게 만들고 있는거.. ㅋㄷ	hooni	2015.01.30
831	Develop	[ios] 패스(path) 앱 메뉴 스타일	hooni	2013.06.11
830	Develop	[ios] IB 없이 개발하기 (html)	hooni	2013.05.31

쓰기

Contents

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

단축키

단축키

로그인