大学计算机VB程序设计考试题目.docx
《大学计算机VB程序设计考试题目.docx》由会员分享,可在线阅读,更多相关《大学计算机VB程序设计考试题目.docx(44页珍藏版)》请在冰豆网上搜索。
大学计算机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