Bilişim Teknolojilerinin Temelleri dersi sınav soruları (Soru 4)
İki kenarı girilen dik üçgenin Hipotenüsünü hesaplayan ve sonucu Label4 e yazan vb kodlarını yazınız
[Code=’VB.NET’]Private Sub Command1_Click()
Dim hipotenus As Single
hipotenus = Sqr((Val(Text1.Text) ^ 2 + Val(Text2.Text) ^ 2))
Label4.Caption = hipotenus
End Sub [/Code]