vb实验指导书

《Visual Basic面向对象程序设计〉

第一部分实验大纲

一、学时学分

总学时：116 总学分：6 实验时数：32 实训课时（课程设计）：20

二、实验的地位、作用和目的

实验课是Visual Basic 面向对象程序设计的重要实践环节。通过实验，使学生加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用，通过简单练习和综合实验，发挥学生的想象力和创新能力。

三、实验对象

本实验开设对象为计算机系的信息与管理专业、网络与多媒体专业及组装与维护专业的专科学生，本实验为必修课程。

四、基本原理及课程简介

《Visual Basic 面向对象程序设计》以Visual Basic 6.0中文版为语言背景，通过实验进一步理解程序设计的基本知识，掌握可视化程序设计的基本思想以及会用VB开发工具设计一些实用的应用程序。在本专业的教学计划中，它是一门专业主干课，本课程在教学内容方面着重基本理论、基本知识和基本方法，在培养实践能力方面着重设计构思和设计技能的基本训练，熟练上机操作能力和分析能力，其重点在于学生的编程能力、理论联系实际的能力、程序的调试能力及创新能力。

本实验课程共开设12个实验项目。

五、实验方式与基本要求

实验方式：

1、由任课教师讲清实验的基本目的、方法及要求

2、实验前必须制定好上机步骤，弄清实验目的；

3、实验每人每次一台计算机，每次均为2小时；

实验要求：

1.了解VB“事件驱动”的编程机制。掌握程序设计语言的基本知识，包括数据类型，表达式，数组等。

2. 掌握结构化程序设计的基本知识，包括顺序结构，选择结构，循环结构，过程的程

序设计方法及文件的操作。

3. 掌握面向对象程序设计的概念与方法，具有一定的程序开发能力。

4. 掌握程序的调试方法，具有处理程序错误的能力。

５、要求学生掌握可视化程序设计的基本思想及利用vb设计一些使用的应用程序。

六、考核与报告

1、实验时应将各种问题与结果记录下来，实验内容存入软盘或硬盘；

2、任课教师对每次记录都要进行检查、分析、登记；

3、课程总成绩应为理论考核与实验登记的综合；

其中实验课程成绩占30%，理论课成绩占70%。

实验安排建议

实验一熟悉vb的开发环境、程序设计的基本步骤

[实验目的]

1. 学习怎样启动和退出VB。

2. 掌握建立、编辑、运行一个VB简单例子。

[实验内容]

1. 启动和退出VB

分别用以下几种方式启动VB:

(1) 用”开始”菜单中的”程序”命令。

(2) 用“我的电脑”。

(3) 用“开始”菜单中的“运行”命令。

(4) 用上面建立的快捷方式。

分别用以下几种方式退出VB：

（1）单击主窗口右上角的“关闭”按钮。

（2）执行“文件”菜单中的“退出”命令。

（3）按Alt+Q键。

2. 利用VB集成开发环境编写简单的VB应用程序

（1）按所示界面设计一个留言薄。要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的

内容不能修改。单击“清除”按钮则清楚两个文本框中的内

容。

（2）按所示界面设计一个加法器。

单击“相加”结果显示在“和”中，单击“清除”按钮则清楚三个文本框中的内容。单击“退出”则退出当前的运行环境。

实验二基本控件的使用

[实验目的]

1. 了解创建应用程序的基本步骤

2. 掌握常用控件的常用属性和事件

[实验内容]

1.产生如图所示的电话面板,模仿打电话的过程,按"*"键可清屏，

在“显示”文本框中显示出你所输入的电话号码（使用Print

方法），以便核对。

部分代码提示：

Private Sub Command11_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text + Command2.Caption

End Sub

2.制作一个如图所示的登录窗体，当密码不正确时使用MsgBox

函数给出相应的错误提示信息！

主要代码如下：

Private Sub Command1_Click()

If Text1.Text = Text2.Text And Text1.Text <> "" Then MsgBox "密码正确，欢迎进入！！", vbOKOnly, "登陆窗口" Form1.Hide

Else

MsgBox "密码不正确，重新输入", vbOKOnly, "登陆窗口" Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End If

End Sub

实验三程序设计结构练习

[实验目的]

1.掌握VB中标准数据类型声明、使用方法。

2.掌握常用内部函数的使用。

3.会使用判定结构和选择结构编制应用程序。

[实验内容]

1.顺序结构（向文本中输入信息）

Private Sub Command1_Click()

Dim i As String * 18

i = InputBox$("请输入文本信息，最多可以输入18个字符", "输入

", "*****", 3000, 3000)

Label1.Caption = i

End Sub

Private Sub Command2_Click()

Dim t As String

t = MsgBox("你真的要退出吗?", 4 + 48 + 0, "退出警告")

If t = 6 Then

End

End If

End Sub