VB程序语言编写程序:输入方程的三个系数A,B,C,求方程Ax^2 Bx C=0
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 16:39:12
![VB程序语言编写程序:输入方程的三个系数A,B,C,求方程Ax^2 Bx C=0](/uploads/image/f/855366-6-6.jpg?t=VB%E7%A8%8B%E5%BA%8F%E8%AF%AD%E8%A8%80%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%3A%E8%BE%93%E5%85%A5%E6%96%B9%E7%A8%8B%E7%9A%84%E4%B8%89%E4%B8%AA%E7%B3%BB%E6%95%B0A%2CB%2CC%2C%E6%B1%82%E6%96%B9%E7%A8%8BAx%5E2+Bx+C%3D0)
privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint
简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注
privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(
判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei
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)=
'最大公约数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
请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(
PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(
PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj
dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu
1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最
ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P
'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf
将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码:Private Sub Form_load()'必要的初始化操作Timer1.in
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型
DimzsAsInteger,fsAsInteger,xAsStringDox=Inputbox("请输入一个整数")IfVal(x)>0Thenzs=zs+1ElseIfVal(x)fs=fs+1E
PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","
ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"