vb程序编写程序输入三个系数求一元二次方程的解

给,最简代码：#includevoidmain(){inta,b,c,max;scanf("%d%d%d",&a,&b,&c);max=(a>b?a:b)>c?(a>b?a:b):c;printf("

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

#includeintmain(){inta,b,c;printf("输入三个数");scanf("d%d%d%",acb,c);intt,k;t=a>b?a:b;k=t>c?t:c;printf("

#includevoidmain(){intx=0,y;printf("输入X\n");scanf("%d",&x);if(x=1&&x=10){y=3*x-11;}printf("y=%d\n",y

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

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

scanf("%d,%d,%d,&a,&b,&c");改成scanf("%d,%d,%d“,&a,&b,&c);printf("thelargerstnumberis%d\n,max");改成prin

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

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

#include“stdio.h"voidmain(){\x09inta,b,c,sum;\x09floatave;scanf("%d%d%d",&a,&b,&c);sum=a+b+c;\x09ave

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

ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P

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

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

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

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I

我HI你吧,等一下