vb编写求多个数和

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

FunctionMax(xAsInteger,yAsInteger,zAsInteger)AsIntegerMax=IIf(x>=y,x,y)Max=IIf(Max>=z,Max,z)EndFunct

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

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

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

Subtest()DimiAsIntegerDimjAsIntegerDimkAsIntegerDimXAsIntegerFori=1To9X=0Forj=0To9Fork=0To9If(i*100+

做完了,不用任何控件,代码如下：DimM(6)AsByte,H(6)AsByteDimG(3)AsByteDimIAsByte,JAsByte,HjAsIntegerConstN=10,X=6,Y=3

dimi,j,a,basintegerfori=0to99a=i\10b=imod10ifa*b>a+bthenj=j+1nextprintj再问：a=i\10b=imod10是什么意思？有什么作用？

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

1、冒泡法排序后输出最大值和最小值dimssnum=val(inputbox("输入要求的数的个数"))dima(1tonum)fori=1tonuma(i)=texti.textnextform=n

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

感觉不是很明确,比如9怎么算,21怎么算,说清楚好编程

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

Sub Main()    dim i as integer, n as integer&

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

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

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

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

不知你需要什么种类的三角函数,我编了一种,你可以依样画葫芦编出其他Constpi=3.14159PrivateSubCommand1_Click()DimxAsDoublex=InputBox("x=

我HI你吧,等一下