Untitled

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim sayilar As String = ""
        Dim sayi As String
        Dim formul As Integer = 0

        For index = 1000 To 9999
            sayi = index.ToString()
            Dim b1 = sayi(0) + sayi(1)
            Dim b2 = sayi(2) + sayi(3)
            formul = Convert.ToInt16(b1) + Convert.ToInt16(b2)
            formul = formul * formul

            If formul = index Then
                If sayilar <> "" Then
                    sayilar = sayilar + ", " + index.ToString()
                Else
                    sayilar = index.ToString()
                End If
            End If
        Next

        MessageBox.Show("Eşitliği sağlayan 4 basamaklı sayılar = " + sayilar.ToString())
    End Sub
End Class