Home Study

✔ 뷰어로 보기

Develop

2003.04.23 00:05

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

hooni

조회 수 55132 댓글 0

단축키

Prev이전 문서

Next다음 문서

가 크게 작게 위로 아래로 댓글로 가기 인쇄

단축키

Prev이전 문서

Next다음 문서

가 크게 작게 위로 아래로 댓글로 가기 인쇄

DefSng A-Z

Dim a(10) As String, b(10), c(10), d(10), e(10) As String, f(10), g(10), h(10), pc, tmp As Variant, a1(10) As String, b1(10), c1(10), d1(10)

Private Sub Command1_Click()

pc = pc + 1

a(pc) = Text1.Text

b(pc) = Text2.Text

c(pc) = Text3.Text

d(pc) = Text4.Text

a1(pc) = Text1.Text

b1(pc) = Text2.Text

c1(pc) = Text3.Text

d1(pc) = Text4.Text

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.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

tmp = d(i): d(i) = d(j): d(j) = tmp

End If

Next j

Next i

For i = 1 To pc

Select Case UCase(a(i))

Case "A1": e(i) = "영업 1팀": z = 0.21

Case "A2": e(i) = "영업 2팀": z = 0.23

Case "A3": e(i) = "영업 3팀": z = 0.27

Case "A4": e(i) = "영업 4팀": z = 0.29

Case "A5": e(i) = "영업 5팀": z = 0.28

Case "A6": e(i) = "영업 6팀": z = 0.25

End Select

f(i) = b(i) + c(i) + d(i)

g(i) = b(i) * 15000 + c(i) * 30000 + d(i) * 25000

h(i) = g(i) * z

total = total + f(i)

Form1.Hide

Form2.Show

Form2.Print "비번호:333"

Form2.Print ""

Form2.Print "부서코드", "부서명", "판매수량", "판매금액", "고과점수"

For i = 1 To pc

Form2.Print a(i), e(i), f(i), g(i), h(i)

Form2.Print "전체 판매수량"; total

Form2.Print ""

Form2.Print "입력자료"

For i = 1 To pc

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

End Sub

TAG •

0 추천 0 비추천

Facebook Twitter Google Pinterest KakaoStory Band

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

✔댓글 쓰기

에디터 선택하기

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

댓글 쓰기

에디터 사용하기 닫기

Category

List of Articles
번호	분류	제목	글쓴이	날짜
13	Develop	[ios] IB 없이 개발하기 (html)	hooni	2013.05.31
12	Develop	[ios] 스터디 자료 (from 종길M)	hooni	2013.06.04
11	Develop	[ios] 패스(path) 앱 메뉴 스타일	hooni	2013.06.11
10	Develop	이어서 작업할 내용~	hooni	2013.11.21
9	Develop	[ios] APNS 샘플 코드..	hooni	2013.06.27
8	Develop	[ios] 최신 UI 모음.. (나중에 정리할 것)	hooni	2013.08.09
7	Develop	아이 훌레시 작업중 ㅋㅋ	hooni	2013.08.09
6	Develop	[js] 2048 예쁘게 만들고 있는거.. ㅋㄷ	hooni	2015.01.30
5	Develop	DDay Memo 1.9.4 소스코드	hooni	2015.10.03
4	Develop	[c#] 전자금융보안론 발표/설치 자료(툴바 소스코드)	hooni	2016.05.07
3	Develop	사이버보안실무 수업 메모	hooni	2017.03.23
2	Develop	[coding] 공부해야 하는거 ㅋㅋ	hooni	2017.06.27

쓰기

Contents

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

단축키

단축키

로그인