시나공

시험에

나오는 것만

공부한다!

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

-> 위의 cmd성별을 아래와 같이 변경 하세요.

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

End If                  <- 추가하셔야 합니다.
End Sub

Private Sub txt국어_Change()
    txt국어 = spin국어 * 5
End Sub

Private Sub txt수학_Change()
    txt영어 = spin영어 * 5
End Sub

Private Sub txt영어_Change()
    txt수학 = spin수학 * 5
End Sub

-> 위의 빨간색 txt 부분을 spin 으로 변경 하세요.

Private Sub spin국어_Change()
    txt국어 = spin국어 * 5
End Sub

Private Sub spin수학_Change()
    txt수학 = spin수학 * 5
End Sub

Private Sub spin영어_Change()
    txt영어 = spin영어 * 5
End Sub

Private Sub cmd등록_Click()
    기준행위치 = [b3].Row
    기준범위행수 = [b3].CurrentRegion.Rows.Count
    입력행 = 기준행위치 + 기준범위행수
    Cells(입력행, 2) = 입력행 - 3 & txt이름
    Cells(입력행, 3) = txt국어
    Cells(입력행, 4) = txt영어
    Cells(입력행, 5) = txt수학
    Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val((txt수학)) / 3, "0.00")

-> 빨간색 부분 아래와 같이 변경 하세요.

Private Sub cmd등록_Click()
    기준행위치 = [b3].Row
    기준범위행수 = [b3].CurrentRegion.Rows.Count
    입력행 = 기준행위치 + 기준범위행수
    Cells(입력행, 2) = 입력행 - 3 & txt이름
    Cells(입력행, 3) = txt국어
    Cells(입력행, 4) = txt영어
    Cells(입력행, 5) = txt수학
    Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3, "0.00")

좋은 하루 되세요.