vb程序计算1 (1 3) (1 3 5) (1 3 5 7 -- 19)
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/30 23:32:44
PrivateSubCommand1_Click()DimnAsInteger,tmpAsDouble,sumAsDoubleDimiAsInteger,jAsIntegern=4tmp=1Fori=
OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons
4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1
PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问:x=x+a*0.2+3000*0.2怎么都乘0.2呀?
把变量的取值范围贴出来.再问:求公式p=v*Z*F(s,x,y)/I。其他的一样求,其中F(s,x,y)=π/M,M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+
PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
语句自己找给思路.第一种:暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum
阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
PrivateSubCommand1_Click()Text3.Text=3.14*(Val(Text1.Text)^2-Val(Text2.Text)^2)EndSub再问:能具体一点吗再答:上面就
定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也
PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'
elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V
PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd
PrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To99s=s+i*(i+1)NextiDebug.Print"计算1*2+2*3
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum
DimsumAsInteger,iAsIntegersum=0Fori=1To100sum=sum+iNextDebug.Print"1+2+...+100=";sum
给出代码比较简单.流程图你就根据代码来画吧sum=0fori=1to10a=1forj=1toia=a*jnextjsum=sum+anextiprintsum