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