编写VB程序-求一元二次方程的根

编写VBVBVBVB程序，求一元二次方程的根创建如下窗体图1，并对“求判别式”、“求根X1”、“求根X2”、“清除”、“关闭”等五个命令按钮编写相应程序，大概步骤如下：图11111、打开VisualBasic6.0应用程序，新建工程：标准EXE。2、在窗口左边的工具栏（如图2）中，选择相应图标拉进窗体中，并对其设置属性，如名称、Caption等。图22223、双击窗体，弹出如下程序窗口图3：图33334、在上述窗口中的“对象”、“过程”下拉菜单中，选择对应的命令按钮名称，进行编程。程序如下：PrivateSubCmdClear_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=EndSubPrivateSubCmdClose_Click()EndEndSubPrivateSubCmdDelta_Click()Text4.Text=Str$(Val(Text2.Text)*Val(Text2.Text)-4*Val(Text3.Text)*Val(Text1.Text))EndSubPrivateSubCmdRoot1_Click()Text5.Text=Str$((-Val(Text2.Text)+Sqr(Val(Text4.Text)))/(2*Val(Text3.Text)))EndSubPrivateSubCmdRoot2_Click()Text6.Text=Str$((-Val(Text2.Text)-Sqr(Val(Text4.Text)))/(2*Val(Text3.Text)))EndSub5、完成编程后，退出。6、启动调试，按如下图4设置方程的系数。图44447、点击相应的命令按钮求解判别式及根，结果如图5.图5555