- 1、本文档共9页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《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
您可能关注的文档
- UMTS 网络优化D测试指导书(v1.0).doc
- UniERM个网络流量综合管理系统.doc
- UNIX数命令大全详解-完整版.doc
- Update 项综合管理部规章制度.doc
- UPSC机房动力环境无线监测方案.doc
- UPS案列或分析.doc
- UPS企业在读中国的战略概述.doc
- UPS在线监流测监控系统.doc
- Uwin7 防火墙设置详解.docx
- uW返eb 2.0论文:架构 电子商务 网上购物 数据库.doc
- 2025AACR十大热门靶点推荐和解读报告52页.docx
- 财务部管理报表.xlsx
- 高中物理新人教版选修3-1课件第二章恒定电流第7节闭合电路欧姆定律.ppt
- 第三单元知识梳理(课件)-三年级语文下册单元复习(部编版).pptx
- 俄罗斯知识点训练课件-七年级地理下学期人教版(2024).pptx
- 课外古诗词诵读龟虽寿-八年级语文上学期课内课件(统编版).pptx
- 高三语文二轮复习课件第七部分实用类文本阅读7.2.1.ppt
- 高考物理人教版一轮复习课件第4章第3讲圆周运动.ppt
- 高考英语一轮复习课件53Lifeinthefuture.ppt
- 2025-2030衣柜行业风险投资发展分析及投资融资策略研究报告.docx
文档评论(0)