VB程序设计1.(1)完善程序,已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。修改程序，求方程的根。要求：如果方程无实数根，则输出“无实数根”，否

Question

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 的值为 。
火速啊

Answer 1

1)>0or d=0
else
"无实数根"
2）
3）结果为14
希望回答能帮到你。