'窗体上只放一个command1
OptionExplicit
Dima!,b!,c!,d!,x1!,x2!
PrivateSubCommand1_Click()
a=InputBox("a=","请输入一元二次方程的系数a")
b=InputBox("b=","请输入一元二次方程的系数b")
c=InputBox("c=","请输入一元二次方程的系数c")
Ifa=0Then
Print"因为a≠0，你输入的a＝0，请重新输入系数a"
EndIf
d=b^2-4*a*c
Ifd>=0Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print"系数为"&a;b;c&"的一元二次方程的根分别为"&"x1="&x1&""&"x2="&x2
Else
Print"此方程在实数范围内无解"
EndIf'这里不能和下面的过程结束标志连在一行
EndSub
