《可视化程序的设计VB实验指导书.pdfVIP

包头职业技术学院计算机与信息工程系教学资料 《可视化程序设计VB》实验指导书 实验一 VB 集成环境及简单应用程序的建立 、实验目的 1．掌握VB6.0 的启动与退出。 2 ．了解VB6.0 的集成开发环境，熟悉各主要窗口的作用。 3 ．了解VB6.0 应用程序的开发过程。 4 ．理解VB 中对象的概念。 5 ．掌握在VB6.0 中使用帮助的方法。 二、实验内容 1．练习Visual Basic 6.0 的启动与退出; 熟悉Visual Basic 6.0 的集成开发环境，了解各 主要窗口的作用; 但不创建任何工程。 方法: 1）启动 VB 的办法：开始 －程序 －Microsoft Visual Basic 6.0 中文版 － Microsoft Visual Basic 6.0 中文版 2 ）在启动时显示的新建工程对话框中单击取消就可以实现不创建任何工程 包头职业技术学院计算机与信息工程系教学资料 2 ．创建一个创建文字移动动 工程。 方法： 1）启动VB 2 ）在老师指导下设计如图所示界面 3 ）输入如下代码 在代码窗口编写如下程序代码： Dim step 1 As Integer 控制移动的方向，1 往右移，-1 往左移 Private Sub Form_Load() 初始化 step 1 = 1 使文字往右方移动 Timer 1.Interval = 0 时钟不起作用 End Sub 包头职业技术学院计算机与信息工程系教学资料 Private Sub Command2_Click() 手动，单击一下，移动一次 Timer 1.Interval = 0 Call MyMove 调用自定义移动过程，在窗体上移动Label1 控件 End Sub Private Sub Command1_Click() 自动 Timer 1.Interval = 200 设置时钟每0.2 秒触发一次，控制移动的速度 End Sub Private Sub Timer 1_Timer() 时钟每0.2 秒触发一次，自动执行该过程 Call MyMove End Sub Public Sub MyMove() 用户自定义的移动Label1 控件过程 Label1.Move Label1.Left + 50 * step 1 每次移动50twip If Label1.Left + Label1.Width Form1.Width Then 超出窗体范围，反向移动 step 1 = - 1 ElseIf Label1.Left 0 Then step 1 = 1 End If End Sub 3 ．练习在Visual Basic 6.0 中使用帮助的各种方法。 1）1） 使用MSDN 查阅器； 2 ）2 ） 使用上下文相关的帮助。 三、问题讨论 1．1． 简述Visual Basic 6.0 的集成开发环境中各主要窗口的作用。 2 ．2 ． 区分类与对象，简述对象的三要素。 3 ．3 ． 简述创建VB 应用程序的基本步骤。 实验二 窗体、标签、文本框、命令按钮的应用 、实验目的 1．掌握与 体、标签、文本框、命令按钮相关的属性、事件、方法。 2 ．熟练掌握在窗体上创建上述控件的操作方法。 3 ．掌握事件过程的代码编写。 4 ．能够处理基本的错误 、实验内容 1. 1. 设计一个程序，工程文件名为VB6c02-1 。用窗体模拟黑板，鼠标单击窗 体时窗体上输出提问，双击时显示回答。 题目分析：把窗体装扮成黑板模样，要设置窗体的Bac