[vb] 비주얼 베이직 131페이지

hooni

조회 수 58044 댓글 0

Prev이전 문서

Next다음 문서

Prev이전 문서

Next다음 문서

DefSng A-Z

Dim a(10) As String, b(10), c(10), d(10), e(10), f(10), pc, tot

Private Sub Command1_Click()

pc = pc + 1

a(pc) = Text1.Text

b(pc) = Text2.Text

tot = tot + b(pc)

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

For i = 1 To pc

c(i) = b(i) * 1000

d(i) = Int(1000 * 20 * (b(i) / tot) + 0.5)

e(i) = Int(c(i) + d(i) * 0.1 + 0.5)

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

h2 = h2 + c(i)

h3 = h3 + d(i)

h4 = h4 + e(i)

h5 = h5 + f(i)

TAG •

Facebook Twitter Google Pinterest KakaoStory Band

✔댓글 쓰기

댓글 쓰기

에디터 사용하기 닫기

List of Articles
번호	분류	제목	글쓴이	날짜	조회 수
297	Develop	[java] 마우스 버튼 테스트.. swing..	hooni	2013.04.23	7888
296	Develop	[java] 메모패드.. 스윙(swing)으로..	hooni	2013.04.23	8469
295	Develop	[java] 스윙(swing)버튼 테스트 ㅋㅋ	hooni	2013.04.23	9423
294	Develop	[java] 거스름돈 계산.. swing 사용	hooni	2013.04.23	9444
293	Develop	[java] 에디터.. swing 사용	hooni	2013.04.23	6300
292	Develop	[java] 채팅 프로그램.. swing 사용..	hooni	2013.04.23	8348
291	Develop	[c] 메세지 프로그램 (Server - Agent - Client)	hooni	2013.04.23	6459
290	Develop	[linux] 임베디드 리눅스 (embedded linux)	hooni	2013.04.23	7356
289	Develop	[c] 자료구조 그래프(graph) 소스코드 - 확인해볼 것..	hooni	2013.04.23	7994
288	Develop	[c] 확인해 볼거.. ㅡ,.ㅡ;	hooni	2013.04.23	7147
287	Develop	[c] 퀵정렬(quick sort) 예제 소스..	hooni	2013.04.23	7976
286	Develop	[c++] 소켓 프로그래밍 관련 링크.. (퍼올려고 올린거)	hooni	2013.04.23	7031

쓰기

Contents