求教高手：数据库管理系统（Access）程序设计（1）如果一个数字的平方的低位与该数字相同，那么这个数字就称为“守形数”，比如252=625，那么25就是一个守形数。设计一个程序找出3-1000万

Question

求教高手：数据库管理系统（Access）程序设计
（1）如果一个数字的平方的低位与该数字相同，那么这个数字就称为“守形数”，比如252=625，那么25就是一个守形数。设计一个程序找出3-1000万之间的所有守形数。
（2）如果一个数字的所有因子（包括1，但不包括该数本身）之和等于该数字，那么这个数字就称为完全数。设计一个程序，求3-1000之间的所有完全数，要求打印其因子。

Answer 1

呵呵，
估计只有这里题目会是“1000万”，因为这样就溢出了，并且老师上课是按1000演示的，我这里也是1000记录的。
老师笔记（是按1000来的）：
Private Sub Command1_Click()
Dim n, pingfang, diwei As Double
For k = 3 To 1000
pingfang = k ^ 2
If k < 10 Then
diwei = pingfang Mod 10
ElseIf k < 100 Then
diwei = pingfang Mod 100
ElseIf k < 1000 Then
diwei = pingfang Mod 1000
End If
If diwei = k Then
Print k;
End If
Next k
End Sub
刚试验过，可以保证运行.
我们来体会作业最后一句话哈，呵呵，怎么“参考”，大家都懂的......
o(╯□╰)o
完全数的改天给你。。。。