设计vb程序计算在一定利率下的总金额

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

根据成绩计算绩点的公式是什么?60分绩点是1,然后每增加1分,绩点就增加0.1,例如:80就是绩点为3,98就是绩点为4.是这样子吗?如果是这样子的~程序：dimphy,eng,mathphy=79'

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=

Subtest()DimiAsInteger,sAsInteger,nAsIntegerFori=1To100s=s+iIfiMod19=0Thenn=n+1NextiMsgBox"1到100所有数的

PrivateSubCommand1_Click()Text3.Text=3.14*(Val(Text1.Text)^2-Val(Text2.Text)^2)EndSub再问：能具体一点吗再答：上面就

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

楼上太长了...四个文本框,前三个输入,最后一个输出一个按钮,按钮的单击响应代码如下:PrivateSubCommand1_Click()DimpingjunAsDoublepingjun=(Val(

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt

全部求和再除个数就可以了先求和,同时计算个数再一除算法就是这样,框图自己画

Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc

ConstPI=3.14159DimalfaAsSingleDimxAsSingle,yAsSingle,rxAsSingle,ryAsSingleDimcenxAsSingle,cenyAsSing

按照你的要求做的小程序,希望是你想要的,有问题可以追问,如果满意请采纳

新建一个工程,双击Form1窗体空白区域,在出现的代码窗口中输入如下代码：PrivateSubForm_Load()a=InputBox("请输入边长：","计算正方形的面积")MsgBox"面积="