For i = i To 100
If i Mod 3 = 0 Or i Mod 7 = 0 Then
s = s + i
End If
Next i
Print "能被3或都7整除的数之和为" & s
End Sub
s=0
for i=1 to 100
if (i mod 3=0) and (i mod 7=0) then
s=s+i
endif
next
print s追答
if语句中把and改成or
用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的...
VB代码如下：Dim i, jj = 0For i = 1 To 100If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 ThenPrint i,j = j + 1If j = 7 ThenPrintj = 0End IfEnd IfNext i
求1到100之间能被3整除且能被7整除的数的和的vb编辑
sub command1_click()dim i as integer, s as integer s = 0 for i = 1 to 100 if (i mod 3 = 0 and i mod 7 = 0) then s = s + i next msgbox s end sub
VB简单程序编写:求1到100内可以被5或7整除的数之和
For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then iTot = iTot + i Next i Print iTot 结果是:1680 【由于字数限制，去除了Sub，及变量定义】
VB.求出0~100的整数能够被3整除的个数以及能够被7整除的个数。程序...
private sub command1_click dim sum as integer'和 dim count as integer'个数 sum=0 count=0 text3.text=""For i=1 to 100 If i Mod 3=0 And i Mod 7<>0 Then count=count+1 sum=sum+i text3.text=text3.text & i'text3显示都有什么数 End If Next text1.text="和为:"+...
vb程式设计,计算0至100不能被7整除的所有整数的和!
java计算1000以内所有不能被7整除的整数的和。public class class1 { public static void main(String[] args) { int s=0;for(int i=1;i<=1000;i++){ if((i%7)!=0){ s=s+i;} } System.out.println(s);} } VF程式设计题：求100以内所有能被3整除的整数的和 clear s=0 for i...
...用VB编程“求1-100之间可以被5或7整除的数之和。”不胜感激啊...
Private Sub Command1_Click()For i = i To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then s = s + i End If Next i Print "能被5或都7整除的数之和为" & s End Sub
vb编写程序 将1~100之间能同时被2和7整除的整数乘积求出来,并将能被...
如图所示，望采纳。。。
vb程序设计 0到1000中能被7整除数字的个数
回答：Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 1000 If i Mod 7 = 0 Then j = j + 1 Next Print j End Sub
vb求1～100之间5或7的倍数和.工程文件命名为sj1.vbp,窗口文件命名为sj1...
Form1.Cls For I = 1 To 100 If I Mod 5 = 0 Then Print I;S1 = S1 + I End If Next I Print Chr(13) & "1－100之间被5整除的数之和为：S1＝" & S1 For I = 1 To 100 If I Mod 7 = 0 Then Print I;S2 = S2 + I End If Next I Print Chr(13) & "1－100...
...的所有整数中能被3整除的数的个数及能被7整除的数的个数,用循环语句...
private sub command1_click()dim i,a,b for i=1 to 1000 if i mod 3=0 then a=a+1 if i mod 7=0 then b=b+1 next print "1~1000中能被3整除的数的个数=" & a print "1~1000中能被7整除的数的个数=" & b end sub ...
