Develop
2003.04.23 00:03
[vb] 비주얼 베이직 141페이지
Views 58904 Comment 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
No. | Category | Subject | Author | Date | Views |
---|---|---|---|---|---|
333 | System/OS | [linux] 아파치설치/설정 | hooni | 2003.04.23 | 14492 |
332 | System/OS | [linux] 아파치설치/설정 - SSI(Server Side Include) | hooni | 2003.04.23 | 13206 |
331 | System/OS | [linux] 아파치설치/설정 - 사용인증 | hooni | 2003.04.23 | 15084 |
330 | System/OS | [linux] 아파치설치/설정 - 알리어싱(aliasing) | hooni | 2003.04.23 | 51368 |
329 | System/OS | [linux] 아파치설치/설정(CGI부분) | hooni | 2003.04.23 | 14568 |
328 | System/OS | [linux] 아파치설치/설정(모니터링) | hooni | 2003.04.23 | 14153 |
327 | System/OS | [linux] 우분투 APM + phpmyadmin 설치 | hooni | 2013.10.07 | 49321 |
326 | System/OS | [linux] 웹로그분석기(webalizer) 설치 & 팁 | hooni | 2003.04.23 | 14882 |
325 | System/OS | [linux] 이기종간의 파일 공유(Samba) | hooni | 2003.04.23 | 14900 |
324 | Develop | [linux] 임베디드 리눅스 (embedded linux) | hooni | 2013.04.23 | 7354 |
323 | System/OS | [linux] 종료와 종료코드 확인(환경변수에서) | hooni | 2003.04.23 | 15540 |
322 | System/OS | [linux] 처음 설치부터 APM 설치까지 (업데이트 할 것) | hooni | 2013.04.23 | 38271 |