missice's Blog

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myfile As Integer = My.Computer.FileSystem.ReadAllText("c:\vb\940301.SM")
        Dim s, i As Integer
        Dim n As Integer = myfile
        For i = 1 To 99
            s = s & (n Mod 10)
            n = (n - (n Mod 10)) / 10
            If n = 0 Then Exit For
        Next
        If s = myfile Then
            TextBox1.Text = myfile & "是回文"
        Else
            TextBox1.Text = myfile & "非回文"
        End If
    End Sub