VB程序题：编一函数过程IsH(n),对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于回文数显示一个“★”

VB程序题：编一函数过程IsH(n),对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于回文数显示一个“★”，如下图所示。

解题，在窗体画一个文本框，用于输入，再画一个图片框，用于输出，代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then '按回车键表示确定
        If Not IsNumeric(Text1) Then
            MsgBox "输入非数字串，重新输入"
            Text1.Text = ""
            Text1.SetFocus
        Else
            If IsH(Text1) Then
                Picture1.Print Text1; " ★ "
            Else
                Picture1.Print Text1
            End If
            Text1 = ""
        End If
    End If
End Sub
Function IsH(ss As String) As Boolean
    Dim i%, Ls%
    IsH = True
    ss = Trim(ss)
    Ls = Len(ss)
    For i = 1 To Ls \ 2
        If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) Then
            IsH = False
            Exit Function
        End If
    Next i
End Function

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/92.html