- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VBnet 实验报告
北京电子科技学院(BESTI)
实验报告
课程: 可视化程序设计 班级: 0921 姓名: 马畅 学号: 成绩: 指导教师: 徐日 实验日期: 2011.4.20 实验密级: / 预习程度: 实验时间: 15:30~18:00 仪器组次: A03 必修/选修: 选修 实验序号: (二) 实验名称: 可视化基础编程
实验目的与要求:
熟悉VB.NET基本窗体编程和基本控件应用;
培养运用VB.NET编程解决问题的能力,提高计算机编程能力;
引导和培养具有严谨的实验态度和勇于实践的学习精神。
实验仪器:
名称
型号
数量
微机
联想M800
1
实验内容
平均值生成器
从窗口输入若干个数(每次输入一个数),求出输入数据的个数及它们的平均值。
要求:不允许窗口最大化、不允许调整窗口大小。
用户单击【开始】后,可以通过单击【确定】按钮或敲【Enter】键完成每个数的
输入。
当用户单击【取消】按钮或按【Esc】键时停止输入,停止输入时要显示已输入的
数据,并计算显示出他们的平均值。
用户输入数据较多时,为能显示所有数据及计算平均值的结果,在必要时要开启滚动条以方便用户浏览。
2.字符分离器
从程序窗口输入任意字符,程序自动将字母、数字、汉字等分离开,并在程序窗
口中显示分离结果。
要求:不允许窗口最大化、不允许调整窗口大小。
用户输入后,单击【确定】按钮或敲【Enter】键都能完成字符分离。
输入过程中窗体要随着键盘敲击而改变颜色。
3. 电子钟
编程实现一个电子钟,以显示当前日期、星期、时间。
要求:不允许窗口最大化、不允许调整窗口大小。
打开后电子钟能持续、实时的显示当前时间。
要求界面美观,鼠标单击电子钟界面时会更换显示颜色的前、背景色。
二. 实验步骤
平均值生成器
各控件属性:
代码:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer
Dim nums() As Integer
Dim i As Integer
Dim Sum As Integer
Dim Avg As Integer
Sum = 0
n = Val(InputBox(输入总的个数))
TextBox1.Text = TextBox1.Text 参与平均数的总的个数 n vbCrLf
ReDim nums(n - 1)
TextBox1.Text = TextBox1.Text 输入的数 vbCrLf
For i = 0 To n - 1
nums(i) = Val(InputBox(请输入第 Str(i) + 1 个参加求平均的数数))
TextBox1.Text = TextBox1.Text nums(i)
Next i
TextBox1.Text = TextBox1.Text vbCrLf
For i = 0 To n - 1
Sum = Sum + nums(i)
Next i
Avg = Sum / n
TextBox1.Text = TextBox1.Text 求的平均数 vbCrLf
For i = 0 To n - 1
TextBox1.Text = TextBox1.Text Avg
Next i
End Sub
End Class
界面截图:
、字符分离器:
代码:
Public Class Form1
Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim a, b, c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
文档评论(0)