Question

VB中，求从a到100中所有能被3整除的数之和。（0≤a＜100）

开头我是这样的：
Private Sub Command1_Click()
Dim s As Double
Dim a As Integer
s = 0
a = Val(InputBox("请输入a："))
If Int(a / 3) = a / 3 Then
s = s + a
Else
If Int((a + 1) / 3) = (a + 1) / 3 Then
s = s + a + 1
Else
If Int((a + 2) / 3) = (a + 2) / 3 Then
s = s + a + 2
这是筛选确定第一个a的过程，我想问的是这三种情况怎么分开写下去。
最好用For 语句

Answer 1

整除……大家伙怎么就知道除呢……
dim i as integer
dim sum as integer
i = (a / 3) + 1
sum=0
do while i <= 100/3
sum = sum + (i * 3)
i=i+1
loop

接下来就是用你需要的方式显示或整合sum变量中的值。
很久不用VB了，电脑上没有VB环境，以上仅提供算法思想参考。

Answer 2

呵呵 楼主按你思想写吧：
不知道我有没有理解对你的想法

Private Sub Command1_Click()
Dim s As Double
Dim a As Integer
s = 0
a = Val(InputBox("请输入a："))
for a to 100
If Int(a / 3) = a / 3 Then
s = s + a
ElseIf Int((a + 1) / 3) = (a + 1) / 3 Then
s = s + a + 1
ElseIf Int((a + 2) / 3) = (a + 2) / 3 Then
s = s + a + 2
EndIf

next

Answer 3

if a mod 3 then a = a + 3 - a mod 3 '第一个可以被3整除的数
for i= a to 100 step 3 '效率
s= s+i
next

Answer 4

for i=a to 100
if i mod 3=0 then
sum=sum +i
end if
next i
就这么简单

Answer 5

Private Sub Form_Load()
For i = 3 To 100
If i Mod 3 = 0 Then Sum = Sum + i
Next
MsgBox Sum
End Sub