Contents

Develop
2003.04.23 00:03

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

조회 수 58164 댓글 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)
Next


?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
1089 System/OS 무료로 HTTPS 적용하기 (Let's Encrypt) file hooni 2017.10.28 1701
1088 Etc How to completely Uninstall Coda hooni 2017.10.24 2580
1087 Etc 영어. 불규칙 동사 정리 file hooni 2017.10.04 3673
1086 System/OS [linux] iptables 초간단 세팅 스크립트 hooni 2017.09.26 1411
1085 Develop [ios] VIN Scanner (VIN barcode) 스캐너 file hooni 2017.09.16 791
1084 System/OS [mac] Homebrew/rvm/cocoapod setting hooni 2017.07.29 1185
1083 Etc 캘리포니아 운전면허 문제 file hooni 2017.07.22 1191
1082 Develop [android] 안드로이드 앱 문서 샘플 file hooni 2017.07.11 2229
1081 Develop [coding] 공부해야 하는거 ㅋㅋ secret hooni 2017.06.27 0
1080 Develop [coding] Find all anagrams in a string hooni 2017.06.27 1304
1079 Etc IT감사 기법 시험 file hooni 2017.06.14 1632
1078 Develop [android] SQLiteOpenHelper를 이용한 DBManager hooni 2017.06.14 2195
Board Pagination Prev 1 ... 3 4 5 6 7 8 9 10 11 12 ... 98 Next
/ 98