实验报告VB程序设计

实验报告3: VB程序设计

二、计算二元一次方程。

1、目的和要求

（1）熟练掌握控件的使用。

（2）复习巩固系统给用户提供算数函数的用法。

2、内容和步骤

（1）创建窗体

窗体forml 由二个命令按钮command1、command2、四个标签labell、Iabel2、Iabel3、Iabel4、三个文本框textl、text2、text3组成

（2）设计窗体界面及属性

属性设置：

（3）编写代码

Private Sub Comma nd1_Click()

Dim a As Long, b As Long, c As Long

Dim d As Long, t As Si ngle

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 The n

If b = 0 The n

If c = 0 The n

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 ="方程有两个实数根: Else

x3 = (-b) / (2 * a)

x4 = t / (2 * a)

Label4.Caption ="方程有两个复数根:

End If

End If

End Sub

Private Sub Comma nd2_Click()

Textl.Text =""

Text2.Text =""

Text3.Text =""

Label4.Captio n =""

End Sub

(4)保存工程，运行程序

3、调试过程及运行结果

4、实验心得

(1)要把求解过程中遇到的情况考虑全面。

(2)要善于利用系统提供的计算函数。x1=" & x1 & " x2=" & x2

x1=" & x3 & "+" & x4 & "i" & " x2=" & x3 & "-" & x4 & "i"