Develop
2003.04.23 00:03

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

조회 수 65839 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

정보처리 기사 문제집 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
?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
59 Develop [ios] 비디오,네트워크,소셜로그인 테스트 file hooni 2017.04.04 2284
58 Develop [git] 쉬운 버전관리 Git 설명 hooni 2015.08.18 2271
57 Develop [ios] VIN Scanner (VIN barcode) 스캐너 file hooni 2017.09.16 2270
56 Develop [ios] StoryBoard(xib) 없이 프로젝트 만들기 file hooni 2015.02.12 2236
55 Develop [c#] BHO 한샘툴바랑 동현툴바.. secret hooni 2013.04.23 2208
54 Develop [ios] 아이폰 앱 이름 및 버전 정보 hooni 2015.03.24 2201
53 Develop [ios] 로컬에 있는 html 실행하기 hooni 2015.02.10 2190
52 Develop [js] AngularJS 란? file hooni 2015.11.26 2186
51 Develop [ios] 로컬에 있는 JS 파일 웹뷰에서 동적으로 실행하기 hooni 2015.02.10 2184
50 Develop [ios] Xcode의 디버그 모드에서 콜스택 file hooni 2015.01.03 2180
49 Develop [ios] APNS에 사용할 인증서 만들기 (KeyChain에 있는 인증서 Export) file hooni 2015.01.03 2146
48 Develop [c#] 툴바 최근 버전(IE6, IE7 두가지 버전) secret hooni 2013.04.23 2138
47 Develop [android] N-Puzzle 게임 file hooni 2015.07.09 2127
46 Develop [ios] 최상위 ViewController 가져오기 hooni 2015.10.12 2125
45 Develop [ios] ViewController Push할 때 애니메이션 효과 hooni 2015.10.23 2119
44 Develop XE Core 1.8.18 본문 작성시 태그(html) 사라지는 버그 file hooni 2016.04.21 2110
Board Pagination Prev 1 ... 48 49 50 51 52 53 Next
/ 53