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

hooni

조회 수 58162 댓글 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
번호	분류	제목	글쓴이	날짜	조회 수
49	Develop	[android] 초간단 얼럿 (AlertDialog)	hooni	2016.10.21	940
48	Develop	[ios] 문자열로 함수 실행하기 (eval 함수처럼)	hooni	2015.02.10	932
47	Develop	[ios] Thread Loop 내에서 UI 업데이트 방법	hooni	2015.01.03	925
46	Develop	[ios] URL 랜딩 속도(OpenURL 10초 정지되는) 이슈	hooni	2015.02.09	924
45	Develop	[linux] CentOS Apache 웹서버에 HTTPS 적용	hooni	2015.10.23	922
44	Develop	[ios] GMT Date와 Local Date 변환하기	hooni	2015.04.07	918
43	Develop	[js] e.stopPropagation() VS e.preventDefault ()	hooni	2015.04.14	917
42	Develop	[ios] 비동기 블럭 코드 예제	hooni	2014.11.21	904
41	Develop	[Android Error] The number of method references in a .dex file cannot exceed 64K	hooni	2016.11.10	896
40	Develop	[c] 파일명 또는 특정 패턴을 적용	hooni	2016.08.03	894
39	Develop	캘리포니아 운전면허 족보	hooni	2017.06.12	890
38	Develop	리팩토링 계획안	hooni	2017.05.15	875

쓰기

Contents