用vb计算输出500内所有能被3和7同时整除的整数之和。（答案是5796）

呵呵很简单,先新建一个text控件然后把下面的代码复制进VB里.
Dim a As Long
Dim i As Long
Dim j As Long
Private Sub Form_Load()
For i = 1 To 500
If i Mod 7 = 0 And i Mod 3 = 0 Then
j = i
a = a + j
End If
Next i
Text1.Text = a
End Sub

dim i as integer
dim sum as integer
sum=0
for i=1 to 500
if i mod 3=0 and i mod 7 =0 then
sum=sum+i
next i
print sum

DIM N AS INTEGER
FOR N=1 TO 500
IF N MOD 3 =0 AND N MOD 7=0 THEN PRINT N
NEXT N