用VB解方程ax^+bx+c=0的代码如何编写？如题 谢谢了
答案:1 悬赏:80
解决时间 2021-02-22 15:24
- 提问者网友：骑士
- 2021-02-22 08:32
用VB解方程ax^+bx+c=0的代码如何编写？如题 谢谢了
最佳答案
- 二级知识专家网友：一把行者刀
- 2021-02-22 09:58
还是你老哥来回答吧首先添加text1,text2,text3，用来放方程式的3个系数，再添加text4,text5用来放结果，再加个command1，用来计算，然后双击command1添加代码 Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text) If a = 0 ThenLabel1.Caption = "二次项系数不能为零！"ElseIf a <> 0 And (b * b) - 4 * a * c >= 0 ThenText4.Text = Val((-b + Sqr((b * b) - 4 * a * c)) / 2 * a)Text5.Text = Val((-b - Sqr((b * b) - 4 * a * c)) / 2 * a)Label1.Caption = "运算结束！"ElseIf a <> 0 And (b * b) - 4 * a * c < 0 ThenLabel1.Caption = "判别式小于零，方程无实数根！"End IfEnd Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯