Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bil, akar, kuadrat As Double
bil = Int(TextBox1.Text)
akar = Math.Sqrt(bil)
kuadrat = bil * bil
TextBox2.Text = akar
TextBox3.Text = kuadrat
End Sub
End Class
Komentar
Posting Komentar