Bir sayının karesini, küpünü ve karekökünü alma

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

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:


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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git