Develop
2003.04.23 00:03
[vb] 비주얼 베이직 141페이지
조회 수 58907 댓글 0
정보처리 기사 문제집 141 페이지
DefSng A-Z Dim a(10), b(10), c(10), d(10), e(10) As String, pc Private Sub Command1_Click() pc = pc + 1 a(pc) = Text1.Text b(pc) = Text2.Text c(pc) = Text3.Text Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() For i = 1 To pc d(i) = c(i) / (b(i) - 100) * 0.9 * 100 Select Case d(i) Case Is <= 110: e(i) = "정상" Case 111 To 119: e(i) = "과체중" Case Is >= 120: e(i) = "비만": over = over + 1 End Select Next f = over / pc * 100 Form1.Hide Form2.Show Form2.Print "번호", "신장", "몸무게", "비만율", "판정" For i = 1 To pc Form2.Print a(i), b(i), c(i), Format(d(i), "###.0"), e(i) Next Form2.Print "비만 인원수: "; over, "비만율: "; Format(f, "###.0"); "%" End Sub
번호 | 분류 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|---|
45 | Etc | RSVP 란? | hooni | 2017.11.22 | 991 |
44 | System/OS | RPA란? 어디에 어떻게 쓰이고 누가 만드나? | hooni | 2020.01.28 | 1368 |
43 | Algorithm | Polynomial time 이란? ㅋㅋ | hooni | 2013.04.23 | 22696 |
42 | System/OS | php.ini 설정 안됐을때.. ㅋㅋ | hooni | 2013.04.23 | 11641 |
41 | System/OS | OSI (Open Systems Interconnection) 개방형 시스템간 상호 접속 | hooni | 2013.04.23 | 10789 |
40 | Develop | OPT와 CAS에 대한 자료.. (교수님 메일로 보내드린 자료..) | hooni | 2013.04.23 | 13927 |
39 | System/OS | OpenSSL로 ROOT CA 생성 및 SSL 인증서 발급하기 | hooni | 2017.10.28 | 1467 |
38 | Develop | OpenGL 강좌 사이트 모음 | hooni | 2013.04.23 | 9638 |
37 | Develop | OGNL(Object Graph Navigation Language) | hooni | 2013.04.23 | 15733 |
36 | Algorithm | OCB5 Injection 앗싸뵹! ㅋㅋ | hooni | 2014.07.01 | 808 |
35 | System/OS | NAT와 DHCP에 대한 간단한 설명 | hooni | 2013.04.23 | 18328 |
34 | System/OS | Mac에서 Node.js 설치하기 | hooni | 2018.09.28 | 4198 |