vb大学计算机考试题目,大学计算机VB程序设计考试题目.doc

实验三

第1题 四则运算题

设计如下窗体，为五个命令按钮编写5段代码完成四则运算及退出程序，其中在计算除法时，如果第二个数是零，在消息框中显示信息“除数为零”。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, b As Single

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a + b

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim a, b As Single

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a - b

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim a, b As Single

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a * b

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim a, b As Single

a = TextBox1.Text

b = TextBox2.Text

If b = 0 Then

MessageBox.Show("除数为零")

Else

TextBox3.Text = a / b

End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End

End Sub

End Class

第2题 一元二次方程求解

输入系数后，单击“求解”按钮后，根据判别式的3种不同情况，分别显示如下的不同结果。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, b, c, delta As Double

a = TextBox1.Text

b = TextBox2.Text

c = TextBox3.Text

delta = b * b - 4 * a * c

If delta > 0 Then

Label5.Visible = True

Label6.Visible = True

Label4.Text = "方程有两个不相等实根"

Label5.Text = "X1=" & ((-b + Math.Sqrt(delta)) / 2 / a)

Label6.Text = "X2=" & ((-b - Math.Sqrt(delta)) / 2 / a)

ElseIf delta = 0 Then

Label4.Text = "方程有两个相等实根"

Label5.Visible = True