Question

VB使用文本框输入一元二次方程的二次项系数、一次项系数和常数项数据,输出判别式的值.

Answer 1

Private Sub Command1_Click()

dim a

dim b

dim c

dim deta

a=val(text1.text)

b=val(text2.text)

c=val(text3.text)

deta=(b^2-4*a*c)^0.5

text4.text=deta

End Sub

deta就是判别式的值,在text4里面显示