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

hooni

Views 58165 Comment 0

PrevPrev Article

NextNext Article

Larger Font Smaller Font Up Down Go comment Print

PrevPrev Article

NextNext Article

Larger Font Smaller Font Up Down Go comment Print

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

Up Down Go comment Print

✔Write a comment

Write a comment

Write with WYSIWYG Close

List of Articles
No.	Category	Subject	Author	Date	Views
49	Develop	[c#] Hashtable <-> Json (dll 포함)	hooni	2013.04.23	80732
48	Develop	[C#] MD5, SHA1 해시 & 인코딩	hooni	2013.04.23	77968
47	Develop	[c#] 웹문서 소스(html) 긁어오기	hooni	2013.04.23	24578
46	Develop	[c] 64bit 머신에서 inet_ntoa() 사용시 Segment fault 대처 방법법	hooni	2014.02.08	14266
45	Develop	[c] Mac OS 에 gmp(gmp.h) 라이브러리 설치	hooni	2016.10.03	1452
44	Develop	[c] 메시지큐(Message Queue) 설명.. (joinc)	hooni	2013.04.23	14310
43	Develop	[c] 프로세스 검사하기	hooni	2013.04.23	8051
42	Develop	[ios] Did UIScrollView End Scrolling?	hooni	2016.04.19	1180
41	Develop	[ios] Facebook Cache 갱신하는 함수	hooni	2017.02.27	1332
40	Develop	[ios] Facebook SDK 로그인 설명	hooni	2017.04.19	1367
39	Develop	[ios] FlckrFeed Example App (Swift)	hooni	2016.11.27	1214
38	Develop	[ios] iOS 4.0 beta 에서 3.1.3으로 다운그레이드 하는 법	hooni	2013.04.23	37543

Write

Contents