Bu program ile bir sayinin karesini, küpünü ve karekökünü aldirabilirsiniz.

Programımızın görünümü şu şekildedir:


Aşağıdaki butonları kullanalım:
  • 3 ADET CHECK
  • 1 ADET LABEL
  • 1 ADET COMMAND
  • 1 ADET TEXT

Şu kodları kullanacağız:

Kod:
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