大学计算机VB程序设计考精彩试题目

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

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

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

3、on3.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a*bEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.Text文案大全实用文档Ifb=0ThenMessageBox.Show("除数为零"

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

5、em.Object,ByValeAsSystem.EventArgs)HandlesButton1.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/

6、a)Label6.Text="X2="&((-b-Math.Sqrt(delta))/2/a)文案大全实用文档ElseIfdelta=0ThenLabel4.Text="方程有两个相等实根"Label5.Visible=TrueLabel5.Text="X1=X2="&(-b/2/a)Label6.Visible=FalseElseLabel4.Text="方程没有实根"Label5.Visible=FalseLabel6.Visible=FalseEndIfEndSubPrivateSubButton2

7、_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass第3题文本框中前景色和背景色的不同组合目的：单选按钮的使用（1）设计窗体如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。（2）程序功能：分别单击不同的前景色和背景色按钮，在文本框中显示颜色的改变。文案大全实用文档（3）设置控件的主要属性1）窗体的文本属性为“不同前景色背景色的组合”2）初始前景色为红色、背景色

8、为黄色3）其它属性根据图中显示来设置（4）事件代码PublicClassForm1PrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChangedTextBox1.ForeColor=Color.RedEndSubPrivateSubRadioB