Código:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cb As Integer 'pre Cateto (b)
Dim ca As Integer 'Cateto (a)
Dim y As Integer 'Hipotenusa
Dim captation As Integer ' Cateto (b)
For y = 1 To TextBox1.Text
For ca = 1 To TextBox1.Text
cb = (Math.Sqrt(y ^ 2 - ca ^ 2))
If cb = (xxxxxxxxxx) Then captation = cb
If y ^ 2 = captation ^ 2 + ca ^ 2 Then
ListBox1.Items.Add(y)
ListBox2.Items.Add(ca)
ListBox3.Items.Add(captation)
End If
Next
Next
End Sub
End Class
Lo que pasa es que donde están las x necesito una función que me diga si cb tiene dígitos decimales y si tiene dígitos decimales que captation no sea igual a cb.
Y también como lo puedo hacer con un solo listbox pero separado por espacios los resultados.
Gracias de antemano