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