- 1、本文档共50页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PAGE
PAGE 49
安徽机电职业技术学院
《VB程序设计》 课程实训
实训报告
系 (部): 经贸管理学系
班 级: 电商
姓 名:
指导教师: 陈 香
2015 ~ 2016学年第一学期
TOC \o 1-2 \h \z \u 实训项目一 vb集成开发环境 2
实训1-1 3
实训1-2 4
实训项目二 创建简单的应用程序 10
实训2-1 10
实训2-2 12
实训2-3 13
实训2-4 15
实训2-5 16
实训项目三 Visual Basic 语言基础 17
实训3-1 17
实训3-2 18
实训3-3 19
实训3-4 20
实训3-5 22
实训项目四 “科学计数器”设计 23
实训4-1 23
实训4-2 27
实训项目五 “文本字体”设置 29
实训5-1 29
实训5-2 31
实训5-3 33
实训5-4 35
实训5-5 37
实训项目六 图形设计 40
实训6-1 41
实训6-2 42
实训6-3 44
实训6-4 46
实训6-5 47
实训项目一 vb集成开发环境
实训目的与要求
1、能进行Visual Basic 的启动与推出
2、培养Visual Basic的集成开发环境的简单应用
二、实训内容
实训1-1 练习vb6.0的启动与退出
启动
退出
单击vb主窗口右上角的按钮
选择“文件”菜单中的“退出”命令
按快捷键Alt+Q
实训1-2 熟悉集成开发环境的窗口
(1)主窗口
(2)窗体设计器窗口
①拖动窗体设计窗口,改变其位置
②拖动窗体设计窗口边框,改变其大小
③拖动窗体设计窗口的最小化按钮,将其缩成图标双击窗体设计窗口控制菜单图标,恢复其原来大小
(3)属性窗口
(4)工程资源管理器窗口
(5)代码窗口
(6)、工具箱窗口
(7)、其他窗口
①立即窗口
②窗体布局窗口
思考题
1、详细叙述VB6.0各个窗口的主要作用
(1)、主窗口:由标题栏、菜单栏和工具栏组成
(2)、窗体窗口:是VB应用程序的主要构成部分,是应用程序最终面向用户的窗口,应用程序的运行结果最终在窗体中体现。
(3)、属性窗口:设计窗体和窗体中的控件属性
(4)、工程资源管理器窗口:以树形结构方式列出当前工程中所有文件
(5)、代码窗口:编写代码
(6)、工具箱窗口:工具箱由各种图标组成,利用这些工具图标,用户可以在窗体上设计各种控件
(7)、其他窗口:包括立即窗口和窗体布局窗口,立即窗口是为调试应用程序提供的,窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。
2、任意举一个例子来说明VB应用程序开发的详细步骤
(1)、建立可视用户界面的对象
(2)、编写事件驱动的代码
Private Sub Command1_Click()
Text1.Text = 我爱vb
End Sub
Private Sub Command2_Click()
Text1.Text =
End Sub
(3)、运行和调试
实训项目二 创建简单的应用程序
一、实训目的和要求
1、Visual Basic 对象的属性、方法和时间作用
2、练习Visual Basic程序开发的一般步骤操作
3、培养编写简单的应用程序
二、实训内容
实训2-1
设计一个窗体,在窗体上添加一个【确定】命令按钮,运行程序时,单击确定按钮,在窗体上显示“你单击了命令按钮”,若单击窗体,在窗体上显示“你单击了窗体”,运行结果如下图所示
1、设计思路:添加一个命令按钮,两个标签并设置其属性
2、页面设置
3、编写代码
Private Sub Command1_Click()
Print 你单击了命令按钮
End Sub
Private Sub Form_Click()
Print 你单击了窗体
End Sub
4、运行结果
实训2-2
使用循环语句在窗体上输出由“*”组成的简单图形,运行效果如下图所示
1、页面设置
2、编写代码
Private Sub Form_Click()
Dim n As Integer, i%, j%
Cls
n = Val(Text1.Text)
For i = 1 To n
Print Tab(20);
For j = 1 To i
Print *;
Next j
Prin
文档评论(0)