VB计算1-1 2 1 3-1 4 -- 1 99-1 100,显示原式及结果
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 19:01:04
PrivateSubCommand1_Click()DimnAsInteger,tmpAsDouble,sumAsDoubleDimiAsInteger,jAsIntegern=4tmp=1Fori=
数学计算可以简化过程:因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法):DimsAsInteger=-(100/2)如果
Private Sub Command1_Click() Dim i As Integer &
PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
Dim I As Integer, N As Integer &nbs
语句自己找给思路.第一种:暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
PrivateSubCommand1_Click()DimSAsDouble,jcAsDouble,NAsIntegerjc=1N=Val(InputBox("请输入N"))Fori=1ToNjc=j
PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条
PrivateSubfounction()DimiAsIntegerDimjAsIntegerDimkAsLongDimResAsDoubleRes=1Fori=1To10k=1Forj=iTo1St
dima,b,c,x1,x2asinteger点计算之后a=textboxA.textb=textboxB.textc=textboxC.textx1=(-b-(b^2-4*a*c)^0.5)/(2*
你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu
s=1fori=1to10s=s*inextmsgboxs
PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo
PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew
DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4
PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio
PrivateSubCommand1_Click()DimnAsDoublen=Val(InputBox("N="))Fori=1Tons=s+1/(n*(n+1))NextiMsgBox"所求的和为
用循环句子倒是好写,就是99!估计存储不了,太大了……这个,不知道是不是要借助多个变量存储.