大学计算机VB程序设计考试题目.docx
《大学计算机VB程序设计考试题目.docx》由会员分享，可在线阅读，更多相关《大学计算机VB程序设计考试题目.docx（40页珍藏版）》请在冰豆网上搜索。
大学计算机VB程序设计考试题目
实验三
第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
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
Ifdelta>0Then
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
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）窗体的文本属性为“不同前景色背景色的组合”
2）初始前景色为红色、背景色为黄色
3）其它属性根据图中显示来设置
（4）事件代码
PublicClassForm1
PrivateSubRadioButton1_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton1.CheckedChanged
TextBox1.ForeColor=Color.Red
EndSub
PrivateSubRadioButton2_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton2.CheckedChanged
TextBox1.ForeColor=Color.Green
EndSub
PrivateSubRadioButton3_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton3.CheckedChanged
TextBox1.ForeColor=Color.Black
EndSub
PrivateSubRadioButton4_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton4.CheckedChanged
TextBox1.BackColor=Color.White
EndSub
PrivateSubRadioButton5_CheckedChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesRadioButton5.CheckedChanged
TextBox1.BackColor=Color.Yellow
EndSub
PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
EndSub
EndClass
第4题三位整数的反序显示
在窗体中添加二个文本框、二个标签和一个命令按钮，在一个文本框中输入一个三位的整数，单击命令按钮后，在另一个框中按相反顺序显示该数，例如，输入123，则在另一个文本框中显示321。
提示：
本题先将每位上的数字分解出来，这要用到整除和计算余数的运算符，例如123整除100后的结果1就是百位，而123除以10的余数就是个位，至于十位，大家可以自己确定。
分解后的三位数再倒序组合成新的三位整数。
PublicClassForm1
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Dima,b,c,d,yAsSingle
a=TextBox1.Text
b=a\100
c=（a-100*b）\10
d=a-100*b-10*c
TextBox2.Text=d&c&b
EndSub
EndClass
试验五
第1题累加
编写程序，计算1~100之间的所有偶数之和，程序窗口界面及控件自行设计。
PublicClassForm1
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Dimi,sumAsLong
Fori=2To100Step2
sum+=i
Next
TextBox1.Text=sum
EndSub
EndClass
第2题使用循环求解水仙花数的问题
要求：
（1）参考教材上例4-3关于水仙花数的定义。
（2）程序窗口界面及控件与例4-3的结果即图4-3一样。
（3）单击“开始”按钮后，在文本框中显示求出的结果。
PublicClassForm1
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimM,k1,k2,k3AsInteger
TextBox1.Clear（）
ForM=100To999
k1=M\100
k2=（M\10）Mod10
k3=MMod10
IfM=k1^3+k2^3+k3^3Then
TextBox1.Text+=M.ToString（）+"="+k1.ToString（）+"^3+"+k2.ToString（）+"^3+"+k3.ToString（）+"^3"+vbCrLf
EndIf
Next
EndSub
EndClass
第3题统计整数的因子
编写程序，向一个文本框输入一个整数，单击“开始”按钮后，找出该数的所有因子，并统计因子的个数和总和，结果在另一个文本框中显示，共有三行，其中第一行该数的所有因子，第二行显示该数的因子个数，最后一行显示该数所有因子之和，窗体界面如下：
PublicClassForm1
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Dima,b,c,dAsLong
c=0
a=TextBox1.Text
b=1
While
升级会员 