c的直，求一元二次方程ax+bx+c=0为什么总出错，
输入a,b,c的直，求一元二次方程ax+bx+c=0为什么总出错，我刚学vb看不出哪出错Private Sub Command1_Click()
Dim a, b, c, d, x1, x2 As Single
a = InputBox("输入a的直", , , 1000, 1000)
b = InputBox("输入b的直", , , 1000, 1000)
c = InputBox("输入c的直", , , 1000, 1000)
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / 2 / a
x2 = (-b - Sqr(d)) / 2 / a
Print "x1="; x1, "x2="; x2
Elxe
MsgBox "输入有错", , 2
End If
End Sub
答：disp('方程形式:a*x^2+b*x+c=0'); a=input('a='); b=input('b='); c=input('c='); p=[a b ...详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
