Contents

Develop
2003.04.23 00:03

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

Views 58150 Comment 0
?

Shortcut

PrevPrev Article

NextNext Article

Larger Font Smaller Font Up Down Go comment Print
?

Shortcut

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)
Next


?

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

  2. [vb] 문자열에서 태그 제거함수 (Visual Basic)

  3. [unix] 쉘 스크립트 예제 모음

  4. [unix] 로그파일 정리 쉘스크립트

  5. [svn] 콘솔에서 svn 사용시 레티나용 이미지 add 안될 때..

  6. [sql] insert into select 사용하기

  7. [ppt] 정보보호관리 발표내용 #2

  8. [mysql] 쿼리 실행시 ERROR 1366 (HY000) : incorrect string value : for column

  9. [mysql] ERROR 1820 (HY000): You must reset your password using ALTER USER statement before executing this statement.

  10. [matlab] ZigZag-Scanning (2-D Array)

  11. [mac] 맥에서 슬립(잠자기) 모드 진입을 막는 방법~

  12. [mac] 맥에서 APM(apache,php,mysql) 구성하기

Board Pagination Prev 1 2 3 4 5 6 7 Next
/ 7