求一个VB编程题！！急！！！！

来源：百度知道 编辑：UC知道 时间：2024/09/28 11:26:21
在窗体上输入100至200（包括100，200）之间不能被3整除的奇数及这些数的和。（要求给出程序流程图，编程代码，并上机运行通过）

dim a as integer,j as integer,sum as integer
sum=0
for j = 100 to 200
if a mod 3 <> 0 and a mod 2 = 0 then
print a
sum=sum+a
end if
next
print sum

Dim i As Integer
Dim sum As Long
For i = 101 To 199 Step 2 ' 100和200都是偶数不用考虑
If i Mod 3 <> 0 Then
Print i;
sum = sum + i
End If
Next i
Print
Print "这些数的和为"; sum