• Home
 · 
• Math/Dates
 · 
• Will produce the A, B, or C values in The Pythagorean Theorem.

Will produce the A, B, or C values in The Pythagorean Theorem.

Will produce the A, B, or C values in The Pythagorean Theorem.

Rate Will produce the A, B, or C values in The Pythagorean Theorem.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If Text3.Text = "" Then
    Text3.Text = (Val(Text1.Text) ^ 2 + Val(Text2.Text) ^ 2) ^ 0.5
End If

If Text1.Text = "" Then
    Text1.Text = ((Val(Text3.Text) ^ 2 - Val(Text2.Text) ^ 2) ^ 0.5)
End If

If Text2.Text = "" Then
    Text2.Text = ((Val(Text3.Text) ^ 2 - Val(Text1.Text) ^ 2) ^ 0.5)
End If

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus

End Sub


Private Sub Command3_Click()
frmMain.Hide
frmAbout.Show

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub