VB实验报告求解一元二次方程.docVIP

实验报告3：VB程序设计 二、计算二元一次方程。 1、目的和要求 （1）熟练掌握控件的使用。 （2）复习巩固系统给用户提供算数函数的用法。 2、内容和步骤 （1）创建窗体 窗体form1由二个命令按钮command1、command2、四个标签label1、 label2、 label3、label4、三个文本框text1 、text2、 text3组成。 （2）设计窗体界面及属性 属性设置： 对象名 控件名 属性名 属性值 功能 command command1 Caption 计算 计算方程 Command2 Caption 清除 清除文本框内的内容 label label1 Caption 二次项系数a 提示 Label2 Caption 一次项系数b 提示 Label3 Caption 常数项c 提示 text1 text1 Text 空 显示a Text2 Text 空 显示b Text3 Text 空 显示c Text4 Text 空 显示求解结果 编写代码 Private Sub Command1_Click() Dim a As Long, b As Long, c As Long Dim d As Long, t As Single Dim x1 As Single, x2 As Single, x3 As Single, x4 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then If b = 0 Then If c = 0 Then Label4.Caption = 方程有无穷多解 Else Label4.Caption = 方程无解 End If Else x1 = (-c) / b Label4.Caption = 方程有一个解： x1 End If Else d = b * b - 4 * a * c t = Sqr(Abs(d)) If (d = 0) Then x1 = (-b + t) / (2 * a) x2 = (-b - t) / (2 * a) Label4.Caption = 方程有两个实数根： x1= x1 x2= x2 Else x3 = (-b) / (2 * a) x4 = t / (2 * a) Label4.Caption = 方程有两个复数根： x1= x3 + x4 i x2= x3 - x4 i End If End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Label4.Caption = End Sub （4）保存工程，运行程序 3、调试过程及运行结果 4、实验心得 （1）要把求解过程中遇到的情况考虑全面。 （2）要善于利用系统提供的计算函数。 1