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

hooni

조회 수 58042 댓글 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] 구조체의 설명과 예제..	hooni	2003.04.23	8373
228	Develop	[c] 구조체/파일 입출력 프로그램	hooni	2003.04.23	7063
227	Develop	[c] 구조체 배열 예제 (학생 성적 계산)	hooni	2013.04.23	7664
226	Develop	[c] 구구단 최단라인 ㅡㅡ;	hooni	2013.04.23	8001
225	Develop	[c] 관계형 연산자에 대한 설명	hooni	2013.04.23	7665
224	Develop	[c] 공용체를 이용해 MSB를 LSB로 변환	hooni	2013.04.23	9372
223	Develop	[c] 격자 직사각형 넓이 구하기	hooni	2013.04.23	7457
222	Develop	[c] 게임 AI FSM 테스트 샘플 소스.. 꽤 괜찮은 소스..	hooni	2013.04.23	7368
221	Develop	[c] 거리와 각도를 입력받아서 좌표로 변환	hooni	2013.04.23	10812
220	Develop	[c] 간단한 채팅(클라이언트/서버) 프로그램 소스	hooni	2003.04.23	9068
219	Develop	[c] 간단한 점 이동 샘플 소스코드	hooni	2013.04.23	6539
218	Develop	[c] 간단한 자료구조(stack, queue, linked list) 구현 소스 6	hooni	2003.04.23	10098

쓰기

Contents