本程序的功能是:找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如378,其各位数字之和为18,而其质因子2,3,3,3,7之和也是18,所以378是满足条件的数。
Option Explicit
Private Sub CmdFind_Click()
Dim i As Integer,p As String,st As String,st1 As String
For i=100 To 999
（）
If csum(i)=zyz(i,st) Then
p=CStr(i)
st1=Left(p,1) & "+" & Mid(p,2,1) & "+" & Right(p,1)
List1.AddItem i & ": " & st1 & "=" & Left(st,Len(st)-1)
End If
Next i
If List1.ListCount=0 Then
List1.AddItem "无满足要求的数!"
End If
End Sub
Private Function csum(m As Integer)As Integer ’求各位数字之和
Dim i As Integer,p As String
p=CStr(m)
For i=1 To Len(p)
（）
Next i
End Function
Private Function zyz(ByVal m As Integer,st As String)As Integer ’求所有质因子之和
Dim i As Integer
i=2
Do
If m Mod i=0 Then
zyz=zyz+i
st=st & i & "+"
m=m\i
EIse
（）
End If
Loop Until （）
End Function