路尚书回答：
vb代码如下：
PrivateSubCommand1_Click()
DimaAsSingle,bAsSingle,cAsSingle
DimdAsSingle,x1AsSingle,x2AsSingle
a=InputBox("请输入一元二次方程的系数a")
b=InputBox("请输入一元二次方程的系数b")
c=InputBox("请输入一元二次方程的系数c")
Ifa=0Then
a=InputBox("因为a≠0,你输入的a＝0,请重新输入系数a")
EndIf
d=b*b-4*a*c
Ifd>=0Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print"系数为";a;b;c;"的一元二次方程的根分别为";x1
Print"系数为";a;b;c;"的一元二次方程的根分别为";x2
Else
Print"此方程在实数范围内无解"
EndIf
EndSub
一、按钮“求一元二次方程”的vb代码如下：
PrivateSubCommand1_Click()
a=Text1.Text
b=Text2.Text
c=Text3.Text
d=b*b-4*a*c
Ifd>=0Then
X1=(-b+Sqr(d))/(2*a)
X2=(-b-Sqr(d))/(2*a)
Label4.Caption=X1
Label5.Caption=X2
Else
Label4.Caption="在实数范围内无解"
EndIf
EndSub
二、按钮“重置”的vb代码如下：
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Label4.Caption=""
Label5.Caption=""
EndSub
三、按钮“退出”的vb代码如下：
PrivateSubCommand3_Click()
End
EndSub
特殊例子（指定系数c的值为5）：
在窗体“Form1.frm”的“Command1_click“事件中编写代码（请不要随便更改其它代码）,使之能够实现如下功能：在Text1输入整数a、、Text2输入b,判断一元二次方程ax2+bx+5=0有无实数根.并在Text3文本框中显示判断结果,即有实数根则在Text3文本框中输出“有”,否则输出“无”.
VB程序代码如下：
PrivateSubCommand1_Click()
dimaassingle,bassingle
a=Text1.Text
b=Text2.Text
d=b*b-4*a*5
Ifd>=0Then
Text3.Text="有"
Else
Text3.Text="无"
EndIf
EndSub
如果不用dim定义变量,则上面的输入部分语句改为下面的语句,这样可以把字符变量类型转化为数值类型：
a=val(Text1.Text)
b=val(Text2.Text)
楼主.给你写这么呢多你不给加点分吗?==||
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 
