早教吧作业答案频道 -->其他-->
VB程序设计1.(1)完善程序,已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0。修改程序,求方程的根。要求:如果方程无实数根,则输出“无实数根”,否
题目详情
VB程序 设计
1. (1) 完善程序,已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0。修改程序,求方程的根。
要求:如果方程无实数根,则输出“无实数根”,否则输出两个实数根。
Private Sub Command1_Click()
Dim a,b,c,d As Single
Dim x1,x2 As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
d=b^2-4*a*c
If d________ Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
End If
End Sub
(2)编程
随机产生60~120的10个整数,从小到大排序。
(3) 阅读下面的程序段:
For I = 1 To 3
For j = 1 To I
For k = j To 3
a = a + 1
Next k
Next j
Next I
Print a
执行上面的三重循环后,a 的值为 。
火速啊
1. (1) 完善程序,已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0。修改程序,求方程的根。
要求:如果方程无实数根,则输出“无实数根”,否则输出两个实数根。
Private Sub Command1_Click()
Dim a,b,c,d As Single
Dim x1,x2 As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
d=b^2-4*a*c
If d________ Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
End If
End Sub
(2)编程
随机产生60~120的10个整数,从小到大排序。
(3) 阅读下面的程序段:
For I = 1 To 3
For j = 1 To I
For k = j To 3
a = a + 1
Next k
Next j
Next I
Print a
执行上面的三重循环后,a 的值为 。
火速啊
▼优质解答
答案和解析
1)>0or d=0
else
"无实数根"
2)
3)结果为14
希望回答能帮到你。
else
"无实数根"
2)
3)结果为14
希望回答能帮到你。
看了 VB程序设计1.(1)完善程...的网友还看了以下:
设A为实对称矩阵,且A的平方等于0,求证A等于0 2020-04-05 …
A是实对称矩阵,A平方等于零,求证A等于零. 2020-05-15 …
某零件如图所示,图纸要求角A等于90度,角B等于32度,角C等于21度,当检验员量得角BDC等于1 2020-07-15 …
如图点BECF在一条直线上AB等于DEAC等于DFBE等于求证∠A等于∠D 2020-07-16 …
在三角形ABC中BD评分角ABC,AB加AD等于BC,求角A等于2倍角C.是平分角ABC 2020-07-23 …
函数题有关概率密度的已知x的概率密度函数f(x)=Ax²,0<x<10,其他求常数A其解是∫f(x 2020-07-30 …
三角形三个内角为ABC对边是abc如果a的平方等于b乘b加c的积,求证A等于2B.正弦定理解决 2020-08-02 …
1.已知a的平方加b的平方加c的平方减ab减bc减ca等于0.求证a等于b等于c2.已知3的n次方加 2020-11-01 …
第一题6x+2x²-3x+x²+1其中x=-5第二题(5a²-3b²)+(a²+b²)-(5a²+3 2020-11-27 …
一本故事书有a页,小明平均每天看b页,已经看了10天.用式子表示还剩多少页?根据这个式子,求当a等于 2020-12-28 …