输入起始值、终值，求起始值与终值之间能够被5整除的数的和

来源：百度知道 编辑：UC知道 时间：2024/06/21 00:40:22
谁能帮我解决这个问题呢！
我想了好久了还是想不出来———哎
谢谢了
输入起始值、终值，求起始值与终值之间能够被5整除的数的和（注：所有数据均设为长整数，当起始值比终值大时，步长为-1，否则为1）。
vb

什么语言?

Private Sub Command1_Click()
Dim a, b, sum As Long
Dim i, s, c As Integer
a = Val(InputBox("请输入第一个数", "请输入第一个数"))
b = Val(InputBox("请输入第二个数", "请输入第二个数"))
If a > b Then
s = -1
Else: s = 1
End If
For i = a To b Step s
If i Mod 5 = 0 Then
sum = sum + i
c = c + 1
End If
Next i
sum = sum \ c
Print sum
End Sub