用VB求1*2*到n小于40000的最大N值
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/23 22:33:27
LoopWhileAbs(a)10^(-7)或LoopUntilAbs(a)
Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+(2)LoopText2.text=(s)
n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta
FunctionSum1(ByValnAsIntger)AsDoubleDimiAsIntegerSum1=0fori=1tonSum1=Sum1+1/inextiEndFunction
#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i
Dimn,IasintegerI=1S=0n=InputBox("请输入正整数N","从键盘接受输入")Whilei
同时与n互质的数------这个不太明白?能说一下吗?下面1000以内质数算法.PrivateSubCommand1_Click()Text1.Text=""Fori=1To1000k=1Forj=2
PrivateSubCommand1_Click()s=1n=1DoWhiles再问:最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答:6和720再问:大哥看清楚题目确定没错吧错了我要
Dim I As Integer, N As Integer &nbs
(1)integer(2)step2(3)nexti再问:1呢?!!再答:有了
for循环修改下fori=1to2n-1step2a=a+inexti
PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)
DimaAsDoubleDimsAsDoubleDimeAsSingleDimtAsSinglea=1s=1e=1DoWhile1/s>=10^(-0.4)s=s*at=1/se=e+ta=a+1Lo
privatesubcommand1-click()dimn%,y#,s&n=2:y=0:s=1dos=s*ny=y+1/sn=n+1loopuntil1/s
法一:这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime
DimsumAsLongDimiAsIntegerDimnAsLongn=InputBox("n=","输入")Fori=1Tonsum=sum+i^2NextiDebug.Printsum
PrivateSubCommand1_Click()x=InputBox("请输入x:")s=1fact=1Doi=i+1fact=fact*it=x^i/facts=s+tLoopUntilt
functionjiecheng(iasinteger)asdoubleforj=1toijiecheng*=inextendfunctiondime=0dimi=0doe+=1/jiecheng(i
functionsum(n)fori=1tona=a+inextsum=aendfunction
PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton