大学计算机vb程序设计考试题目

《大学计算机vb程序设计考试题目》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验三第1题四则运算题设计如下窗体，为五个命令按钮编写5段代码完成四则运算及退出程序，其中在计算除法时，如果第二个数是零，在消息框中显示信息“除数为零”。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a+bEndSubPriva

2、teSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a-bEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDima,bA

3、sSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a*bEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextIfb=0ThenMessageBox.Show("除数为零")ElseTextBox3.Text=a/bEndIfEnd

4、SubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickEndEndSubEndClass第2题一元二次方程求解输入系数后，单击“求解”按钮后，根据判别式的3种不同情况，分别显示如下的不同结果。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)H

5、andlesButton1.ClickDima,b,c,deltaAsDoublea=TextBox1.Textb=TextBox2.Textc=TextBox3.Textdelta=b*b-4*a*cIfdelta>0ThenLabel5.Visible=TrueLabel6.Visible=TrueLabel4.Text="方程有两个不相等实根"Label5.Text="X1="&((-b+Math.Sqrt(delta))/2/a)Label6.Text="X2="&((-b-Math.Sqrt(delta))

6、/2/a)ElseIfdelta=0ThenLabel4.Text="方程有两个相等实根"Label5.Visible=TrueLabel5.Text="X1=X2="&(-b/2/a)Label6.Visible=FalseElseLabel4.Text="方程没有实根"Label5.Visible=FalseLabel6.Visible=FalseEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventAr

7、gs)HandlesButton2.ClickEndEndSubEndClass第3题文本框中前景色和背景色的不同组合目的：单选按钮的使用（1）设计窗体如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。（2）程序功能：分别单击不同的前景色和背景色按钮，在文本框中显示颜色的改变。（3）设置控件的主要属性1）窗体的文本属性为“不同前景色背景色的组合”2）初始前景色为红色、背景色为黄色3）其它属性根据图中显示来设置（4）事件代码PublicClassForm1PrivateSubRadioButton1_Checke

8、dChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChangedTextBox1.ForeColor=Color.RedEndSubPrivateSubRadioButton2_CheckedChanged(ByVals