输出(1,100)之间同时被5和7整除的数的个数及他们的和?要求用vb编写程序...
Private Sub Command1_Click()Dim i As Integer, s As Integer, n As Integer For i = 1 To 100 If i Mod 5 + i Mod 7 = 0 Then n = n + 1: s = s + i Next Print "(1,100)之间同时被5和7整除的数的个数："; n Print "它们的和："; s End Sub ...
编写VB程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数...
list1.additem i:sum = sum +1 next msgbox "1-1000中能被5和7同时整除的数有"& sum & "个"end sub
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
设计一个算法,输出1到1000之间所有7的倍数,并画出程序框图
回答：用VB做,设置一个command 按钮。代码如下 Private Sub Command1_Click() Dim k As Integer For k = 0 To 142 '1000内7的倍数最多为142倍 Print k * 7 '输出倍数在乘以7就可以得到1000内能整除7的数 Next k End Sub 希望对你有帮助,O(∩_∩)O哈哈~ 或者这个#include <stdio.h> #...
从1-100之间把能同时被5和7整除的数输出。每行输出五个。VB
同学，你数学是语文老师教的吗，1-100以内，能被5和7同事是整除的数，合起来不过35和70这两个，如何每行输5个出来
编程题:输出1000以内能同时被3、5、7整除的数 谢谢~~
太简单了：public static void main(String[] args){ for(int i=1;i<=1000;i++}{ if( i%3 == 0 && i%5 == 0 && i%7 == 0 ){ System.out.println(i);} } }
vb编程:求在[1~1000]区间中的所有整数中能被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 ...
急求高手解答用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之间所有能被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
vb题答案!(内部)
1.编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。解：代码为 Private Sub form_load()Show Dim n, sum As Integer Print Spc(6); "101~500之间的所有能被3或者7整除的奇数,及各数的和"i = 0 sum = 0 For n = 101 To 500 ...
