UC知道VB编程，帮忙~~~
来源：百度知道 编辑：UC知道 时间：2024/07/02 20:24:01
1. 设计一个判断某正整数是一个回文数的算法。
所谓回文数，是指左右数字完全对称的自然数，例如，121，12321，484，555……
2. 设计一个算法，求出给定的自然数a的所有因子。
因子，例如，12=2*2*3，2、3为12的因子
丫，一楼的，真恶劣，讲了跟没讲一样....
本人是初学者，不要那么专业啦，用中文写第一步第二步就行，谢谢
所谓回文数，是指左右数字完全对称的自然数，例如，121，12321，484，555……
2. 设计一个算法，求出给定的自然数a的所有因子。
因子，例如，12=2*2*3，2、3为12的因子
丫，一楼的，真恶劣，讲了跟没讲一样....
本人是初学者，不要那么专业啦，用中文写第一步第二步就行，谢谢
1.判断是否为回文数（调用 isHW 即可，其中number参数为要判断的数）
Private Sub isHW(Number As Long)
Dim Str1 As String
Dim Str2 As String
If Len(Number) Mod 2 <> 0 Then
Str1 = Left(CStr(Number), (Len(Number) / 2))
Str2 = StrReverse(Right(CStr(Number), (Len(Number) / 2)))
Else
Str1 = Left(CStr(Number), (Len(Number) / 2))
Str2 = StrReverse(Right(CStr(Number), (Len(Number) / 2)))
End If
If Str1 = Str2 Then
MsgBox "是回文数"
Else
MsgBox "不是回文数"
End If
End Sub
--------------------------------------------------------
2.获取因子（真汗啊，复杂的算法！用法：全部复制后，直接调用GetYz即可，其中numberA参数为你要获取因子的数~）
Private Sub GetYz(NumberA As Long)
Dim Yz As String
Dim Y As Long
Dim temp As String
Dim num2 As Long
If IsPrime(NumberA) = True Then
MsgBox NumberA & " 是素数！！"
Exit Sub
End If
If NumberA < 2 Then
MsgBox "数