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
번호	분류	제목	글쓴이	날짜	조회 수
333	Develop	[c] 간단한 점 이동 샘플 소스코드	hooni	2013.04.23	6539
332	Develop	[c] 민수형 소스(도메인소켓포함)	hooni	2013.04.23	6522
331	Develop	[js] 새로고침(refresh)방법과 다른 페이지 바꾸기..	hooni	2003.04.23	6521
330	Develop	[c] 네트워크 보안 프로그래밍 과제 (Server,Agent,Client)	hooni	2013.04.23	6472
329	Develop	[js] 윤동이가 만든 영어 학습(?) 프로그램	hooni	2013.04.23	6457
328	Develop	[c] 메세지 프로그램 (Server - Agent - Client)	hooni	2013.04.23	6455
327	Develop	[php] 정규표현식 간단히 정리	hooni	2013.04.23	6451
326	Develop	[doc] C언어 문법 설명서	hooni	2013.04.23	6435
325	Develop	[java] 채팅창 처럼2.. swing..	hooni	2013.04.23	6419
324	Develop	[c] 다중연결 서버 만들기 #3 - poll() 사용	hooni	2013.04.23	6338
323	Develop	[js] 사진첩에 쓸 내용 - 마우스 오버로 바꾸기	hooni	2013.04.23	6336
322	Develop	[c][php] 프로세스정보와 메모리 정보 웹으로 출력하는거..	hooni	2013.04.23	6329

쓰기

Contents

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

단축키

단축키

로그인