시나공

시험에

나오는 것만

공부한다!

기출문제 정답으로 제공해준 엑셀 파일과 동일한 결과값을 도출하지만

시나공에서 제공한 해답과 코드가 다릅니다.

이래도 정답처리가 되는지요?

아래가 기출문제 1에대해 저가 작성한 코드입니다.

--------------

Private Sub chk성별_Click()
If chk성별 = True Then
cmd성별.Caption = "남학생"
Else
cmd성별.Caption = "여학생"
End If
End Sub

Private Sub cmd등록_Click()
기준위치행 = [B3].Row
기준위치범위행 = [B3].CurrentRegion.Rows.Count
입력행 = 기준위치행 + 기준위치범위행

Cells(입력행, 2) = Format(입력행 - 기준위치행) + txt이름
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학

평균 = (Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3
Cells(입력행, 6) = Format(평균, "0.00")

Select Case Int(평균 / 10)
Case 1: Cells(입력행, 7) = "가"
Case 2: Cells(입력행, 7) = "가"
Case 3: Cells(입력행, 7) = "가"
Case 4: Cells(입력행, 7) = "가"
Case 5: Cells(입력행, 7) = "가"
Case 6: Cells(입력행, 7) = "양"
Case 7: Cells(입력행, 7) = "미"
Case 8: Cells(입력행, 7) = "우"
Case 9: Cells(입력행, 7) = "수"
Case 10: Cells(입력행, 7) = "수"
End Select

Cells(입력행, 8) = cmd성별.Caption

txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""

End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub spin국어_SpinDown()
txt국어 = Val(txt국어) - 5
End Sub

Private Sub spin국어_SpinUp()
txt국어 = Val(txt국어) + 5
End Sub

Private Sub spin영어_SpinDown()
txt영어 = Val(txt영어) - 5
End Sub

Private Sub spin영어_SpinUp()
txt영어 = Val(txt영어) + 5
End Sub

Private Sub spin수학_SpinDown()
txt수학 = Val(txt수학) - 5
End Sub

Private Sub spin수학_SpinUp()
txt수학 = Val(txt수학) + 5
End Sub

----------------