VB求s=2N-1,不大于S的代码怎么写
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/17 06:24:00
PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值
Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+(2)LoopText2.text=(s)
s=0fori=1to1000step2s=s+iifs>1000?s-iexitendifendforreturn
代码如下:PrivateSubCommand1_Click()f=1Don=n+1f=f*nt=2*n-1s=s+(-1)^n*f/tIfs=10000ThenPrintnExitSubEndIfLo
PrivateSubForm_Click()n=2DoWhiles
PrivateSubCommand1_Click()s=1n=1DoWhiles再问:最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答:6和720再问:大哥看清楚题目确定没错吧错了我要
OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI
因为是计算n!阶乘,所以乘积会很大,你要把n和s定义为大范围变量才行,否则会溢出、Dimn,sAsDouble
看了上面几位的代码:应该都写错了楼主的问题是:s等于1到N之间每个整数的阶乘相加,而不是N的阶乘我没理解错吧?稍等完毕:在模块中输入代码:PublicFunctionfac(nAsInteger)As
Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问:在excle中如何检查再答:添加一个命令按钮定义它的单击属性为再添加一个文本显
一楼的很复杂,给你来个简单的:PrivateSubCommandButton1_Click()Dimi,s,kDimnaaa:n=InputBox("请输入大于等于1的数字")IfVal(n)>=1T
1n与序号每次+!s每次加32第一个写清楚了么.
Sn=2-3anS(n-1)=2-3a(n-1)得an=3a(n-1)/4a1=S1=2-3a1a1=1/2an=3^(n-1)/2*4^(n-1)Sn=(1/2)*(1-(3/4)^n)/(1-3/
PrivateSubCommand1_Click()DimNAsLong,SAsLongDoN=N+1S=S+N*(N+1)IfS>5000ThenExitDoLoopPrint"结果="&SPrin
s=0n=1DoWhilen
PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerDimsum1AsLong,sum2AsLongn=inputbox("请输入
第一题:OptionBase1PrivateSubCommand1_Click()Dima()AsLongn=InputBox("请输入要求的第n个数")ReDima(n)a(1)=1a(2)=1Se
mid从指定位置截取指定长度的容.mid(string,start,len)
这个我来帮你吧!我在VB里写好代码再发给你哟!PrivateSubCommand1_Click()DimnAsInteger,sAsDoublen=Val(InputBox("enterda
DimNAsLongDimiAsLongN=Val(InputBox("请输入数字","输入数字"))Fori=1ToNs=s+i^2NextMsgBoxs再问:请输入数字填写什么啊。。小白不懂求大神