Question

VB 编写函数fun,函数的功能是：求1-1000内能同时被m,n整除的数的总和并显示.

Answer 1

Function s(ByVal a As Integer,ByVal b As Integer) As Integer

Dim i As Integer

For i = 1 To 1000

If i Mod a = 0 And i Mod b = 0 Then

s = s + i

End If

Next

End Function