vb程序编写一个三角形
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 03:25:20
PrivateSubCommand1_Click()'1'23'456Dima(6)AsIntegerFori1=1To6Fori2=1To6Fori3=1To6Fori4=1To6Fori5=1To
PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputB
privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint
首先要分析业务逻辑:打印10行的三角 第0行打印10个空格, 打印1个* 打印0个空格, (打印0个*此处判断,
运用海伦公式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呀?
公倍数,余下的,再装到其中一种盒子中.再问:。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊?
'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The
dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu
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
假设知道三角形的三边长为a,b,c.程序如下:#include#includedoublearea(doublea,doubleb,doublec){doublearea=0,s=0;s=(a+b+c
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型
C#程序:usingSystem;classProgram{staticvoidMain(){inta,b,c;//三角形的三边长//接收输入Console.WriteLine("请输入三角形的三边长
voidjudge(inta,intb,intc)//判断三角形{if(a+b>c&&b+c>a&&a+c>b)elseif(a==b||b==c||a==c){if(a==b==c)printf("
PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","
ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"
PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0
我HI你吧,等一下