《VB实用教程》实验指导书.doc

VB实用教程实验指导书目 录实验 1 设计简单的Visual Basic应用程序 实验 2 Visual Basic语言基础实验 3 顺序结构程序设计实验 4 选择结构程序设计实验 5 循环结构程序设计实验 6 数组实验 7 过程实验 8 窗体实验 9 VB中的常用控件实验 10 文件系统实验 11 Visual Basic图形操作实验 12 建立和访问数据库实验1 设计简单的Visual Basic应用程序一、实验目的1. 掌握启动和退出Visual Basic 6.0的方法。2. 掌握设计一个简单程序的基本步骤。3. 熟练掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。4. 了解Visual Basic 6.0联机帮助的使用。二、实验内容1. 设计一个简单程序：计算圆面积。在上机调试程序过程中，掌握启动和退出Visual Basic 6.0的方法，初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。（1）启动Visual Basic 6.0。启动Visual Basic 6.0的方法有两种：u 单击“开始”|“程序”|“Microsoft Visual Basic 6.0”； u 在桌面上双击Microsoft Visual Basic 6.0快捷方式图标。启动Visual Basic 6.0后，系统进入Visual Basic 6.0集成开发环境，并显示一个“新建工程”对话框，如图14-1-1所示，默认选择是建立标准工程（标准EXE）。（2）界面设计。单击“打开”按钮，Visual Basic 6.0进入设计模式。系统提供一个名为Form1的窗体，我们就在这个窗体上进行界面设计。图14-1-1建立控件的方法为：双击工具箱上的命令按钮（CommandButton），在窗体中出现一个带有“Command1”字样的命令按钮图形对象，用鼠标把它拖到窗体的合适位置；再次双击工具箱上的命令按钮（CommandButton），在窗体中出现一个带有“Command2”字样的命令按钮图形对象，用鼠标把它拖到窗体的合适位置。（3）属性设置。为了明确应用程序的功能，一般需要修改控件的标题属性。首先，从屏幕右边的属性窗口中打开Form1的属性列表，找到Caption属性栏，把其值由“Form1”改为“计算圆面积”（如图14-1-2），按回车键确认。这时，窗体标题也随之改变了。然后，从属性窗口中打开命令按钮Command1的属性列表，找到Caption属性栏，把其值由“Command1”改为“开始”。用同样方法，把命令按钮Command2的Caption值改为“结束”。至此，用户界面设计完成。（如图14-1-3所示）。 图14-1-2 图14-1-3（4）编写程序代码。计算圆面积的计算公式是S=pR2，其中，p表示圆周率（这里取值为3.14），R为半径，S为圆面积。根据计算公式，编写的程序如下。 Private Sub Command1_Click() Dim s, r r = InputBox(请输入圆半径：) s = 3.14 * r * r Print Print 半径为 ; r; 面积为 ; sEnd SubPrivate Sub Command2_Click() EndEnd Sub（5）修改程序代码。在VB中，输入和修改程序代码必须要进行代码编辑环境，进入代码编辑环境有4种方法：图14-1-4u 双击控件；u 使用鼠标右键单击控件，从弹出的菜单中选择“查看代码”命令执行；u 从菜单栏的“视图”菜单中选择“代码窗口”命令执行；u 在工程资源管理器窗口单击“查看代码”图标。无论使用哪一种方法进入代码编辑环境，都会显示代码编辑窗口（如图14-1-4）。代码编辑窗口中的顶端有两个下拉框，左边是对象列表框，右边是事件列表框。从对象列表框中选择控件名和从事件列表框中选择相应的事件名后，代码编辑窗口中显示出相应的事件驱动程序的窗口。这时就可以在事件驱动程序的窗口中输入程序代码。如果双击控件，代码编辑窗口会出现默认的Click事件窗口，对于这个例子，双击命令按钮Command1，代码编辑窗口中显示出Command1_Click事件窗口。可以在这个窗口中输入程序代码。用同样的方法，也可以输入Command2的事件驱动程序代码。（6）运行程序。运行VB程序有3种方法：u 单击工具栏上的“启动”按钮；u 按F5功能键；u 从菜单栏的“运行”菜单中选择“启动”命令，这时系统对程序解释执行。若从菜单栏的“运行”菜单中选择“全编译执行”命令，程序编译执行。程序运行后，屏幕出现用户界面，单击“开始”按钮，执行Command1_Click事件驱动程序。执行到“r = InputBox(请输入圆半径：) ”时，屏幕出现如图14-1-5所示的对话框。输入数据（如：3）后单击“确定”按钮，程序继续执行，输出结果如图14-1-6所示。单击“结束”按钮，结束程序的执行。 图14-1-5 图14-1-6如果程序出现编译或运行错误，系统都将给出错误提示信息。此时，应分析产生错误的原因，找出出错的位置，并使用编辑功能键对程序进行修改。修改完程序后，按F5功能键，重新执行程序。（7）保存程序。保存程序有两种方法：u 选择菜单栏上“文件”菜单中的“保存工程”命令执行；u 单击工具栏中的“保存”按钮。不管采用哪一种保存程序的方法，对于新程序，系统都会要求用户给定存放的路径和文件名，并分别保存窗体文件和工程文件。（8）退出VB6.0。退出的方法有三种：u 单击主窗口右上角的“关闭”按钮；u 选择菜单栏上的“文件”菜单中的“退出”命令执行；u 按Alt+Q组合键。2. 使用Visual Basic 6.0的联机帮助（1）使用“MSDN Library在线帮助”。在运行VB6.0时，使用“MSDN Library在线帮助”是寻求帮助的常用方法。操作步骤为：u 启动VB6.0，选择菜单栏上“帮助”菜单的“内容”命令，系统打开“MSDN Library Visual Studio 6.0”对话框。u 在“活动子集”的下拉框中选择“*Visual Basic文挡”，然后单击“目录”选项。u 单击“MSDN Library Visual Studio6.0”目录前面的“+”号，展开“MSDN Library Visual Studio6.0”目录。u 单击“Visual Basic文档”目录前面的“+”号，展开“使用Viisual Basic”目录。u 单击“程序员指南”目录前面的“+”号，展开“程序员指南”。图14-1-7 因为MSDN内容太多，占用硬盘空间，很多机房不装MSDN，所以，上机时可能看不到。启用帮助时，系统弹出一对话框，如图14-1-7（2）使用“上下文相关帮助”。使用“上下文相关帮助”，可以不必使用“帮助”菜单就能获得“工具箱”中的控件、“属性”窗口中的属性、应用程序中的关键字等内容的帮助。操作方法是把光标移到（或选取）希望获得帮助的位置，然后按F1功能键，VB会自动弹出相关主题的帮助。获得“工具箱”中控件帮助的操作步骤为：u 把光标移到“工具箱”中需要获得帮助的控件处，并单击；u 按F1功能键。获得“属性”窗口中属性帮助的操作步骤为：u 把光标移到“属性”窗口中需要获得帮助的属性处，并单击之；u 按F1功能键。获得应用程序中关键字帮助的操作步骤为：u 把光标移到应用程序中需要获得帮助的关键字处；u 按F1功能键。（3）“帮助”主题中代码示例的运行。VB6.0帮助系统有很多帮助主题，在这些主题中包括一些可以直接运行的程序代码示例。我们可以通过Windows的剪贴板将这些程序代码复制到VB的代码窗口中，然后单击工具栏上的“启动”按钮运行这些程序代码。例如，在VB集成开发环境把光标移到属性窗口的FillColor属性处，并单击之，然后按F1功能键。在出现的窗口中单击“示例”，用鼠标（或键盘）选取“示例”中的程序代码。选择菜单栏上“编辑”菜单的“复制”命令（或用Ctrl+V）把代码复制到Windows 的剪贴板上，然后打开VB的代码编辑窗口，单击工具栏上的“粘贴”按钮（或用Ctrl+V）把选择的程序代码复制到代码窗口，这时就可以运行程序了。如果代码示例涉及除窗体以外的控件，则在进入VB集成开发环境之后应先进行用户界面设计，即在窗体添加相关控件后，才能正确运行程序。三、实验小结实验2 Visual Basic语言基础一、实验目的1. 掌握Visual Basic 6.0数据类型的概念。2. 掌握常量的概念、定义方法和作用域。3. 掌握变量的概念和定义方法，熟悉可变类型变量和静态变量的使用，掌握自动变量与静态变量的区别。4. 掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的值。5. 掌握常用标准函数的一般形式、功能和用法。6. 进一步熟悉Visual Basic 6.0集成开发环境。二、实验内容1. 利用下列式子测试各种运算符的功能1） 204.52） 55 mod 23） 634） 3 (-1/2)5） “How” & “are you”6） not 327） 338） true and false9） 74 or 3110） 9=”canada”8） “xyz”4 and 5 =510） false or not 7-3=10000Y=3%X 5000=X100002%X 1000=X50000 X0)的递归公式为：xn=1s(x , n)=x( 1- s( x , n-1 ) )n1使用递归过程编写程序求s(x , n)的值。【要求】描述界面的设计，指出控件属性的设置，编写程序代码，正确运行程序。三、实验小结实验8 窗体一、实验目的1. 初步掌握多窗体程序设计方法。2. 掌握键盘事件KeyPress、KeyDown和KeyUp的基本用法。3. 掌握鼠标事件MouseDown、MouseUp和MouseMove的基本用法。4. 掌握简单的多文档界面（MDI）的应用程序设计方法。二、实验内容1. 编程实现：利用窗体一输入密码，密码最多输三次，密码正确进入第二个窗体，密码不正确则弹出“对不起，您是非法用户！”提示框后退出程序。【要求】设计界面，指出控件属性的设置，正确编写程序代码，运行程序。【参考界面】如图14-8-1和14-8-2所示。 图14-8-1 图14-8-22. 编写一个实现，当鼠标在窗体上移动，显示鼠标的当前坐标，单击鼠标及按Shift、Ctrl、Alt键，显示Shift和Button参数的值。3. 建立一个包含两个子窗体的MDI窗体，在子窗体上分别设置命令按钮，实现两子窗体显示和隐藏的切换。【要求】自己设计界面，指出控件属性的设置，正确编写程序代码，运行程序。三、实验小结实验9 VB中的常用控件一、实验目的1. 掌握单选按钮、复选框、框架、滚动条、列表框、组合框和时钟控件的常用属性、基本方法和主要事件。2. 掌握菜单编辑器的使用方法。3. 熟悉菜单事件的编程方法。二、实验内容1. 使用单选按钮实现时间和日期的单选。利用组合框按年月日的次序选择日期的格式， 【要求】设计界面，指出控件属性的设置，正确编写程序代码，运行程序。【参考界面】如图14-9-1和14-9-2所示。 图14-9-1 启动后的运行界面 图14-9-2 当选择“显示日期”单选钮时的运行界面2. 利用单选按钮和文本框编制一个进制转换的应用程序，界面如图14-9-3。【要求】设计界面，指出控件属性的设置，正确编写程序代码，运行程序。【参考界面】如图14-9-3所示。图14-9-3【参考代码】 Private Sub Option1_Click() Dim m As Integer, e As String m = Val(Text1.Text) Do r = m Mod 2 e = r & e m = m 2 Loop Until m = 0 Text2.Text = e Label2.Caption = 二进制End SubPrivate Sub Option2_Click() Text2.Text = Oct(Text1.Text) Label2.Caption = 八进制End SubPrivate Sub Option3_Click() Text2.Text = Hex(Text1.Text) Label2.Caption = 十六进制End SubPrivate Sub Text1_Change() If Option1.Value = True Then Option1_Click ElseIf Option2.Value = True Then Call Option2_Click ElseIf Option3.Value = True Then Option3_Click End IfEnd Sub3. 在窗体上设计一个弹出式菜单，用来改变文本框中字体的属性。【参考步骤】1） 建立新工程。2） 界面设计和属性设置。3） 选择菜单栏上“工具”菜单的“菜单编辑器”命令，使用菜单编辑器设计菜单。设计后的界面如下图14-9-4所示：4） 编写程序代码。【要求】描述界面的设计，指出控件属性的设置，编写程序代码，正确运行程序。【参考界面】如图14-9-5所示。 图14-9-4 图14-9-54. 设计一个运行界面如图14-9-6所示的字幕滚动程序。要求用时钟控件和滚动条调节和控制字幕滚动速度，从右向左连续滚动。【参考代码】图14-9-6字幕滚动通常有两种方法。第一种方法是先把字存放在标签上，然后连续修改标签的left属性值使图象从右向左移动。第二种方法是把字存放在标签上，然后使用Move方法使标签移动。若使用第一种方法，则程序可以编写如下：Private Sub Form_load() HScroll1.Max = 1000 HScroll1.Min = 100 HScroll1.SmallChange = 10 HScroll1.LargeChange = 10 Timer1.Interval = HScroll1.Value Label1.Left = Form1.Width - Label1.WidthEnd SubPrivate Sub timer1_timer() Label1.Left = Label1.Left - 10 If Label1.Left -Label1.Left Then Label1.Left = Form1.Width End IfEnd SubPrivate Sub Hscroll1_change() Timer1.Interval = 1001 - HScroll1.ValueEnd SubPrivate Sub Hscroll1_scroll() Timer1.Interval = 1001 - HScroll1.ValueEnd Sub【要求】描述界面的设计，指出控件属性的设置，根据上述程序代码编写程序，分析每条执行语句的功能并正确运行程序。【思考】若使用前面介绍的第二种方法来编写程序，程序应如何修改？三、实验小结实验10 文件系统一、实验目的1. 掌握文件系统控件（文件列表框、目录列表框、驱动器列表框）的应用。2. 了解顺序文件、随机文件、二进制文件的概念。3. 掌握顺序文件的打开、关闭和读写的基本操作。4. 了解随机文件、二进制文件的基本操作。二、实验内容1. 由文件列表框、目录列表框、驱动器列表框编制一个用于删除选定文件的应用程序，界面如图14-10-1。【要求】设计界面，指出控件属性的设置，正确编写程序代码，运行程序。2. 制作一个简单的图片浏览器。【要求】（1）窗体的标题为“图片浏览器”，固定边框。图14-10-1（2）窗体上有驱动器列表框（Drive1）、目录列表框（Dir1）和文件列表框（File1）三个控件，要求三个控件能够联动。（3）窗体的下半部有一个图像框Image1，将它的Stretch属性设置为True。（4）设置文件列表框只显示*.bmp和*.jpg类型的图片文件。（5）单击文件列表框上的图片文件名时，图片显示在图像框中。【参考界面】如图14-10-2所示。3. 输入某个单位若干个职工的编号、姓名、性别、年龄、是否党员和基本工资等档案数据，并存放到文本文件“C:da.txt”中。【参考界面】如图14-10-3所示。 图14-10-2 图14-10-3【提示】程序运行时，屏幕出现如上图所示的用户界面，焦点落在文本框te