也就是105， 120,135,150,165，依次类推追答
加个百度好友吧
if (i mod 3 =0 ) and (i mod 5=0 ) then
print i
end if
next
编写VB程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数...
msg =msg & i & "是奇数"Else msg =msg & i & "是偶数"Next i Print msg 能被3和5同时整除:For i = 1 to 100 If i\/3 = i\\3 And i\/5 = i\\5 Then msg =msg & i & "能被3和5同时整除"Else msg =msg & i & "不能被3和5同时整除"End If Next i Print msg ...
编写VB程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数...
msgbox "1-1000中能被5和7同时整除的数有"& sum & "个"end sub
VB 问题 100到200能被3或被5整除的数,每行输出10个数 代码要怎么写啊...
Private Sub Form_Click()Dim i As Integer, n As Integer Cls n = 0 For i = 100 To 200 If i Mod 3 = 0 Or i Mod 5 = 0 Then Print i;n = n + 1 If n Mod 10 = 0 Then Print End If Next End Sub
用vb求出100到900能同时被3,5,7整除的数,并求和的代码
Private Sub Form_Click() '点击窗体开始运行Dim s As Long, x As LongMe.ClsPrint "100到900能同时被3,5,7整除的数有："For x = 100 To 900 If x Mod 3 = 0 And x Mod 5 = 0 And x Mod 7 = 0 Then Print x; s = s + x End IfNextPrintPrint "它们的和是...
VB 代码计算能被3或者5整除数三位数之和
Dim i As Integer, x As Long For i = 100 To 999 If i Mod 3 = 0 Or i Mod 5 = 0 Then x = x + i End If Next i Label1.Caption = x 请留意“能被3或者5整除”中的“或者”两字，应该用Or。如果是“能被3和5整除”才用And。另外x设为Integer有可能会溢出，应设为Long ...
VB编程求1到1000中能被3整除的数的个数
dim num3,num7 as integer for i=1 to 1000 if i mod 3=0 then num3=num3+1 end if if i mod 7=0 then num7=num7+1 end if next 最后num3就是能被3整除的数的个数。num7是能被7整除的个数。
vb 程序:计算1-100之间所有能被3整除的数之和
sum_3 = 0, sum_5 = 0;for (i = 1; i <= 100; ++i){if (i % 3 == 0){sum_3 += i;}if (i % 5 == 0){sum_5 += i;}}printf("1-100之间能被3整除的所有数字之和:%d\\n", sum_3);printf("1-100之间能被5整除的所有数字之和:%d\\n", sum_5);return 0;} ...
VB 输出前10个能被3或5整除的正整数
Private Sub Command1_Click()Dim x&, i&Do x = x + 1 If (x Mod 3 = 0) Or (x Mod 5) = 0 Then Print x i = i + 1 End If If i >= 10 Then Exit DoLoopEnd Sub
编程用for循环求1-500之间所有能被3和5和7整除的数的和,并统计输出这些...
这是我的程序，还有运行图，希望对你有帮助。#include<stdio.h> main(){int i,n=0;printf("所有符合条件的数字如下:\\n");for(i=1;i<=500;i++)if((i%3==0)&(i%5==0)&(i%7==0)){n++;printf("%d ",i);} printf("\\n总共%d个\\n",n);} ...
急!!!统计输出100至999内能被3整除且至少有一位是5的整数的个数 要VB...
Private Sub Command1_Click()Dim i As Integer m = 0 i = 100 Do While i <= 999 If i Mod 3 = 0 Then a = i Mod 10 b = (i - a) \\ 10 Mod 10 c = i \\ 100 If a = 5 Or b = 5 Or c = 5 Then m = m + 1 End If i = i + 1 Loop Print m End Sub ...
