作业帮 > 数学 > 作业

VB编写一个函数过程Fun(a As Integer),功能是求500—600之间的某个数整除的数之和

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/06/05 01:38:36
VB编写一个函数过程Fun(a As Integer),功能是求500—600之间的某个数整除的数之和
VB编写一个函数过程Fun(a As Integer),功能是求500—600之间的某个数整除的数之和
Private Function SumA(ByVal a As Integer) As Long
Dim i As Integer,N As Integer
For i = 500 To 600
If i Mod a = 0 Then N = N + i
Next
SumA = N
End Function