题目
编程计算一元二次方程的解 vb
Private Sub Command1_Click() '此程序在点击按钮Command1中完成
*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数
*** d As Single '定义变量d为单精度实型数
*** x1 As Single,x2 As Single '定义变量x1和x2为单精度实型数
a = InputBox("a=") '将用户输入a的值赋值给变量a
b = InputBox("b=") '将用户输入b的值赋值给变量b
c = InputBox("c=") '将用户输入c的值赋值给变量c
d = *** '求b^2-4ac的值赋值给变量d
'以下语句判断d的值,若小于0则直接输出“此方程无解”
'否则,求两个解x1和x2,并输出结果
If *** Then
Text***.Text = "此方程无解" '在对应的文本框中输出提示
Else
X1 = (-b + Sqr(d)) / (2 * a) '计算x1的值
X2 = (-b - Sqr(d)) / (2 * a) '计算x2的值
Text***.Text = "此方程的解为:" & "x1=" & x1 & "," & "x2=" & x2 '输出x1和x2的值
*** '条件语句结束
End Sub
求大侠改下 跪谢
Private Sub Command1_Click() '此程序在点击按钮Command1中完成
*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数
*** d As Single '定义变量d为单精度实型数
*** x1 As Single,x2 As Single '定义变量x1和x2为单精度实型数
a = InputBox("a=") '将用户输入a的值赋值给变量a
b = InputBox("b=") '将用户输入b的值赋值给变量b
c = InputBox("c=") '将用户输入c的值赋值给变量c
d = *** '求b^2-4ac的值赋值给变量d
'以下语句判断d的值,若小于0则直接输出“此方程无解”
'否则,求两个解x1和x2,并输出结果
If *** Then
Text***.Text = "此方程无解" '在对应的文本框中输出提示
Else
X1 = (-b + Sqr(d)) / (2 * a) '计算x1的值
X2 = (-b - Sqr(d)) / (2 * a) '计算x2的值
Text***.Text = "此方程的解为:" & "x1=" & x1 & "," & "x2=" & x2 '输出x1和x2的值
*** '条件语句结束
End Sub
求大侠改下 跪谢
提问时间:2021-03-16
答案
dim a as long
dim b as long
dim c as long
dim d as single
x1,x2也是dim(定义变量一般都是用dim)
d=b^2-4ac
if
dim b as long
dim c as long
dim d as single
x1,x2也是dim(定义变量一般都是用dim)
d=b^2-4ac
if
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1已知向量a,b满足a=(2,0),丨b丨=1 a与b的夹角为120度求丨a+2b丨
- 2如图所示,竖直墙面与水平地面均光滑且绝缘,两个带有同种电荷的小球A、B分别处于竖直墙面和水平地面上,且处于同一竖直平面内,若用图示方向的水平推力F作用于小球B,则两球静止于
- 32004分之1减2003分之1的绝对值,加2003分之1减2002分之1的绝对值,加2002分之1减2001分之1的绝对值,加2001分之1减2000分之1的绝对值,是什么?
- 4某校男生的六分之一比女生的七分之一多4人,女生比男生少10人,这个学校有多少个男生.
- 5甲乙两车同时从AB两地相对而行,经3小时后,两车还相距全程的5分之2,已知甲车每小时行60千米,甲乙两车的
- 6you never konw what I
- 7英语日本怎么读
- 8密度计如何测固体的密度?
- 9已知F1F2为双曲线x^2/a^2-y^2/b^2=1的两个焦点,它的两个顶点是线段F1F2的三等分点,过焦点F1,且垂直于x轴的直线交双曲线于MN两点,且MN长为16,求双曲线方程.
- 10关于做功和功率,下列说法正确的有
热门考点