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

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

ID:19764598

大小:472.00 KB

页数:32页

时间:2018-10-06

大学计算机vb程序设计考试题目_第1页
大学计算机vb程序设计考试题目_第2页
大学计算机vb程序设计考试题目_第3页
大学计算机vb程序设计考试题目_第4页
大学计算机vb程序设计考试题目_第5页
资源描述:

《大学计算机vb程序设计考试题目》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

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

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

3、sSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a*bEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextIfb=0ThenMessageBox.Show("除数为零")ElseTextBox3.Text=a/bEndIfEnd

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

5、andlesButton1.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/a)Label6.Text="X2="&((-b-Math.Sqrt(delta))

6、/2/a)ElseIfdelta=0ThenLabel4.Text="方程有两个相等实根"Label5.Visible=TrueLabel5.Text="X1=X2="&(-b/2/a)Label6.Visible=FalseElseLabel4.Text="方程没有实根"Label5.Visible=FalseLabel6.Visible=FalseEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventAr

7、gs)HandlesButton2.ClickEndEndSubEndClass第3题文本框中前景色和背景色的不同组合目的:单选按钮的使用(1)设计窗体如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。(2)程序功能:分别单击不同的前景色和背景色按钮,在文本框中显示颜色的改变。(3)设置控件的主要属性1)窗体的文本属性为“不同前景色背景色的组合”2)初始前景色为红色、背景色为黄色3)其它属性根据图中显示来设置(4)事件代码PublicClassForm1PrivateSubRadioButton1_Checke

8、dChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChangedTextBox1.ForeColor=Color.RedEndSubPrivateSubRadioButton2_CheckedChanged(ByVals

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。