Imprimir Página - Ayuda para programa de ternas pitagóricas (a^2 = b^2 + c^2)

Hola, estoy haciendo un programa que genera ternas pitagóricas

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

Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: juanlulete en 17 Julio 2012, 00:42 am