程序代码：

Public Class Form1
    Function ish(ByVal n%)
        Dim i As Integer
        n = Val(TextBox1.Text)
        If n >= 0 And n < 10 Then
            Label3.Text &= n & "★"
            Do While (n > 10)
                For i = 1 To Len(n)
                    If Mid(n, 1, i) = Mid(n, 1, (Len(n) - i + 1)) Then Label3.Text &= n & "★"
                Next

            Loop


        End If
        Return n

    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer, n As Integer
        n = ish(i)
    End Sub
End Class