求vb程序 找出100以内的所有因子之和为完全平方数的正整数

Question

控件也说说啊

Answer 1

在窗体一画一个按钮就可以。
Function chuli(ByVal old) As Integer
chuli = 1
Do While old > 1
For i = 2 To old
If old Mod i = 0 Then
chuli = chuli + i
old = old / i
If old < i Then Exit For
i = i - 1
End If
Next
Loop
End Function

Private Sub Command1_Click()
For old = 1 To 100
If Sqr(chuli(old)) = Int(Sqr(chuli(old))) Then Print old;
Next
End Sub