大学计算机VB程序设计考试题目2021年整理.pdfVIP

实验三 第1 题四则运算题 设计如下窗体，为五个命令按钮编写5 段代码完成四则运算及退出程序，其中在计算除法时， 如果第二个数是零，在消息框中显示信息“除数为零”。 PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dima,bAsSingle a=TextBox1.Text b=TextBox2.Text TextBox3.Text=a+b EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click Dima,bAsSingle a=TextBox1.Text b=TextBox2.Text TextBox3.Text=a-b EndSub PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click Dima,bAsSingle a=TextBox1.Text b=TextBox2.Text TextBox3.Text=a*b EndSub PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click Dima,bAsSingle a=TextBox1.Text b=TextBox2.Text Ifb=0Then MessageBox.Show(除数为零) Else TextBox3.Text=a/b 1 EndIf EndSub PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click End EndSub EndClass 第2 题一元二次方程求解 输入系数后，单击“求解”按钮后，根据判别式的3 种不同情况，分别显示如下的不同结果。 PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dima,b,c,deltaAsDouble a=TextBox1.Text b=TextBox2.Text c=TextBox3.Text delta=b*b-4*a*c Ifdelta0Then 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) ElseIfdelta=0Then Label4.Text=方程有两个相等实根 Label5.Visible=True Label5.Text=X1=X2= (-b/2/a) Label6.Visible=False Else 2 Label4.Text=方程没有实根 Label5.Visible=False Label6.Visible=False EndIf EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click End EndSub EndClass 第3 题文本框中前景色和背景色的不同组合 目的：单选按钮的使用 （1）设计窗体 如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。 （2 ）程序功能： 分别单击不同的前景色和背景色按钮，在文本框中显示颜色的改变。 （3 ）设置控件的主要属性 1）窗体的文本属性为“不同前景色背景色的组合”