VB：编⼀函数过程IsH（n），对于已知正整数n，判断该数是否是回⽂数
题⽬来源：⼤⼯慕课
原题：Visual Basic程序设计教程（第⼆版）龚沛曾主编，⾼等教育出版社 实验6-5
作者：Caleb Sung
题⽬要求
编⼀函数过程IsH(n)，对于已知正整数n，判断该数是否是回⽂数，函数的返回值类型为布尔型。主调程序每输⼊⼀个数，调⽤IsH函数过程，然后在图形框显⽰输⼊的数，对于是回⽂数显⽰⼀个”★”，如下图：
提⽰
1. 所谓回⽂数是指顺读与倒读数字相同，即指最⾼位与最低位相同，次⾼位与次低位相同，依次类推。当只有⼀位数时，也认为是回⽂
数。
2. 回⽂数的求法，只要对输⼊的数(按字符串类型处理)，利⽤MID函数从两边往中间逐位⽐较，若不相同，就不是回⽂数。
参考代码
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13Then
If Not IsNumeric(Text1) Then
MsgBox "输⼊⾮数字串，重新输⼊"
Text1.Text = ""
Text1.SetFocus
visual basic pdf
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 = 1To Ls \ 2
If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) Then
IsH = False
Exit Function
End If
Next i
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。