2019 이기적 기출문제집 컴퓨터활용능력 1급 실기
[기출 따라하기]
기타4-2 프로시저
현재날짜의 년도가 표시되도록 작성하기
정답: Text등록일 = Year(Date)
[기출 1회]
기타4-2 프로시저 RowSource, AddItem
정답: cmb대리점명.RowSource = “I6 : I10”
txt입력시간 = Time
cmb담당지역.AddItem “서울”
~~~~
cmb담당지역.AddItem “제주”
[기출 2회]
기타4-2 프로시저 작성
② 워크시트 표1에 입력되어 있는 마지막 행 다음에 연속하여 추가되도록!
+ 포인트 지급액은 회원등급 끝에 세 글자가 1등급이면 50000, 그렇지 않으면 20000으로 계산 (If~else, right)
정답:
a = Range(“a5”).Currentregion.rows.count + 4
Cells(a, 1) = txt회원명
Cells(a, 2) = cmb회원등급
Cells(a, 3) = txt가입년도
If Right(Cells(a, 2), 3) = ”1등급” then
Cells(a, 4) = 50000
Else
Cells(a, 4) = 20000
End If
③ 폼 종료, 특정 셀(D4)에 문구 입력 & 글꼴 지정
정답: Unload Me
[D4] = “코엑스점”
[D4].Font.Name = “굴림체”
[기출 3회]
기타4-2 프로시저
① 1) 클릭 시 폼 나타나기
2) 초기화되면 콤보상자 목록표시 3) 옵션 단추 ‘opt국내서’로 기본 선택
정답: 1) Click 프로시저에 도서등록.Show
2)&3) Initialize 프로시저에
cmb도서분야.RowSource = “J5:J12”
opt국내서 = True
② 클릭 시 폼에 입력된 데이터가 시트 표 마지막 행 다음에 연속하여 추가
a = Range(“b4”).CurrentRegion.Rows.Count + 3
Cells(a,2) = cmb도서분야
If opt국내서 = True Then
Cells(a,3) = “국내서”
ElseIf opt외국서 = True Then
Cells(a,3) = “외국서”
Else
Cells(a,3) = “eBook”
End If
Cells(a,4) = txt제목
Cells(a,5) = Val(txt구입가격) * 구입가격은 수치 데이터로 입력
Cells(a,6) = txt저자명
Cells(a,7) = txt출판사
Cells(a,8) = txt출판년도
③ 클릭 시 메시지 표시 후 폼 종료
※ MsgBox "내용", 버튼종류, "제목"
MsgBox Now(), , “폼을 종료합니다.”
Unload Me
※ Range(“b4”) 대신 [b3] 써도 됨!
[기출 4회]
기타4-2 ② cmd등록
문제: 마지막 행 다음에 연속 추가/
구분과 기본요금에는 구분, cmb구분에서 선택된 값으로 각각 표시 /
보호자동반에는 opt유 선택되면 유, opt무 선택되면 무 /
요금 = (퇴장시간의 시간 – 입장시간의 시간)*기본요금
If~Else문, Hour 함수 사용
a = Range("b5").CurrentRegion.Rows.Count + 4
Cells(a, 2) = cmb구분
Cells(a, 3) = txt아동명
If opt유 = True Then
Cells(a, 4) = "유"
Else
Cells(a, 4) = "무"
End If
Cells(a, 5) = Cells(cmb구분.ListIndex + 6, 14)
Cells(a, 6) = Format(txt입장시간, "hh:mm")
Cells(a, 7) = Format(txt퇴장시간, "hh:mm")
Cells(a, 8) = Hour(Cells(a, 7) - Cells(a, 6)) * Cells(a, 5)
[기출 5회]
기타4-2 프로시저
① 성적등록화면.Show
cmb수강자.RowSource = “O6:P17”
② cmd등록
문제: 표 마지막 행 다음에 연속 추가 / 학번, 성명에는 cmb수강자에 해당하는 학번과 성명 각각표시
출석은 20-(결석*2+지각*1) / 비고는 출석이 12보다 작으면 출석미달로 표시
a = Range(“b5”).CurrentRegion.Rows.Count + 4
Cells(a, 2) = Cells(cmb수강자.ListIndex + 6 ,15)
Cells(a, 3) = Cells(cmb수강자.ListIndex + 6 ,16)
Cells(a, 4) = txt결석.Value
Cells(a, 5) = txt지각.Value
Cells(a, 6) = 20 – (Cells(a, 4) * 2 + Cells(a, 5) * 1)
Cells(a, 7) = txt과제.Value
Cells(a, 8) = txt평가.Value
If Cells(a, 6) <12 then
Cells(a, 9) = “출석미달”
End If
※ Value는 문제엔 기재되어 있지 않으나, 셀 형식이 ‘숫자’로 되어있는 것 확인
③ 문제: 종료 단추 클릭하면 그림과 같은 메시지박스 표시 후 폼 종료 (시스템의 현재 날짜와 시간 표시)
Msgbox Now(), , “등록화면을 종료합니다”
Unload Me
[기출7회]
계산2-4 사용자정의함수 SELECT CASE문
Select Case 수강인원 / 현재강의수
Case Is >= 20
fn비고 = "강의증설"
Case Is <= 5
fn비고 = "강의폐강"
Case Else
fn비고 = ""
End Select
기타4-1
Select Case cmb과목
Case "과학"
cmb강사명.RowSource = "L5:L7"
Case "국어"
cmb강사명.RowSource = "L8:L10"
Case "수학"
cmb강사명.RowSource = "L11:L13"
Case "영어"
cmb강사명.RowSource = "L14:L18"
End Select
댓글