vb计算输出以下公式的值 1 X 2! X2 4! X3 6! - XN 2N!

PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值

#include#includeusingnamespacestd;intmain(){doublex,y;cin>>x;if(x

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

1、x&y&"z"是515z,所以len（x&y&"z"）是42、1203、64、515、1218再问：运行的值和你的答案不一样？？再答：我也运行过了，哪个不一样？我把详细过程写了一下，你自己看：第二

PrivateSubCommand1_Click()DimiAsIntegerDimSumAsIntegeri=1Sum=0DoWhile(Sum

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

#includevoidmain(){\x09intsum=0,i,j=1;\x09for(i=1;i

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

1、正确的循环次数应该是：X=0ForI=aTobStepcX=X+1NextIX是循环总次数2、我认为你的：“循环总次数=(b-a)\c+1”应该是的,例如：ForI=1To10Step3的循环总次

PrivateSubCommand1_Click()DimNAsLong,SAsLongDoN=N+1S=S+N*(N+1)IfS>5000ThenExitDoLoopPrint"结果="&SPrin

voidmain(){floatx,y;cin>>x;if(x=10)y=3*x-11;elsey=2*x-1;cout

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

dimxasdoubledimpasdoublep=text1.textifp>10000thenx=p*0.05endififp5000thenx=p*0.03endiftext2.text=x

Option ExplicitPrivate Sub Form_Load()Me.ShowMe.AutoRedraw = TrueDim i

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a