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

hooni

조회 수 58040 댓글 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
번호	분류	제목	글쓴이	날짜	조회 수
229	Develop	[c] 디피-헬만 키교환(Diffie–Hellman key exchange) 샘플 코드.. ㅋㄷ	hooni	2013.04.23	9109
228	Develop	[mysql] 양력, 음력 DB데이터	hooni	2013.04.23	7802
227	Develop	[c] 파일(int fd)에서 개행문자 단위로 읽기 by 후리자	hooni	2013.04.23	7152
226	Develop	[c] 지폰(gphone) 소스.. 수정(암호화)	hooni	2013.04.23	7434
225	Develop	[c] 암호 알고리즘 소스..	hooni	2013.04.23	8341
224	Develop	[c] 시스템 보안 과제.. 시간(amc time) 변경	hooni	2013.04.23	7193
223	Develop	[switch] 시스코 카탈리스트(Cisco Catalyst) 2950 미러링 설정	hooni	2013.04.23	11386
222	Develop	[c] 네트워크 보안 프로그래밍 과제 (Server,Agent,Client)	hooni	2013.04.23	6472
221	Develop	[php] 탐색기와 같은 다이나믹 트리(xml/xsl 이용)	hooni	2013.04.23	7153
220	Develop	[js] 스타크래프트(starcraft)..	hooni	2013.04.23	6640
219	Develop	[js] 툴팁.. 좋은거.. (tooltip)	hooni	2013.04.23	7058
218	Develop	[web] URL 인코딩 방법.. 테이블.. ㅋㅋ	hooni	2013.04.23	7142

쓰기

Contents