Private Sub Command1_Click()
Dim a%, b%, c%, dt%, x1!, x2!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
'FOUND
dt =bb-4ac
If (dt > 0) Then
'FOUND
x1 =-b+sqr(dt)/(2a )
'FOUND
x2 =-b-sqr(dt)/(2*a)
Print "两个根是:", x1, x2
Else
Print "方程无根"
End If
End Sub
VB 求二元一次方程的根 最后算出来的数不对
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
悬赏问题
- ¥15 深度学习根据CNN网络模型,搭建BP模型并训练MNIST数据集
- ¥15 lammps拉伸应力应变曲线分析
- ¥15 C++ 头文件/宏冲突问题解决
- ¥15 用comsol模拟大气湍流通过底部加热(温度不同)的腔体
- ¥50 安卓adb backup备份子用户应用数据失败
- ¥20 有人能用聚类分析帮我分析一下文本内容嘛
- ¥15 请问Lammps做复合材料拉伸模拟,应力应变曲线问题
- ¥30 python代码,帮调试,帮帮忙吧
- ¥15 #MATLAB仿真#车辆换道路径规划
- ¥15 java 操作 elasticsearch 8.1 实现 索引的重建