VB编写一个子过程,求任意三个整数之和.

PrivateSubCommand1_Click()Printcalc(1000,0.05,10)EndSubPrivateFunctioncalc(baseAsSingle,rateAsSingle

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

运用海伦公式dimPaslong,Saslongifa+b>cthenifb+c>athenifa+c>bthenp=(a+b+c)/2S=sqr(p*(p-a)*(p-b)*(p-c))endife

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

哈慢慢想吧再问：为什么用function过程尼？为什么不用sub过程尼？求解再答：function是有返回值的你也可以用SUB但是最后的结果你得用一个外部变量来保存

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

OptionExplicitPrivateSubForm_Click()Dimd(1To10)AsIntegerDimiAsIntegerDimMyMaxAsIntegerDimMyAveAsSing

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

dimrassingle,sassingler=inputbox("请输入圆的半径：")s=3.14159*r^2print"圆的面积是：";s

PrivateFunctionSumA(ByValaAsInteger)AsLongDimiAsInteger,NAsIntegerFori=500To600IfiModa=0ThenN=N+iNex

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

DimnAsIntegerPrivateSubForm_Click()Ifn/2=0ThenPrint"n是偶数"ElsePrint"n是奇数"EndIfEndSubPrivateSubForm_Lo

题目似乎改成：计算1*3+2*4+3*5+····+n*（n+2）的值,比较合理!通常,n表示项数,而n*（n+2）表示通项公式,即：第1项是将n=1,代到n*（n+2）里得到的值,就是1*3第2项是

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

DimxAsLongPrivateSubCommand1_Click()DimaAsLong,bAsLonga=Val(InputBox("A="))b=Val(InputBox("B="))Call

'最大PublicFunctionmax(aAsInteger,bAsInteger,cAsInteger)AsIntegermax=IIf(a>b,IIf(a>c,a,c),IIf(b>c,b,c)

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

我HI你吧,等一下