VB如何编写3~999间能被三整除的数字间的和

只能运用最基础的语言
答案要显示在TEXT里就可以了
只能用WHILE,IF,MOD
在线等啊
不要高级的
给我的回答要能直接复制进VB里的 ,AS LONG 不行的只能是 as SINGLE ,as Integer

Private Sub Command1_Click()
Dim i As Integer
Dim sum As Single

i = 3
While i < 1000
If i Mod 3 = 0 Then sum = sum + i
i = i + 1
Wend

Text1.Text = sum
End Sub

可以被 3 整除的数 直接 加 3 就可以 不用 If 判断

Private Sub Command1_Click()
Dim i As Integer
Dim sum As Single

i = 3
While i < 1000
sum = sum + i
i = i + 3
Wend

Text1.Text = sum
End Sub

Private Sub Command1_Click()

Dim I As Long
Dim J As Long

I = 3
While I < 999
If I Mod 3 = 0 Then J = J + I
DoEvents
I = I + 1
Wend
Text1.Text = J
End Sub

Private Sub Command1_Click()

dim i as integer
dim instsum as integer
i=3
intsum=0
do while i<1000
if i mod 3=0 then intsum=intsum+i
i=i+1
loop
text1.text=intsum

End Sub

加一个按纽，一个文本框，直接复制以下的代码