使用VB
建立四个文本输入框
text1...text4
一个button按钮
text1用来输入a
text2用来输入b
text3用来输入c
text4用来显示结果
编码:
Private Sub Command1_Click()
m=text2*text2-4*text1*text3
if m=0 then text4=1
if m>0 then text4=2
if m
使用VB
建立四个文本输入框
text1...text4
一个button按钮
text1用来输入a
text2用来输入b
text3用来输入c
text4用来显示结果
编码:
Private Sub Command1_Click()
m=text2*text2-4*text1*text3
if m=0 then text4=1
if m>0 then text4=2
if m