大学计算机VB程序设计考试题目.docxVIP

实验三 第1题四则运算题 设计如下窗体，为五个命令按钮编写 5段代码完成四则运算及退出程序，其中在计算除法时, 如果第二个数是零，在消息框中显示信息“除数为零” 。 Public Class Forml Private Sub Button1_Click( Buttonl.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a + b End Sub Private Sub Button2_Click( Button2.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a - b End Sub Private Sub Button3_Click( Button3.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a * b End Sub Private Sub Button4_Click( Button4.Click Dim a, b As Single a = TextBoxl.Text b = TextBox2.Text ByVal ByVal ByVal ByVal sender sender sender sender As System.Object, As System.Object, As System.Object, As System.Object, ByVal e As System.EventArgs) ByVal e As System.EventArgs) ByVal e As System.EventArgs) ByVal e As System.EventArgs) Handles Handles Handles Handles If b = 0 Then MessageBox.Show( 除数为零) Else TextBox3.Text = a / b End If End Sub Private Sub Button5_Click( ByVai sender As System.Object, ByVai e As System.EventArgs) Handles Button5.Click End End Sub End Class 第2题一元二次方程求解 输入系数后，单击“求解”按钮后，根据判别式的 3种不同情况，分别显示如下的不同结果。Public Class FormlPrivate Sub Button1_Click( ByVal sender As System.Object, Buttonl.ClickDim a, b, c, deltaa = TextBoxl.Text 输入系数后，单击“求解”按钮后，根据判别式的 3种不同情况，分别显示如下的不同结果。 Public Class Forml Private Sub Button1_Click( ByVal sender As System.Object, Buttonl.Click Dim a, b, c, delta a = TextBoxl.Text ByVal e As System.EventArgs) Handles As Double b = TextBox2.Text c = TextBox3.Text delta = b * b - 4 * a * c If delta 0ThenLabel5.Visible =Label6.Visible =Label4.Text =Label5.Text =Label6.Text =True If delta 0 Then Label5.Visible = Label6.Visible = Label4.Text = Label5.Text = Label6.Text = True True 方程有两个不相等实根” X1= ((-b + Math.Sqrt(delta)) / 2 / a) X2= ((-b - Math.Sqrt(delta)) / 2 / a) Elself delta = 0Label4.Text = Label5.Visible = Label5.Text = Label6.Visible =Else Elself delta = 0 Label4.Text = Label5.Visible = Label5.Text = Label6.Visible = Else Label4.Text = Label5.Visible = La