用VB编程，判断200~2000中间有多少个整数能被3整除，求这些数之和，并在窗体上输出结果。

Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As Long
n = 0: sum = 0
For i = 201 To 2000 Step 3
s = s + i: n = n + 1
Next i
Print "200-2000之间有" & n; "个数能被3整除，它们的和是" & s
Debug.Print "200-2000之间有" & n; "个数能被3整除，它们的和是" & s
End Sub

For n = 200 To 2000
If n Mod 3 = 0 Then s1 = s1 + 1: s2 = s2 + n
Next
Print "200-2000之间有" & s1 & "个数能被3整除，它们的和为" & s2

dim n as integer,num as interger,sum as interger
num=0:sum=0
for n=200 to 2000
if n mod 3=0 then sum=sum+n :num=num+1
next n
print "200-2000之间有" & num "个数能被3整除，它们的和是" & sum