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

千里之行，始于足下让知识带有温度。第第2页/共2页精品文档推荐大学计算机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)设计窗体