我有VB的编程题不会做 请高手指教~！

来源：百度知道 编辑：UC知道 时间：2024/05/08 19:36:48
1. 一个数如果 恰好等于它的因子之和则称为“完整”。例如，6的因子是1，2，3，并且6=1+2+3，因此6是“完整”。使用过程调用，找出1000以内的所有‘完整”。每找出一个 ，在窗体中显示该数和各因子。
2. 利用 随机函数Rnd()生成25个正整数，赋给一个5行5列的数组的每个元素，并找出最大元素的位置，在窗体中用Print语句显示数组元素的行列，并且显示最大元素及所在的 位置。
3 采用函数的递归调用来求两个整数的最大公约数，在窗体的文本框中输入两个整数的值，且在文本框显示最大公约数的值

function maxgy(myfirst as long,mysecond as long) as long
dim i as long
dim p as long
dim d as long
if myfirst>mysecond then
p=mysecond
else
p=myfirst
end if
for i= p to 1 step -1
if (myfirst mod i=0) and (mysecond mod i=0) then
d=i
exit for
next i
maxgy=d
end function
'这就是个求两个数最大公约的函数
你拷进去用的时候直接用就行了有什么递归法麻。
第一题的因子的规则是什么怎么才是一个数的因子请明确！！