Question

求VB程序代码，100至200之间，能被5整除，但不能被3整除的数。并求所有数之和

Answer 1

Private Sub Command1_Click() '建一个命令控件

intSum = 0
For intNum = 100 To 200
If intNum Mod 5 = 0 And intNum Mod 3 <> 0 Then '判断100至200之间，能被5整除，但不能被3整除的数
intSum = intSum + intNum '如果是求和
End If
Next intNum
MsgBox "100至200之间，能被5整除，但不能被3整除的数。所有数之和 " & intSum '输出所求的和

End Sub

Answer 2

代码如下，变量s，为求100至200之间，能被5整除，但不能被3整除的数所有数之和。

s = 0
For i = 100 To 200
If (i Mod 5 = 0) And (i Mod 3 <> 0) Then
s = s + i
End If
Next i

Answer 3

dim i as integer
dim sum as integer
sum=0
for i=100 to 200 step 5
if i mod 3<>0 then sum=sum+i
next

Answer 4

sum=0
for i=100 to 200
if (not (i mod 5)) and (i mod 3) then sum=sum+i
next i
print sum

Answer 5

Private Sub Command1_Click()
s = 0
For i = 100 To 200
If i Mod 5 = 0 And i Mod 3 <> 0 Then
s = s + i
Print i
End If
Next
MsgBox "和为：" & s
End Sub