若正整数A的所有因子(包括1但不包括自身，下同)之和为B，而B的因子之和为A，则称A和B Private Sub form_Click()Dim i As Integer，j As Integer，k As IntegerFor i=1 To 3000j=facsum(i)k=facsum(j)If i=k And i；jNext iEnd SubFunction facsum(n As Integer)As IntegerDim s As Integers=0For i=1 To n \\ 2If n Mod i=0 Then s=s+iNext ifacsum=sEnd Function希望能解决您的问题.
C语言调用随机函数，有没有办法保证随机数不重复？ 出来的方法都是加个srand(time(NULL))那个我知道…可是我是要保证一次运行出来的几个数都不相同 而…
C语言一道算法题设计一个程序，对应于正整数输出其所有素因子（多重因子重复输出）；对于负数，首先输出-1，然后输出所有因子Input第一行输入一个t(t
