VB 回文数在数学中也有这样一类数字有这样的特征,成为回文数(palindrome number) 。
设n是一任意自然数 。若将n的各位数字反向排列所得自然数n1与n相等,则称n为一回文数 。例如,若n=1234321,则称n为一回文数;但若n=1234567,则n不是回文数 。
注意:
1.偶数个的数字也有回文数124421
如:1234321
Len(s) / 2=7/2=3.5
k = 1,Mid(s, k, 1)=1,Mid(s, (Len(s) - k + 1), 1)=Mid(s, (7 -1 + 1), 1)=1
k = 2,Mid(s, k, 1)=2,Mid(s, (Len(s) - k + 1), 1)=Mid(s, (7 -2 + 1), 1)=2
……
如果k = 3,为假,就退出循环,
If kLen(s) / 2 Then
k=3 Len(s) / 2 =3.5
VB.NET 编写函数过程IsH(n) 判断是否为回文数你的i = Len(Str(a))会出问题 。
If i1 Then
Return True
End If
这个返回在if内部,当条件不满足将导致函数无返回 。
以下代码仅供参考:
Function IsH(ByVal a As Long) As Boolean
Dim i As Long, j As Long, t As String
t = a.ToString
i = t.Length
Select Case i
Case 1
Return True
Case 2
If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False
Case 3
If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False
Case Else
For j = 1 To i \ 2
【vb.net统计回文数 vb统计数字个数】If Mid(t, j, 1)Mid(t, i - j + 1, 1) Then Return False
Next j
End Select
Return True
End Function
VB.NET 编程 关于回文数的题目 。在WinForm项目的窗体上添加一个按钮和文本框 , 然后把下面的代码粘贴上去就可以了 。
Public Function lsH(ByVal n As String) As String
Dim s1 As String = ""
Dim s2 As String = ""
Dim i As Integer = 0
Dim j As Integer
If n.Length = 1 Then
Return ("是回文数")
Else
If Tell_JiOu(n.Length) = 1 Then
j = (n.Length + 1) / 2
s1 = Mid(n, 1, j)
Else
j = n.Length / 2 + 1
s1 = Mid(n, 1, j - 1)
End If
For i = n.Length To j Step -1
s2 = s2 + Mid(n, i, 1)
Next
If s1 = s2 Then
Return "是回文数"
Else
Return "不是回文数"
End If
End If
End Function
'判断一个整数的奇偶
Public Function Tell_JiOu(ByVal k As Integer) As Integer
If k Mod 2 = 0 Then
Return 2
Else
Return 1
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
Button.Text = lsH(TextBox1.Text)
End Sub
vb.net统计回文数的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb统计数字个数、vb.net统计回文数的信息别忘了在本站进行查找喔 。
推荐阅读
- 券商新媒体运营岗待遇如何,券商运营岗的发展前景
- flutter封装播放器,flutter封装组件
- 手机网络卡顿是因为什么,手机网络很卡是什么问题
- 角色扮演游戏有多少章,角色扮演游戏剧情
- java会员系统代码逻辑 java会员信息录入
- sqlserver重复列更新,sqlserver无法更新标识列
- 安卓备用机吃鸡,能玩吃鸡的备用机
- linux常用命令管道符 linux管道命令作用
- 打卡机为什么下载不到u盘,打卡机插u盘下载失败