编写一vb程序,根据三角形的三边求三角形面积

PrivateSubCommand1_Click()'1'23'456Dima(6)AsIntegerFori1=1To6Fori2=1To6Fori3=1To6Fori4=1To6Fori5=1To

试一下：PrivateSubCommand1_Click()Dimarr(1To20),iFori=1To20Randomizearr(i)=Int(Rnd*101)NextfcarrPrintJoi

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

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

a=Val(inputbox("输入a"))b=Val(inputbox("输入b"))c=Val(inputbox("输入c"))Ifa+b>cAndb+c>aAndc+a>bThen'能构成Ifa

第一个回答的人用的是C++做的,要稍微修改一下.main(){inta,b;printf("pleaseenterthenumber:");scanf("%d",&a);b=chargenum(a);

PrivateSubCommand1_Click()Fori=1To7Step2s=""Forj=1To7-iStep2s=s&""Nextjm=""Fork=1Toim=m&iNextks=s&mP

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu

#include"iostream.h"#include"math.h"usingnamespacestd;\x05//定义名空间voidmain(){\x05

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

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

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

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

PrivateFunctioncheck(ByValaAsInteger,ByValbAsInteger,ByValcAsInteger)AsboolIfNota+b>cThenReturnFalse

用C写的#include#include#includefloatCheckRetangle(floata,floatb,floatc){if((a*a+b*b==c*c)||(a*a+c*c==b*

以下是在vb6中写的.望高手指教.Dima(1To3)AsSingle,okAsBooleanDimi%,j%,x!,s!,p!,y!DimjielunAsStringFori=1To3a(i)=In

PrivateSubform_load()Dimn,a(),i,b(5)n=100000ReDima(n-1)Fori=0Ton-1Randomizea(i)=Int(Rnd*6)+1b(a(i)-1

我HI你吧,等一下