网站大量收购独家精品文档,联系QQ:2885784924

VB程序设计实验f1实验报告.doc

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《VB程序设计》实验报告 姓名 学号 组别 专业班级 教师 日期 机号 (操作 / 报告)成绩 实验1 VB.NET 环境和可视化编程基础 实验目的及要求(见实验书,要求手填): 了解VB.NET系统对计算机软件、硬件的要求。 掌握启动与退出VB.NET的方法。 掌握建立、编辑和运行VB.NET应用程序的全过程。 掌握常用控件的使用,如文本框、标签、命令按钮、图片框。 实验完成情况: 实验完成情况表: 内容 完成情况 预习否 计时 难度评价 1创建一个程序 基本□ 提高□ 创新□ 预习了 5min 简单 2左右移动文字 基本□ 提高□ 创新□ 预习了 5min 一般 3统计鼠标单击窗口的次数 基本□ 提高□ 创新□ 预习了 5min 一般 4按钮、字号、内容、和格式的复制练习 基本□ 提高□ 创新□ 预习了 5min 简单 5图片缩小、还原的设置 基本□ 提高□ 创新□ 预习了 5min 一般 附加 汇率的程序 基本□ 提高□ 创新□ 预习了 5min 简单 附加题内容:人民币与美元相互兑换的程序 界面设计与程序代码 要求:给出界面设计示意图,在属性窗口修改过的对象属性需列出,列出方式如下: 1、 创建一个程序 步骤:①在窗体上建立3个标签、一个命令按钮和一个文本框。 ②在代码窗口中选择Button1对象Click事件,在Button1-Click事件模板内输入代码。 ③单击启动调试按钮运行程序。 ④单击工具栏的“全部保存”按钮。 ①界面设计 对象名 属性名 属性值 Label1 Text Font AutoSize TextAlign 欢迎学习VB.NET 二号字,隶书 False MiddleCenter Label2 Text Font 请输入你的姓名 宋体,有下划线 Button1 Text 请输入你的姓名 Label3 AutoSize BorderStyle False Fixed3D ②程序代码 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label3.Text = TextBox1.Text End Sub ③运行结果 2、左右移动文字 步骤:①在窗体上建立1个标签、1个命令按钮、1个定时器。 ②在代码窗口分别对3个控件编写代码,最后编写左右移动的单位。 ③单击启动调试按钮运行程序。 ④单击工具栏的“全部保存”按钮。 ①界面设计 对象名 属性名 属性值 Form1 Text BackgroundImage 引例 自己喜欢的图片 Label1 Text Font 欢迎使用VB.NET 自己设置 Button1 Text TextAlign ImageAlign 自动 对齐方式为中左 对齐方式为中右 Button2 Text TextAlign ImageAlign 手动 对齐方式为中左 对齐方式为中右 Timer1 Interval 200 ②程序代码 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False Call mymove() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Call mymove() End Sub Sub mymove() Label1.Left = Label1.Left + 50

文档评论(0)

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

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

1亿VIP精品文档

相关文档