VB程序设计的几个问题谁能帮给下答案啊,急,1.求两个正整数的最大公约数和最小公倍数2.求1-500之间5的倍数的和3.100-300之间或3或7的倍数和这3个程序.

Question

VB程序设计的几个问题谁能帮给下答案啊,急,
1.求两个正整数的最大公约数和最小公倍数
2.求1-500之间5的倍数的和
3.100-300之间或3或7的倍数和
这3个程序.

Answer 1

1.求两个正整数的最大公约数和最小公倍数
Private Sub Command1_Click()
Dim m As Long, n As Long
m = Val(InputBox("请输入一个正整数"))
n = Val(InputBox("请再输入一个正整数"))
If m > n Then
Call qiujie(m, n)
ElseIf m < n Then
Call qiujie(n, m)
Else
Print "两个正整数的最大公约数和最小公倍数皆为" & m
End If
End Sub
'下面是求解子程序,gy为公约数,gb为公倍数
Function qiujie(x, y)
Dim gy, gb
gy = y
Do
If x Mod gy = 0 And y Mod gy = 0 Then
Print "两个正整数的最大公约数为" & gy
Exit Do
End If
gy = gy - 1
Loop Until gy x * y
End Function
2.求1-500之间5的倍数的和
Private Sub Command1_Click()
Dim n, sum
For n = 1 To 500
If n Mod 5 = 0 Then
sum = sum + n
End If
Next n
Print "1-500之间5的倍数的和为" & sum
End Sub
3.100-300之间或3或7的倍数和
Private Sub Command1_Click()
Dim n, sum
For n = 100 To 300
If n Mod 3 = 0 Or n Mod 7 = 0 Then
sum = sum + n
End If
Next n
Print "100-300之间或3或7的倍数和为" & sum
End Sub