2. ‘자동차할부금’ 시트에서 다음과 같은 작업을 수행하고 저장하시오. (15점)
▶ ‘자동차 할부금 계산’(cmd실행) 버튼을 클릭하면 <할부금계산> 폼이 나타나도록 프로시저를 작성하시오. (5점)
▶ 그림과 같이 <할부계산> 폼을 초기화(Initialize)할 때 ‘차종(cbo차종)’ 콤보상자에 [A8:A13] 영역의 값들이 자동으로 추가되도록 프로시저를 작성하시오. (5점)
▶ <할부금계산> 표에 가격(txt가격), ‘할부기간’(txt기간) 입력하고, ‘계산’(cmd계산) 버튼을 클릭하면 ‘월불입원금’ (lbl금액)에 표시되도록 프로시져를 작성하시오. (5점)
월불입원금 = Int(가격/기간)
Private Sub cmd실행_Click()
할부금계산.Show
End Sub
Private Sub UserForm_Initialize()
cbo차종.RowSource = "a8:a13"
End Sub
Private Sub cmd계산_Click()
lbl금액 = Int(txt가격 / txt기간)
End Sub
▶ ‘자동차 할부금 계산’(cmd실행) 버튼을 클릭하면 <할부금계산> 폼이 나타나도록 프로시저를 작성하시오. (5점)
▶ 그림과 같이 <할부계산> 폼을 초기화(Initialize)할 때 ‘차종(cbo차종)’ 콤보상자에 [A8:A13] 영역의 값들이 자동으로 추가되도록 프로시저를 작성하시오. (5점)
▶ <할부금계산> 표에 가격(txt가격), ‘할부기간’(txt기간) 입력하고, ‘계산’(cmd계산) 버튼을 클릭하면 ‘월불입원금’ (lbl금액)에 표시되도록 프로시져를 작성하시오. (5점)
월불입원금 = Int(가격/기간)
Private Sub cmd실행_Click()
할부금계산.Show
End Sub
Private Sub UserForm_Initialize()
cbo차종.RowSource = "a8:a13"
End Sub
Private Sub cmd계산_Click()
lbl금액 = Int(txt가격 / txt기간)
End Sub
'IT·컴퓨터 > [컴퓨터활용1급]' 카테고리의 다른 글
[컴활-프로그래밍작업]06년 2회 (0) | 2010.02.22 |
---|---|
[컴활-프로그래밍작업]06년 1회 (0) | 2010.02.19 |
[컴활-프로그래밍작업]05년 2회 (0) | 2010.02.18 |
[컴활-프로그래밍작업]05년 1회 (0) | 2010.02.17 |