程序改错 '------------------------------------------------------- -------------------------------------------------------------- 设计窗体,在文本框中输入二元一次方程系数,单击 “ 求方程的根 ” 按钮,计算 b 2 -4ac 的值,大于等于 0 时计算 并输出两个实根,小于 0 时输出方程无实根。根据程序功能将所给程序段的错误修改过来并运行程序。 '------------------------------------------------------- -------------------------------------------------------------- 事件代码: Private Sub Command1_Click() Dim a%, b%, c%, dt%, x1!, x2! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) '**********FOUND********** dt =b*b-4ac If (dt > 0) Then '**********FOUND********** x1 =-b+sqrt ( dt ) /2*a '**********FOUND********** x2 =-b-sqrt ( dt ) /2*a Print " 两个根是: ", x1, x2 Else Print " 方程无根 " End If End Sub