当前位置:首页 » VB程序题 » 正文

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版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/92.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号