求1 100间偶数之和,VB

这个应该可以!

Fori=0To100IfiMod2=0Thenn=i^2sum=sum+nEndIfNEXT放在IF内就是只对偶数做平方的和,否则不做和.

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

放置一个command1,一个text1,不用再做其它设定,程序会自行设定各个参数,代码如下：PrivateSubCommand1_Click()DimNAsLong,IAsLong,JAsLongI

思路与方法:1,输入一个大于等于6的偶数n.2,采用循环:Fori=2ton-2ifi是素数Andn-i是素数Then输出:i,n-iExitForEndIfNexti再问：这个思路我也知道，但具体到

再答：所以是32.34.36.38.40再答：先求中间的数

DimiasInteger,jasInteger,oasIntegerj=0o=0Fori=1To100Step2j=j+io=o+(i+1)NextDebug.print"100以内的奇数和:"&j

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

1.DimnAsInteger,iAsIntegerDimjiAsDoublen=Val(Text1.Text)i=1ji=1Doji=ji*ii=i+1Ifi>nThenExitDoLoopPrin

我试试,OK了!但是单击完窗体要等待几秒,因为机器在进行运算,不要着急,等5秒就可以!PrivateSubForm_Click()DimNumAsInteger‘控制Num个算式换行DimnAsInt

PrivateSubForm_Click()Fori=2To1000s1=0Fori1=1ToiIfiModi1=0Thens1=s1+1NextIfs1=2Thens=s+iNextPrintsEn

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

给,已经编译运行确认：#include#includevoidmain(){intsum=0,i;for(i=0;i

2500再问：过程，谢谢再答：1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

PrivateSubCommand1_Click()x=InputBox("请输入任意大于6的偶数","输入")IfNotIsNumeric(x)ThenMsgBox"输入错误":ExitSubIfx

Dimi,j,nAsInteger,flagAsBooleanPrivateSubCommand1_Click()n=Text1.TextFori=2Ton/2flag=FalseForj=2ToSq

把奇数的一起补上了#include"stdio.h"intmain(){inta=0,b=0;inti=0;for(i=0;i

Functiona(n)DimmAsLongm=n\2a=m*(m+1)EndFunction

1个数的约数中,最大的是这个数本数,第二大的是这个数的1/2所以这个数为：120/(1+1/2)=80