作业帮VB中100以内同时被7和3整除的数字个数用do....loop编写的代码
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/21 18:37:22
这一类问题可以采用枚举的方法来实现：枚举算法的特点8个字,一一列举,逐个检验：往往外面用循环来实现一一列举,在循环中嵌套选择,来实现逐个检验；dimiasintegerfori=100To999选择结
100以内,能同时被3和5整除的偶数有30,60,90,它们的和为30+60+90=180
求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/
#includeintmain(){inti;for(i=2;i
DimiasInteger,jasInteger,oasIntegerj=0o=0Fori=1To100Step2j=j+io=o+(i+1)NextDebug.print"100以内的奇数和:"&j
//#include"stdafx.h"//vc++6.0加上这一行.#include"stdio.h"voidmain(void){inti,j,k;for(i=15;i
#includeintmain(){inti=0;while(i
因为同时要是2和3的倍数.也就是要是6的倍数.那么100内有6,12,18,24,30,36,42,48,54,60,66,72,78,84,90,96
同时被3和7整除最小是21那么21的倍数都符合条件21426384数字很小用穷举法就可以了最大奇数就是63最大偶数就是84再问：谢谢你是最快的而且最全给你采纳吧
A、75，个位上是5，各位上的数的和能被3整除，符合题意；B、85，个位上是5，但各位上的数的和不能被3整除，不符合题意；C、90，个位上是0，不是奇数，不符合题意；D、95，个位上是5，各位上的数的
6个分别为15,30,45,60,75,90
30+60+90=180
PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End
fori=1to100ifimod3=0orimod5=0thenlabel1=label1&i&""next
21、42、63、84再问：怎么算的可以告诉我吗再答：3×7=21，因为3和7都是质数，他们的最小公倍数就是他们相乘，而这个数是21的倍数，它肯定也有3和7是因数再问：谢谢你，我会了再答：不用谢,可以
21,42,63,84四个
6,12,18,24,30,36,42,48,54,60,66,72,78,84,90,96
100以内能同时被3和7整除的最大奇数：63100以内能同时被3和7整除的最大偶数是：84
3和5最小公倍数是15100÷15,商是6所以有6个
PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu