Kare küp ve karekök aldırma

KULLANILAN BUTONLAR

3 ADET CHECK
2 ADET LABEL
1 ADET COMMAND
1 ADET TEXT


KODLAR:

Private Sub Command1_Click()
Dim s, k
s = Val(Text1)
If Check1.Value = 1 Then k = s * s
If Check2.Value = 1 Then k = s * s * s
If Check3.Value = 1 Then k = Sqr(s)
Label2.Caption = k
End Sub