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)

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
번호	분류	제목	글쓴이	날짜
1173		[ios] 인앱결제 & 오토레이아웃 관련 강좌	hooni	2013.11.14
1172	PPT	네오웹 세미나 자료~	hooni	2013.05.28
1171	Develop	[iphone] PerfectlyClear 보정솔루션 최신..	hooni	2013.05.28
1170	PPT	[doc] BHO관련 발표 자료(디펜스에 쓸꺼)	hooni	2013.05.28
1169	Develop	[ios] IB 없이 개발하기 (html)	hooni	2013.05.31
1168	Develop	[ios] 스터디 자료 (from 종길M)	hooni	2013.06.04
1167	Develop	[ios] 패스(path) 앱 메뉴 스타일	hooni	2013.06.11
1166	Etc	영어 아주 쉬운 영작문 강의 01~60	hooni	2013.06.25
1165	Etc	영어 관련 토렌트	hooni	2013.06.25
1164	Develop	이어서 작업할 내용~	hooni	2013.11.21
1163	Develop	[ios] APNS 샘플 코드..	hooni	2013.06.27
1162	Develop	[ios] 최신 UI 모음.. (나중에 정리할 것)	hooni	2013.08.09

쓰기

Contents

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

단축키

단축키

로그인