《大学计算机VB程序设计考试题目》由会员分享，可在线阅读，更多相关《大学计算机VB程序设计考试题目（32页珍藏版）》请在金锄头文库上搜索。
1、实验三第 1 题 四则运算题设计如下窗体，为五个命令按钮编写5 段代码完成四则运算及退出程序，其中在计算除法时，如果第二个数是零，在消息框中显示信息“除数为零”。Public Class Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim a, bAs Singlea = TextBox1.Textb = TextBox2.TextTextBox3.Text = a + bEnd SubPrivateSub Button2_Cl
2、ick(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton2.ClickDim a, bAs Singlea = TextBox1.Textb = TextBox2.TextTextBox3.Text = a - bEnd SubPrivateSub Button3_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton3.ClickDim a, bAs Singlea = TextBox1.Textb = Te
3、xtBox2.TextTextBox3.Text = a * bEnd SubPrivateSub Button4_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton4.ClickDim a, bAs Singlea = TextBox1.Textb = TextBox2.TextIfb = 0ThenMessageBox.Show(ElseTextBox3.Text = a / bEnd IfEnd Sub 除数为零)Private Sub Button5_Click( ByVal sende
4、r As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEndEnd SubEnd Class第 2 题一元二次方程求解输入系数后，单击“求解”按钮后，根据判别式的3 种不同情况，分别显示如下的不同结果。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,Button1.ClickDim a, b, c, deltaAs Doublea = TextBox1.Textb = TextBox2.Textc = TextBox
5、3.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) / 2 / a)ByVal eAs System.EventArgs)HandlesElseIfdelta = 0ThenLabel4.Text = 方程有两个相等实根Label5.Visible =
6、TrueLabel5.Text =X1=X2= & (-b / 2 / a)Label6.Visible =FalseElseLabel4.Text = 方程没有实根 Label5.Visible =FalseLabel6.Visible =FalseEnd IfEnd SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubEnd Class第 3 题 文本框中前景色和背景色的不同组合目的：单选按钮的使用（
7、1）设计窗体如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。（ 2）程序功能：分别单击不同的前景色和背景色按钮，在文本框中显示颜色的改变。（ 3）设置控件的主要属性1）窗体的文本属性为“不同前景色背景色的组合”2）初始前景色为红色、背景色为黄色3）其它属性根据图中显示来设置（ 4）事件代码Public Class Form1PrivateSub RadioButton1_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handles RadioButton1.CheckedChangedText
8、Box1.ForeColor = Color.RedEnd SubPrivateSub RadioButton2_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handles RadioButton2.CheckedChangedTextBox1.ForeColor = Color.GreenEnd SubPrivateSub RadioButton3_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handl
9、es RadioButton3.CheckedChangedTextBox1.ForeColor = Color.BlackEnd SubPrivateSub RadioButton4_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handles RadioButton4.CheckedChangedTextBox1.BackColor = Color.WhiteEnd SubPrivateSub RadioButton5_CheckedChanged(ByVal senderAs System.Ob
10、ject,ByVal eAsSystem.EventArgs)Handles RadioButton5.CheckedChangedTextBox1.BackColor = Color.YellowEnd SubPrivateSub Form1_Load( ByVal sender As System.Object,ByVal e As System.EventArgs) HandlesMyBase.LoadEnd SubEnd Class第 4 题 三位整数的反序显示在窗体中添加二个文本框、二个标签和一个命令按钮，在一个文本框中输入一个三位的整数，单击命令按钮后，在另一个框中按相反顺序显示该
11、数，例如，输入 123，则在另一个文本框中显示 321。提示：本题先将每位上的数字分解出来，这要用到整除和计算余数的运算符，例如 123 整除 100 后的结果 1 就是百位，而 123 除以 10 的余数就是个位，至于十位，大家可以自己确定。分解后的三位数再倒序组合成新的三位整数。PublicClass Form1PrivateSub Button1_Click(ByVal senderButton1.ClickDim a, b, c, d, yAs SingleAs System.Object,ByVal eAs System.EventArgs)Handlesa = TextBox1.Textb = a 100c = (a - 100 * b) 10d = a - 100 *
