vb 找出100到1000之间能被三整除且不能被5整除的整数，输出满足条件的所有整数及其和。做不对，求指教。 求100到1000之间所有能被3整除但不能被5整除的数的和 ...

\u6c42VB\u7a0b\u5e8f\u4ee3\u7801\uff0c100\u81f3200\u4e4b\u95f4\uff0c\u80fd\u88ab5\u6574\u9664\uff0c\u4f46\u4e0d\u80fd\u88ab3\u6574\u9664\u7684\u6570\u3002\u5e76\u6c42\u6240\u6709\u6570\u4e4b\u548c

Private Sub Command1_Click() '\u5efa\u4e00\u4e2a\u547d\u4ee4\u63a7\u4ef6

intSum = 0
For intNum = 100 To 200
If intNum Mod 5 = 0 And intNum Mod 3 0 Then '\u5224\u65ad100\u81f3200\u4e4b\u95f4\uff0c\u80fd\u88ab5\u6574\u9664\uff0c\u4f46\u4e0d\u80fd\u88ab3\u6574\u9664\u7684\u6570
intSum = intSum + intNum '\u5982\u679c\u662f\u6c42\u548c
End If
Next intNum
MsgBox "100\u81f3200\u4e4b\u95f4\uff0c\u80fd\u88ab5\u6574\u9664\uff0c\u4f46\u4e0d\u80fd\u88ab3\u6574\u9664\u7684\u6570\u3002\u6240\u6709\u6570\u4e4b\u548c " & intSum '\u8f93\u51fa\u6240\u6c42\u7684\u548c

End Sub

#include void main(){int i,s=0;for(i=100;i<=1000;i++)if(i%3==0&&i%5)s+=i;printf("s=%d",s);}

加一个文本框把结果发到文本框中，

文本框MultiLine属性改为True，文本框的ScrollBars属性改为2

Private Sub Text1_Click()

Dim i As Integer, s As Long

Text1.Text = ""

s = 0

For i = 100 To 1000

If (i Mod 3 = 0) And (i Mod 5 <> 0) Then

s = s + i

Text1.Text = Text1.Text & i & vbCrLf

End If

Next i

Text1.Text = Text1.Text & "和为" & s & vbCrLf

End Sub

Private Sub Command1_Click()
Dim i As Single
Dim s As Single
s = 0
For i = 100 To 1000
If i Mod 3 = 0 And i Mod 5 <> 0 Then
Print i
s = s + i
End If
Next i
Print s
End Sub

s As Long

代码是对的，改这句就行

扩展阅读：vivox27现在的价格 ... vb 100 计算 ... 零刻ser6pro vest ... 日冕花开vol 2 ... cube escape collection ... vitopend 100 说明书 ... 计价格 2002 10号 ... vxr v8 5.7多少钱 ... vivo v27pro ...