vb编程求1到200中能被5整除的数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/17 00:04:19
我的理解,你是一个9*9的矩阵,那么:dimsasintegerdimiasintegerdimjasintegerdimd(9,9)asinteger'假设二维数组为d,且主对角线元素的值为1-9s
dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num
Dimn,x,r,sAsSinglen=2s=0DoWhilen再问:能说一下算法的思路吗?再答:首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例,判断是否能
抢个沙发!S=""fori=0to200step5ifimod30thenS=S&i&","nextiMsgboxS
#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i
是没有思路,还是不会编程?至少有一位数字是5用以下的子函数boolIsInclude5(intnum){while(num!=0){if(num%10==5)returntrue;num=num/10
DimsAsSingleDimiAsIntegerFori=1To50s=s+i/(i+1)NextMsgBox"前50项和为"&s
n=0Fori=200To1000IfiMod4=3AndiMod7=5AndiMod9=2Thenn=n+1EndIfNextiPrintn
简单就是不会再问:....再答:不是不会是好久没做了差不多都忘了呵呵
for循环修改下fori=1to2n-1step2a=a+inexti
PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn
代码:Private Sub Command1_Click() Call max100End SubSub&nbs
DimSAsDouble,IAsInteger,TAsIntegerT=1ForI=1To100S=S+T*1/(2*I-1)T=-TNextMsgBoxS*4你的问题应该还有一个条件,就是计算到什么
PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew
sum=0fori=1to13product=0forj=1toiproduct=product*jnextjsum=sum+jnexti再答:不好意思,Pad打错了,product=0应改为prod
fori=1to50ifimod20thensum=sum+inextmsgboxsum
PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS
#include"stdio.h"voidmain(){inti;for(i=10;i<=150;i++){if((i%4==0)||(i%5==0))printf("%d",i);}}
很简单的~不过你问错地方了
functionsum(n)fori=1tona=a+inextsum=aendfunction