《vb程序设计实验指导书》由会员分享，可在线阅读，更多相关《vb程序设计实验指导书（60页珍藏版）》请在金锄头文库上搜索。
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； 双击图标。方法3 在桌面创建一个VB快捷键； 双击该快捷键。VB启动
4、后，出现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）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击Microsoft Visual Basi
5、c 6.0快捷方式图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。如图14所示。图14“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图15所示。图15初始界面（3）设置属性如表11所示。表11 属性设置对象属性属性值
6、Form1Caption我的第一个VB程序Label1Caption设置属性后的界面如图16所示。 图16设置属性后的界面 图17第一个程序（4）编写程序代码Private Sub Form_Click( )Label1.Caption = 床前明月光End Sub（5）运行程序运行VB程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图17所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一
7、.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。三、将Visual Basic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出Visual Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。实验二 命令按钮、文本框和标签【实验目的】1掌握命令按钮、文本框和标签常用属性值的设置方法。2学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3掌握命令按钮的主要事件的使用。 【实验内容】1利用命令按钮、文本框和标签判断密码是否正确。2建立应用程序，对两个文本框中输入的内容进行交换。【实
8、验要求与步骤】1 实验内容要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。步骤：（1）设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图21所示。 图21初始界面 图22 设置属性后的界面（2）设置属性设置属性后的界面如图22所示。表21属性设置对象属性属性值Label1Caption请输入密码：Command1Caption登陆Command2Caption退出Label2CaptionLabel
9、2BorderStyle1-Fixed SingleText1TextText1MaxLength16Text1PasswordChar*Form1Caption登陆界面（3）编写程序代码Private Sub Command1_Click() If Text1.Text=“goodbaby” Then Label2.Caption=“欢迎使用本系统！” Else Label2.Caption=“密码错误！请重新输入密码！” End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub（4）运行程序 在文本框中输入“goodbaby”，然后单击“登录
10、”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图23所示。图23 输入的密码正确 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。运行结果如图24所示。图24 输入的密码错误2 实验内容（1）设计界面在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初界面如图25所示。 图25 初始界面 图26 属性设置后的界面（2）属性设置设置属性后的界面如图26所示。表22属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2C
11、aption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出（3）编写程序代码 Option Explicit Private Sub CmdChange_Click( ) Dim temp As Integer temp=Text1.Text Text1.Text=Text2.Text Text2.Text=temp End Sub Private Sub CmdExit_Click( ) Un
12、load Me End Sub Private Sub CMdCLear_Click( ) Text1.Text=” Text2.Text=” Text1.SetFocus End Sub(4) 运行程序 执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。 图2-7（a）交换前的界面 图2-7（b）单击交换后的界面实验三 表达式、InputBox函数和MsgBox语句【实验目的】 1掌握表达式的构成和如何求表达式的值。2掌握赋值语句的使用。3掌握InputBox函数的使用。4掌握MsgBox语句的使用。 【实验内容】1.利用InputBox函数和MsgBox语句求圆
13、的周长。2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。【实验步骤与指导】1实验内容(1) 设计界面在窗体上添加一个命令按钮。初始界面如图31所示。 图31 初始界面 图32 设置属性后的界面(2) 设置属性表31 属性设置对象属性属性值Command1Caption计算圆的周长Form1CaptionInputBox和MsgBox举例设置属性后的界面如图32所示。(3) 编写程序代码Private Sub Command1_Click( ) Const pi = 3.14159 Dim r As Single, s As String, s2 As String Dim zhouchang As Single s = InputBox(请输入半径, 输入半径, 1) r = Val(s) zhouchang = 2 * pi * r s2 = 半径= + s + ,圆的周长= +
