实验报告VB程序设计

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