查人人中国名人网商标的构成要素:懂Visual foxpro的朋友帮忙解两道题，很简单（急在线等）
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 04:00:17
我计算机学得非常差，请大侠们帮帮忙，应该很简单的，计算机二级的，
用VF编程
编一个程序使：
1，输入任意一个正整数m，n 能够求出它们的最大公约数。
2，输入正整数n,求出除了1和它本身之外，能够被整除的所有正整数之和。
如输入8，则2+4=6/如输入16， 则2+4+8=14……
用VF编程
编一个程序使：
1，输入任意一个正整数m，n 能够求出它们的最大公约数。
2，输入正整数n,求出除了1和它本身之外，能够被整除的所有正整数之和。
如输入8，则2+4=6/如输入16， 则2+4+8=14……
1,
input "输入任意一个正整数" to m
input "输入任意一个正整数" to n
if m<n
t=n
n=m
m=t
endif
for i=1 to n
if m%i=0 and n%i=0
x=i
endif
endfor
?"最大公约数:",x
2,
s=0
input "输入任意一个正整数" to n
for i=2 to n-1
if n%i=0
s=s+i
endif
endfor
?"正整数",n,"的乘数因子之和:",s
我不清楚FOXPRO的程序语法，这里我用VB的语法写完这两个算法，
你自己将它改为FOXPRO程序吧。
祝你好运！
1、求最大公约数
function gcd(byval a as long, byval b as long) as long
dim r as long
r = a mod b '就是a除以b取余数
if r=0 then '找到a与b最大公约数
gcd=b
else'以除数b与余数r的最大公约数作为a与b的最大公约数
gcd=gcd(b,r)
end if
end function
2、求正整数n的乘数因子之和
Function decompose(ByVal n As Long) As Long
Dim i As Long
Dim total As Long
total = 0
For i = 2 To n - 1
If n Mod i = 0 Then
total = total + i
End If
Next
decompose = total'正整数n的乘数因子之和
End Function