vb求两数之间被3整除之数之和

b=0

for a = 10 to 50
if a mod 3 = 0 then b = b + a
next

msgbox b

用for循环，中间嵌套if判断。

'以整数为例写一个函数
Private Function calSum3(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Dim i As Integer
For i = num1 To num2
calSum3 = calSum3 + IIf(i Mod 3 = 0, i, 0)
Next
End Function

Private Sub Form_Load()
Debug.Print calSum3(1, 100)'这里调用即可
End Sub

我不写代码，我给你思维

1两数之间那肯定是要循环了
2能被3整除那肯定要判断啦
3之和那肯定要累加啦

第1条做循环，设置两个变量才能循环吧
第2条能被3整除，那就if(){想要做的事}
第3条之和，设置一个变量累加，也就是放在if里面，不过这个变量要在循环外面定义才行，初始化为0