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

hooni

조회 수 58041 댓글 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
번호	분류	제목	글쓴이	날짜	조회 수
57	Develop	[ajax] 샘플 코드와 한글처리에 대한 간단한 설명	hooni	2013.04.23	6840
56	Develop	ZBar 라이브러리를 이용한 바코드 스캔 앱 개발하기	hooni	2015.01.01	1625
55	Develop	XML, JSON, BSON, MSGPACK 장,단점 비교	hooni	2017.01.11	2231
54	Develop	XE Core 1.8.18 본문 작성시 태그(html) 사라지는 버그	hooni	2016.04.21	856
53	Etc	WM미통기 - 10. 조건부확률	hooni	2015.04.20	705
52	Develop	What is difference between Get, Post, Put and Delete?	hooni	2018.02.28	1391
51	Develop	URI 인코딩, URL 인코딩	hooni	2013.04.23	18841
50	System/OS	SVN(Subversion) 설치와 설정 (sasl 인증 적용 포함)	hooni	2014.09.11	5653
49	Develop	SVN 초간단 사용하기	hooni	2014.02.28	7614
48	Develop	SVN 명령어 (SVN command)	hooni	2014.02.28	12131
47	System/OS	SSH Passwordless Login Using SSH Keygen in 5 Easy Steps	hooni	2019.11.22	1379
46	Database	SQL JOIN 정리 (Inner Join & Outer Join)	hooni	2019.11.22	1816

쓰기

Contents