如何用VB里的 select case 语句编程 解一元二次方程要编程的详细...
发布网友
发布时间：2024-02-20 06:37
共1个回答
热心网友
时间：2024-08-08 02:32
'该代码仅可实现一般形式的求值，并以对话框形式显示。
'看不懂就不要看了
dim a,b,c,i
'在这里添加a、b、c的赋值过程
'例如：a=text1.text
'b=text2.text
'c=text3.text
'以上代码为负值
if a <> 0 and b <> 0 and c<> 0 then
if a*2 <> 0 then
i=((0-b)+Sqr(b^2-4*a*c))/2
msgbox i
i=((0-b)-Sqr(b^2-4*a*c))/2
msgbox i
else
msgbox("2a为零")
end if
else
msgbox("请输入数据")
end if
