VBnet 实验报告.doc

  1. 1、本文档共10页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

pangzilva + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档