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

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

求VB程式程式码，100至200之间，能被5整除，但不能被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

for i = 100 to 200
if (i mod 5)=0 and (i mod 3 <>0) then s = s+i:str = str&i&" "
next
msgbox str&vbcrlf&"所有数之和为："&s
这是用vbs做的

vb求出100~200之间，能被5整除，但不能被3整除的数,

Private Sub Command1_Click()
Dim a As Integer
For a = 100 To 200 Step 1
If a Mod 5 = 0 And a Mod 3 <> 0 Then
Print a
End If
Next a
End Sub

vb 求1~n之间能被3整除,但不能被7整除的所有整数之和

Private Sub Command1_Click()
Dim i%, n%, s%
n = Val(InputBox("n="))
For i = 1 To n
If i Mod 3 = 0 And i Mod 7 <> 0 Then s = s + i
Next
MsgBox s
End Sub

100到200之间所有能被3整除但不能被5整除的数的和

100到200之间所有能被3整除的数是等差数列102，105，。。。，198 共33个 和为4950
100到200之间所有能被15整除的数是等差数列105,120，。。。，195 共7个 和为1050
则100到200之间所有能被3整除但不能被5整除的数的和为4950-1050=2900

编出完整程式，求出1～100之间，所有能被3整除但不能被7整除的整数之和。

#include <stdio.h>
int main(){
int i,sum;
sum=0;
for (i=1;i<=100;i++)
if (i%3==0&&i%7!=0)
sum+=i;
printf("%dn",sum);
return 0;
}

程式设计求 [ 50,100 ] 间能被6整除,但不能被5整除的数之和

int sum = 0;
for (int i = 50; i<=100; i++)
{
if (i%6 == 0 && i%5 !=0)
{
sum+= i;
}
}
没除错过，应该没问题

编写程式求1到100的整数范围内所有能被3整除但不能被5整除的数之和。

#include<stdio.h>
void main()
{int i,sum=0;
for(i=1;i<=100;i++)
{if(i%3==0&&i%5!=0)
sum=sum+i;
}
printf("%d",sum);
}

求100到200之间能被3和5整除的所有数之和

105+120+135+150+165+180+195=1050

求VB程式程式码,将100到200间所有不能被3整除的数输出

Private Sub Command1_Click()
Dim i, m
For i = 100 To 200
If i Mod 3 <> 0 Then
m = m + 1
Print i;
If m Mod 5 = 0 Then Print
End If
Next i
End Sub