VB 编程求 1 到 n 中能被 3 或 7 整除的数之和.

#include/*用for循环实现*/voidmain(){\x09intn;\x09intm;\x09printf("pleaseinputn\n");\x09scanf("%d",&n);\x0

dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num

n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta

#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i

intmain(void){\x09intsum=0,i;\x09for(i=1;i

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

你确定n是22吗?如果N是22,那这个式子无规律可循,您需要把省略的内容贴出来.这样,我说个思路,您看看是不是这样当n为偶数时,sn=1+1/3+1/5+1/7+.+1/（n-1）+1/n当n为奇数时

int sum(int n){    List<int> list = new List

创建一个窗体,并在其上创建三个文本框和一个命令按钮,其中：文本框NN和文本框MM输入N和M的值,文本框JG输出结果.命令按钮Command1用于开始计算,在其单击事件中输入如下代码：PrivateSu

n以内5或7的倍数之和:PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=5TonIfiMod5=0OriMod7=0ThenSum=Sum+iNextM

for(x=n;x>=3;x--)'判断的最小值为3,小于3的值就没有意义{if(!(xmod3)or!(xmod7))'被3除无余数或被7除无余数count+=x;}x=n;while(x-->=4

for循环修改下fori=1to2n-1step2a=a+inexti

PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

DimSAsDouble,IAsInteger,TAsIntegerT=1ForI=1To100S=S+T*1/(2*I-1)T=-TNextMsgBoxS*4你的问题应该还有一个条件,就是计算到什么

mModn=rr=mModn

PrivateSubCommand1_Click()Fori=iTo100IfiMod5=0OriMod7=0Thens=s+iEndIfNextiPrint"能被5或都7整除的数之和为"&sEndS

functionsum(n)fori=1tona=a+inextsum=aendfunction

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton