vb程序设计-实验指导书.doc

1、实验的总体要求与方法实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。1 实验的基本目的（1） 通过实验熟悉面向对象程序设计的基本概念。（2） 通过实验熟练掌握利用 VB 进行可视化程序设计的基本方法。（3） 通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有计一般应用程序和解决事务管理问题的能力。2 实验的基本要求（1） 上机实验之前，应认真预习

2、有关实验内容及相应教材。（2） 实验过程中应记录实验中的有关数据（包括出错信息等） ，以便课后进行分析。（3） 上机时要遵守实验室的规章制度，爱护实验设备。实验报告每个实验结束后都应写出实验报告，报告中应包括下列内容：（） 实验目的（） 实验内容与要求（） 实验步骤（） 实验结果及分析讨论、实验心得体会等。实验一 熟悉 vb 的开发环境、程序设计的基本步骤【实验目的】 1熟悉 Visual Basic 6.0 集成开发环境。2. 学习怎样启动和退出 VB3掌握开发一个简单程序的基本步骤。4掌握简单代码的编写。 【实验内容】1启动和退出 VB2开发一个简单程序。3将 Visual Basic 工

3、程编译生成可执行文件。【实验要求及操作步骤】一、启动和退出 VB1、进入 VB 集成开发环境要进入 VB 应用程序，首先要运行 VB 的集成开发环境。启动 VB 的方法如下：方法 1单击任务栏上的“开始”按钮；选择“程序”文件夹，接着选取“Microsoft Visual Basic 6.0 中文版”文件夹，再选取“Microsoft Visual Basic 6.0 中文版”项，如图 1-1 所示；图 1-1 启动 VB 的方法 1 单击鼠标左键。方法 2 单击任务栏上的“开始”按钮； 选择“程序”文件夹； 使用“Windows 资源按理器”查找 VB 可执行文件 VB6.exe； 双击图标

4、。方法 3 在桌面创建一个 VB 快捷键； 双击该快捷键。VB 启动后，出现 VB6.0 的“新建工程”对话框（图-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到 VB 集成开发环境的界面，如图 1-3 所示。有的系统启动后可直接进入图 1-3 所示的界面。图 1-2 VB6.0 的“新建工程”对话框图 1-3 VB 的集成开发环境窗口1、退出 VB 方法：（1） 单击主窗口右上角的“关闭”按钮。（2） 执行“文件”菜单中的“退出”命令。（3） 按 Alt+Q 键。二、开发一个简单程序要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label

5、）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击 Microsoft Visual Basic 6.0 快捷方式图标，系统进入 Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准 EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0 进入设计模式。如图 14 所示。图 14“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面在系统提供的名为 Form1 的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，

6、就将标签控件添加到窗体上。初始界面如图 15 所示。图 15 初始界面（3）设置属性如表 11 所示。表 11 属性设置对象 属性 属性值Form1 Caption 我的第一个 VB 程序Label1 Caption 设置属性后的界面如图 16 所示。图 16 设置属性后的界面 图 17 第一个程序（4）编写程序代码Private Sub Form_Click( )Label1.Caption = “床前明月光“End Sub（5）运行程序运行 VB 程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按 F5 键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗

7、体，程序运行效果如图 17所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将 Visual Basic 工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe 文件。退出 Visual Basic 集成开发环境，双击实验一.exe 文件，则实验一.exe 文件就可直接运行。实验二 命令按钮、文本框和标签【实验目的】1掌握命令按钮、文本框和标签常用属性值的设置方法。2学会使用命令按钮

8、、文本框和标签在窗体上建立用户界面的方法。3掌握命令按钮的主要事件的使用。 【实验内容】1利用命令按钮、文本框和标签判断密码是否正确。2建立应用程序，对两个文本框中输入的内容进行交换。【实验要求与步骤】1 实验内容要求: 在文本框中输入“goodbaby” ，然后单击“登录”命令按钮，则在标签Label2 中显示“欢迎使用本系统！ ”；在文本框中输入“ abc”，然后单击“登录”命令按钮，则在标签 Label2 中显示 “密码错误！请重新输入密码！ ”。步骤：（1）设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图 21 所示。图 21 初始界面 图 22 设置属性后的界面（

9、2）设置属性设置属性后的界面如图 22 所示。 表 21 属性设置对象 属性 属性值Label1 Caption 请输入密码：Command1 Caption 登陆Command2 Caption 退出Label2 Caption Label2 BorderStyle 1-Fixed SingleText1 Text Text1 MaxLength 16Text1 PasswordChar *Form1 Caption 登陆界面（3）编写程序代码Private Sub Command1_Click()If Text1.Text=“goodbaby” ThenLabel2.Caption=“欢迎

10、使用本系统！ ”ElseLabel2.Caption=“密码错误！请重新输入密码！ ”End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub （4）运行程序 在文本框中输入“goodbaby” ，然后单击“登录”命令按钮，则在标签 Label2 中显示“欢迎使用本系统！” 。运行结果如图 23 所示。图 23 输入的密码正确 在文本框中输入 “abc”，然后单击“登录”命令按钮，则在标签 Label2 中显示“密码错误！请重新输入密码！” 。运行结果如图 24 所示。图 24 输入的密码错误2 实验内容（1）设计界面在窗体上放置两个 Label

11、控件、两个 TextBox 控件和三个 CommandButton 控件。初界面如图 25 所示。图 25 初始界面 图 26 属性设置后的界面（2）属性设置设置属性后的界面如图 26 所示。 表 22 属性设置对象 属性名称 属性值Form1 Caption 交换Label1 Caption 输入第 1 个数Label2 Caption 输入第 2 个数Text1 Text 空Text2 Text 空Name CmdChangeCaption 交换Command1Default TureName CmdClearCommand2Caption 清空Name CmdExitCommand3Ca

12、ption 退出（3）编写程序代码Option ExplicitPrivate Sub CmdChange_Click( )Dim temp As Integer temp=Text1.TextText1.Text=Text2.TextText2.Text=tempEnd SubPrivate Sub CmdExit_Click( )Unload MeEnd SubPrivate Sub CMdCLear_Click( )Text1.Text=”Text2.Text=”Text1.SetFocusEnd Sub(4) 运行程序执行结果如图 2-7（a） 、 （b）所示。单击“清空”按钮并再数入

13、数据，进行交换。图 2-7（a ）交换前的界面 图 2-7（b）单击交换后的界面实验三 表达式、InputBox 函数和 MsgBox 语句【实验目的】 1掌握表达式的构成和如何求表达式的值。2掌握赋值语句的使用。3掌握 InputBox 函数的使用。4掌握 MsgBox 语句的使用。 【实验内容】1.利用 InputBox 函数和 MsgBox 语句求圆的周长。2.利用 InputBox 函数输入三角形的三边的长度 a,b,c,计算三角形的面积并显示在窗体上。【实验步骤与指导】1实验内容(1) 设计界面在窗体上添加一个命令按钮。初始界面如图 31 所示。图 31 初始界面 图 32 设置属性后的界面(2) 设置属性表 31 属性设置对象 属性 属性值Command1 Caption 计算圆的周长Form1 Caption InputBox 和 MsgBox 举例设置属性后的界面如图 32 所示。(3) 编写程序代码Private Sub Command1_Click( )Const pi = 3.14159