没有合适的资源?快使用搜索试试~ 我知道了~
大学计算机VB程序设计考试题目.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 31 浏览量
2022-07-13
15:17:19
上传
评论
收藏 423KB DOC 举报
温馨提示
试读
32页
大学计算机VB程序设计考试题目.doc
资源推荐
资源详情
资源评论
大学计算机 VB 程序设计考试题目
1 / 32
实验三
第 1 题 四则运算题
设计如下窗体,为五个命令按钮编写 5 段代码完成四则运算及退出程序,其中在计算除法时,
如果第二个数是零,在消息框中显示信息“除数为零”。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim a, b As Single
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Dim a, b As Single
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a - b
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Dim a, b As Single
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a * b
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
Dim a, b As Single
a = TextBox1.Text
b = TextBox2.Text
大学计算机 VB 程序设计考试题目
2 / 32
If b = 0 Then
MessageBox.Show("除数为零")
Else
TextBox3.Text = a / b
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
End
End Sub
End Class
第 2 题 一元二次方程求解
输入系数后,单击“求解”按钮后,根据判别式的 3 种不同情况,分别显示如下的不同结果。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim a, b, c, delta As Double
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
delta = b * b - 4 * a * c
If delta > 0 Then
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)
大学计算机 VB 程序设计考试题目
3 / 32
ElseIf delta = 0 Then
Label4.Text = "方程有两个相等实根"
Label5.Visible = True
Label5.Text = "X1=X2=" & (-b / 2 / a)
Label6.Visible = False
Else
Label4.Text = "方程没有实根"
Label5.Visible = False
Label6.Visible = False
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
End
End Sub
End Class
第 3 题 文本框中前景色和背景色的不同组合
目的:单选按钮的使用
(1)设计窗体
如下所示窗体中包含两组单选按钮、两个框架和一个命令按钮。
(2)程序功能:
分别单击不同的前景色和背景色按钮,在文本框中显示颜色的改变。
大学计算机 VB 程序设计考试题目
4 / 32
(3)设置控件的主要属性
1)窗体的文本属性为“不同前景色背景色的组合”
2)初始前景色为红色、背景色为黄色
3)其它属性根据图中显示来设置
(4)事件代码
Public Class Form1
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.ForeColor = Color.Red
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.ForeColor = Color.Green
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.ForeColor = Color.Black
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.BackColor = Color.White
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton5.CheckedChanged
TextBox1.BackColor = Color.Yellow
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
第 4 题 三位整数的反序显示
在窗体中添加二个文本框、二个标签和一个命令按钮,在一个文本
大学计算机 VB 程序设计考试题目
5 / 32
框中输入一个三位的整数,单击命令按钮后,在另一个框中按相反顺序
显示该数,例如,输入 123,则在另一个文本框中显示 321。
提示:本题先将每位上的数字分解出来,这要用到整除和计算余数
的运算符,例如 123 整除 100 后的结果 1 就是百位,而 123 除以 10 的
余数就是个位,至于十位,大家可以自己确定。
分解后的三位数再倒序组合成新的三位整数。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim a, b, c, d, y As Single
a = TextBox1.Text
b = a \ 100
c = (a - 100 * b) \ 10
d = a - 100 * b - 10 * c
TextBox2.Text = d & c & b
End Sub
End Class
试验五
第 1 题 累加
编写程序,计算 1~100 之间的所有偶数之和,程序窗口界面及控件自行设计。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim i, sum As Long
For i = 2 To 100 Step 2
sum += i
Next
剩余31页未读,继续阅读
资源评论
celkhn0210
- 粉丝: 1
- 资源: 3万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功