《可视化程序设计(VB)》实训指导书.doc

目 录实验一 简单的Visual Basic程序2实验二 数据与运算6实验三 语句与选择结构程序设计10实验四 循环结构程序设计14实验五 窗体与常用控件（一）18实验六 窗体与常用控件（二）22实验七 窗体与常用控件（三）26实验八 数组与控件数组30实验九 过程35实验十 图形操作39实验十一 界面设计43实验十二 文件系统52实验十三 数据库（一）58实验十四 数据库（二）62实验一 简单的Visual Basic程序实验目的(1) 了解程序设计环境，包括各种窗口(2) 掌握程序设计的一般步骤：界面设计、代码编写(3) 掌握程序文件的保存及打开(4) 理解Visual Basic程序设计核心概念：对象及其属性、方法、事件(5) 理解事件驱动 实验课时 2课时实验内容一、启动和退出1分别用以下方法启动Visual Basic：(1) 用开始菜单中的“程序”中的“Microsoft Visual Basic 6.0中文版”；(2) 利用win98/2000查找功能，查找“VB6.exe”文件，找到后双击该文件图标。2分别用以下方式退出Visual Basic(1) 单击主窗口右上角的“关闭”按钮；(2) 执行文件菜单中的“退出”命令；(3) 按“Alt-F4”键。3修改Visual Basic的环境设置(1)在启动Visual Basic时不显示“新建工程”对话框，直接建立“标准EXE”文件。 (2)打开和关闭集成开发环境中的窗口 包括立即窗口、窗体布局窗口、工程管理器窗口、属性窗口、工具箱等二、创建或打开工程1创建工程单击文件菜单中的“新建工程”命令，打开“新建工程”对话框，选择新建选项卡中的标准EXE并单击“打开”按钮。2 打开工程单击文件菜单中的“打开工程”命令或工具栏中的打开按钮，打开“打开工程”对话框，选择“现存”选顶卡中的工程并单击“打开”按钮。3 在工程中添加窗体单击“工程”菜单中的“添加窗体”命令，在“新建”选项卡中选择“窗体”并单击“打开”(欲删除窗体或工程可在工程管理窗口中右击该项目，选择删除命令)三、VB程序设计过程例：在窗体上画三个文本框和两个命令按钮，当单击第一个命令按钮时，在三个文本框中显示不同的文本；当单击第二个命令按钮时，首先清除三个文本框的内容，然后重新显示，并使三个文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大一倍。按以下步骤操作：1.建立界面 在窗体上画三个文本框和两个命令按钮。2.调整布局 可借助格式菜单中的相关命令3.设置控件属性通过属性窗口把两个命令按钮的标题（Caption属性）分别设置为“命令按钮1”和“命令按钮2”，同时把三个文本中的内容(Text属性)设置为空白。完成后的界面如下图所示。4.编写代码(1)双击“命令按钮1”，打开代码窗口，对该按钮编写如下代码： Private Sub Command1_click() Text1.Text=Visual Basic 6.0Text1.FontSize=10Text2.Text程序设计教程Text2.FontSize10Text3.Text上机实验指导Text3.FontSizel0End Sub上述代码分别把三个文本框的内容设置为不同的文本，并把三个文本框中的字体的大小都设置为l0。(2)关闭代码窗口，双击“命令按钮2”，再次打开代码窗口，对该按钮编写如下代码：Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text1.HeightText1.Height*2Text1.WidthText1.Width*2Text2.HeightText2.Height*2Text2.WidthText2.Width*2Text3.HeightText3.Height*2Text3.WidthText3.Width*2Text1.TextVisual Basic 6.0Text1.FontSize20Text2.Text程序设计教程Text2.FontSize20Text3.Text上机实验指导Text3.FontSize20 End Sub上述代码首先把三个文本框中的内容清空，接着把三个文本框的高、宽都增加一倍，然后把三个文本框中显示的文本的字体大小扩大一倍并显示出来。文本框的高、宽属性分别为Height和Width。上述代码中， Text1.HeightText1.Height*2的含义是：把第一个文本框的当前高度属性值(Height)乘以2(增加一倍)，然后再赋给该文本框的高度属性，作为文本框新的高度。其他几个属性设置语句与此类似。5运行程序(1) 按F5键开始运行程序，单击“命令按钮l”，结果如下图所示。(2) 单击“命令按钮2”，结果如下图所示。6保存程序 (1)打开Windows的资源管理器，在D盘上建立一个名为Test的目录。 (2)回到Visual Basic，执行文件菜单中的“保存”命令，或者单击工具栏上的“保存工程”按钮，打开“工程另存为”对话框，该对话框用来保存窗体文件。把“保存在”栏中的路径改为D盘的test，在“文件名”栏内输入guid2_1.frm。 (3)单击“保存”按钮，显示保存工程文件的对话框。在该对话框的“文件名栏”中输入“guid2_1.vbp”，然后单击“保存”按钮。 注意，上面在输入文件名时，扩展名“frm和“vbp可以省略。*7编译生成可执行文件 (1)执行“文件”菜单中的“生成guid2_1.exe”命令，打开“生成工程”对话框。 (2)在“文件名”栏内输入要生成的.exe文件的名字。默认情况下，系统使用工程文件的名字，加上扩展名.exe，如果不想改变，可直接单击“确定”按钮。例如，前面建立的工程文件为guid2_1.vbp，在默认情况下(直接单击“确定”按钮)，编译后生成的可执行文件名为guid2_1.exe。经过以上操作，将生成该工程的可执行文件(假定为guid2_1.exe)。在Windows的资源管理器中，双击该文件名，即可执行程序，其结果与前面介绍的相同。四、上机作业新建一个工程，在窗体(其标题（Caption属性）为“测试窗口”)上添加一个命令按钮“改变窗体颜色”，编写程序代码，使得运行时鼠标在该按钮上按下时窗体的背景颜色为红色(vbRed)，鼠标抬起时窗体的背景颜色为绿色(vbGreen)。调试程序，最后将该工程保存到磁盘上。提示：窗体的背景颜色属性为BackColor，鼠标按下事件为MouseDown，鼠标抬起事件为MouseUp。窗体布局如下图：实验二 数据与运算实验目的(1)掌握Visual Basic数据类型的基本概念。 (2)掌握变量、常量的定义规则和各种运算符的功能及表达式的构成和求值方法(3)了解Visual Basic的标准函数，掌握部分常用标准函数和格式输出函数的功能和用法。(4)巩固前面实验所学的知识。实验课时 2课时实验内容一、完成下列相关表达式运算1熟悉部分标准函数的功能(1) 在立即窗口中输入下列函数的操作，写出其执行结果 print chr$(65)print asc(xyz) print sgn(2)print sqr(2) a$=goodb$=morningprint a$+b$print a$&b$ print nowprint day(now)print month(now)print year(now)print weekday(now)(2)设x=2732.87，Y=-658.236，z3.14159*30/180，在立即窗口中试验以下函数的输出结果：Int(x)，Fix(x)，Cint(x)，Hex$(Int(x)，Oct$(Fix(x)，Abs(y)，Sin(z)，Cos(z)。2试验Visual Basic中三种除法运算符(、Mod)的区别。 按以下步骤操作：(1) 在窗体上画5个标签、5个文本框和一个命令按钮。5个标签的标题（Caption属性）分别为：“被除数”、“除数”、“浮点除()”、“整数除()”和“余数除(Mod)”，把5个文本框（设置Text属性）为空白，把命令按钮的标题（Caption属性）设置为“执行除法运算”。 (2)编写命令按钮的事件过程：Private Sub Commandl_Click() Dim diviD As single，diviS As Single diviDVal(Textl.Text) diviSVal(Text2.Text) Text3.TextStr(diviD/diviS) Text4.TextStr(diviDdiviS) Text5.TextStr(diviD Mod diviS)End Sub(2) 按F5或单击工具栏上的“启动”按钮运行程序，在第一个文本框中输入被除数在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。例如在第一、第二个文本框中分别输入3297和40，然后单击命令按钮，结果如下页图所示。问：1、/、Mod三个运算符的含义。2、程序中diviDVal(Textl.Text)和diviSVal(Text2.Text)二个语句中为什么要用Val函数。3先用手工计算下列表达式的值，然后在立即窗口中试验这些表达式的输出结果(1) 8*3*62 (2) 7/6*3.2/2.15*(4.3+8.5)(3) 344*4.03/1.6(4) 653 Mod 2.6*Fix(3.7)(5) abc+345&257(6) 279.37+0.63280(7)48 And 4=5(8)True Or Not (8+3=11)(9)84 Or 59 (10)(True And False) Or (True Or False)4设x，y，z均为布尔型变量，其值分别为：x=Truey=Truez=False求下列表达式的值（要求：先手工计算，再上机验证。）(1)x Or y and z(2)Not x And Not y(3)x Xor y Or z5格式输出函数的使用。在VB的立即窗口中调试以下命令，体会格式输出函数和格式说明符的作用。Print Format(123.45, 0000.000) Print Format(123.45, 0.0) Print Format(123.45, #.#) Print Format(1234.5, #,#.# ) Print Format(Date, dddddd ) Print Format(Time, Hh:Nn:Ss) Print Format(Time, tttttAM/PM ) Print Format(ABab , ) Print Format(Hello, ) Print Format(ABab , ! ) 二、上机作业1、要求实现如下程序功能：输入要求产生的随机数的上下界，点击“产生随机数”按钮，即可在相应文本框中产生符合要求的随机数三、实现下列程序功能并完成相应代码（课后练习题）1、要求实现如下程序功能：对字符串String Functions Demo进行操作点击“Left函数”按钮时，在第二个文本框中显示：字符串前 3 个字符是：Str其它类似：点击“Right函数”按钮时，在第二个文本框中显示：字符串最后 3 个字符是：emo点击“Mid函数”按钮时，在第二个文本框中显示：从字符串第 8 个字符开始的 4 个字符是：Func点击“Len函数”按钮时，在第二个文本框中显示：字符串的长度是：21 个字符点击“InStr函数”按钮时，在第二个文本框中显示：字母“D”是字符串的：第 18 个字符。点击“UCase函数”按钮时，在第二个文本框中显示：字符串全部转换为大写字母：STRING FUNCTIONS DEMO点击“LCase函数”按钮时，在第二个文本框中显示：字符串全部转换为小写字母：string functions demo实验三 语句与选择结构程序设计实验目的(1) 掌握输入输出函数(命令)的用法。(3) 熟悉选择结构程序设计，灵活使用有关语句。实验课时 2课时实验内容一、Visual Basic控制结构1运输部门的货物运费与里程有关，距离越远，每吨货物的单价就越低。假定每吨单价P(元)与距离S(公里)之间的关系如下：32 S10028 100S200P= 25 200S30022.5 300S40020 400S100015 S1000请编写程序，从键盘上输入要托运的货物重量W(吨)，然后计算并输出总运费(元)。计算公式为：TP*W*S要求：(1)在窗体上画出二个标签（用来显示输入的货物重量和托运距离）、一个文本框和一个命令按钮，在命令按钮的click事件过程中输入数据(货物重量和运输距离)，进行处理，然后在文本框中输出总运费。版面设计由学生自己安排。(2)货物重量和运输距离的输入用InputBox函数来实现。(3)分别用Select Case语句和条件嵌套语句编写程序。程序提示：对程序进行分析，如果改变Case子句的顺序，结果会怎样?为什么？ 对下面的程序，用IF语句进行修改，应该怎么修改？10Private Sub Command1_Click() Dim w,s As Single Dim p,t As Currency wInputBox(输入货物重量)sInputBox(输入托运距离(公里)label1.caption=货物重量+str(w)label2.caption=托运距离(公里) +str(s)If s0 Then EndSelect Case s Case Is100 p32 Case Is200 p28 Case Is300 p=25 Case Is400 p225 Case Is1000 p20 Case Else p15End Selectt=p*w*sText1.Text=总运费为:+str(t)+End Sub2输入输出函数的应用。用InputBox函数输入小时、分、秒，求一共有多少。要求：单击窗体时，输入时、分、秒，并将结果显示在窗体上。若输入的时、分、秒中有一项错误，利用MsgBox函数显示“输入的数据有错！”的警告。窗体的界面与属性由自己设计，程序代码提示如下：Private Sub Form_Click()ClsDim x As Integer, y As Integer, z As Integerx = InputBox(请输入小时数：, 输入窗口, 0)y = InputBox(请输入分数：, 输入窗口, 0)z = InputBox(请输入秒数：, 输入窗口, 0)If x 12 Or y 60 Or z 60 Then MsgBox 输入的数据有错！, vbOKOnly + vbExclamation + _ vbDefaultButton1, 提示窗口Else Print Tab(10); x * 3600 + y * 60 + zEnd IfEnd Sub3输入一公元年号，判断是否是闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。程序的界面自定。请写出程序代码。4在窗体上布置三个标签（用来显示输入的三角形的三条边长），一个文本框，一个命令按钮，单击该命令按钮时计算三角形的面积，并把计算结果显示在文本框中。三角形的三条边输入用InputBox函数来实现。三角形的面积公式为： Area 其中，S（abc）/2，a、b、c为三角形的三条边长。注意：对输入的三角形的边长进行合法性检测（两边之长大于第三边）。二、实现下列程序功能并完成相应代码（课后练习题）1实现下面图示功能2要求随机出10个四则运算题，并进行打分3实现下面图示功能5、用InputBox函数实现数据收集，并用MsgBox函数输出所收集的信息（建议在Form_Load事件中实现）实验四 循环结构程序设计实验目的熟悉循环结构的基本结构和简单操作，灵活使用各种循环语句的应用。实验课时 2课时实验内容一、Visual Basic控制结构（循环结构）1 找出19999之间的全部同构数。所谓同构数是指这样的整数，它恰好出现在其平方数的右边。如5(2)和76(57)都是同构数。窗体的界面如下图所示：程序代码提示如下：Private Sub Command1_Click()For k = 1 To 9999 kk = k * k c = Trim(Str(k) n = Len(c) cc = Trim(Str(kk) If Right(cc, n) = c Then Text1.Text = Text1.Text + Format(k, ) + Format(kk, ) + vbCrLfNext kEnd Sub试问：程序的循环体中的第五句If-Then语句中的vbCrLf起得什么作用？在窗体中添加一标签控件（其Caption的初始值为“19999中同构数的个数：”），用来显示产生的同构数个数。请修改程序，完成以上功能。2编写程序，在窗体上显示如图所示的图形。3利用公式计算sin x的值：要求x的值由键盘输入，当所计算的项的绝对值小于10-7时停止计算，在窗口上设置一个命令按钮和和一个标签，单击命令按钮在标签上输出sin(x)的结果。算法提示：假定用变量t存放某一项的值，当第n项的值小于10-7时结束计算。因此，循环结束的条件是t的绝对值小于1E-7。可以把算法描述为：t第一项值S=tn1Do Until Abs(t)1E-7nn+lt第n项值ss+tLoop第n项(tn)与第n-1项(tn-1)的递推关系如下t1=xtn=tn-1*(-x*x)/(2*n-2)*(2*n-1)请根据上面的算法分析和递推关系编写计算sin x的值的程序。二、实现下列程序功能并完成相应代码（课后练习题）1实现下面图示功能2实现下面图示功能3实现下面图示功能实验五 窗体与常用控件（一）实验目的(1)了解如何用对象（窗体、标签和文本框控件）建立界面。(2)掌握数据在窗体、标签和文本框中输出，理解Print方法的输出格式。(3)掌握用文本框输入数据。(4) 掌握窗体、命令按钮、标签和文本框控件常用的属性和方法。实验课时 2课时实验内容一、窗体与数据的输入输出1 数据在窗体中输出使用print方法在窗体中直接输出字符串或数值表达式的值，程序运行后单击窗体后其输出结果如下图所示。窗体的Click事件过程：Private Sub form_click() Print:Print FontName=隶书 FontSize=18 Print 姓名;Tab(8);年龄;Tab(16);职务; Print Tab(24);单位;Tab(32);籍贯 Print Print 张得功;Tab(8);25;Tab(16);科长;Tab(24);劳动科;Tab(32);北京 Print 李得胜;Tab(8);32;Tab(16);处长;Tab(24);科研处;Tab(32);上海End Sub请问：在该事件过程中，利用Tab函数的作用是什么？“；”的作用是什么？2 设计一个程序，用窗体模拟黑板，鼠标单击窗体时窗体上输出提问，双击时显示回答。题目分析：把窗体装扮成黑板模样，要设置窗体的BackColor属性为黑色，ForeColor属性为白色（模拟粉笔字的颜色）。而单击、双击时的输出显示，可以在Click、DblClick事件里用Print和Cls方法来实现（a）设计状态（b）运行状态（c）窗体单击（d）窗体双击代码提示：Private Sub Form_Load()在程序启动时触发此事件 Caption = 模拟黑板使窗体标题栏显示“模拟黑板”字样。End SubPrivate Sub Form_Click()单击窗体时触发 Cls清除用Print方法显示的字符 Print 1+1=?在窗体上显示字符串“1+1=?”End SubPrivate Sub Form_DblClick()双击窗体时触发 Cls Print 1+1=2End Sub3 文本在标签上输出 编程试验WordWrap属性的操作。 WordWrap属性决定标签的标题属性的显示方式。它取二种值：True和False(默认值)。若设置为True，则标签将在垂直方向变化大小以与标题文本相适应，水平方向的大小与原来所画的标签相同；若设置为False，则标签将在水平方向上扩展到标题中最长的一行，在垂直方向上显示标题的所有各行。为了使WordWrap起作用，应把Autosize设置为True。(1)新建一个工程，在窗体上画出二个标签，大小任意。(2)编写如下事件过程Private Sub Form_Load() Dim a1,a2,q1,q2 Label1.Autosize=True Label2. Autosize=True Label1.WordWrap=Trueq1=“秦时明月汉时关，万里长城人未还。” a1=“但使龙城飞将在，不教胡马度阴山。” q2=“人闲桂花落，夜静春山空。” a2=“月出惊山鸟，时鸣春涧中。” Label1.Caption=q1+chr(10)+a1 Label2.Caption=q2+a2End SubPrivate Sub Form_Click()Private Sub Form_click() Label1.Width=1440 Label2.Width=1440 Label1.WordWrap=Not Label1.WordWrap Label2.WordWrap=Not Label2.WordWrapEnd Sub 在Form_Load事件过程中，首先把二个标签的Autosize的属性设置为True，把第一个标签的WordWrap属性设置为True，然后设置二个标签的Caption属性。在Form_Click()事件过程中，把二个标签的宽度设置为1英寸(1440twip)，然后用Not运算符转换二个标签的的WordWrap属性。程序运行后，每单一次窗体，二个标签中的文本的显示方向都会改变，分别为如图显示格式。 请说明WordWrap属性设置为True和False的作用。若Autosize的属性设置为False，WordWrap属性的作用又如何呢？4 利用文本框进行输入和输出数据。自己设计一个计算购书价的程序，界面如下图：要求：界面上的文字全部为宋体五号字；给文本框命名，分别为：DJ、SL和ZJ；编写程序代码。使得运行时焦点定位在DJ文本框中，输入单价后按Tab键可输入数量。输入单价和数量后，单击“计算总价(C)”按钮将计算总价钱，显示在文本框ZJ中，单击“退出(X)”按钮结束运行。注意：计算出的总价为只读，且焦点不能定位在ZJ文本框中。二、实现下列程序功能并完成相应代码（课后练习题）1、按所示界面设计一个加法器，可以尝试编写出三个命令按钮对应的事件过程。2、分别用move方法和在代码中改变属性两种方式对窗体的位置进行调整3、实现下面图示功能，从左边文本里复制或粘贴文字到右边文本框里实验六 窗体与常用控件（二）实验目的(1)掌握Visual Basic内部控件的建立和窗体的布局。(2)掌握Visual Basic几个常用内部控件：框架、图片（像）框、形状、定时器、选项按钮和复选框的主要属性、方法和事件，并把它们应用于具体的程序设计中。(3)进一步掌握选择结构和循环结构的程序设计。实验课时 2课时实验内容 一、图像框、图片框、形状和定时器的应用1、在窗体左上角上放置一个图像框，在图像框中上放置一张BMP位图（如c:winnt gone fishing.bmp，在窗体置入时添加），单击“放大”按钮，每隔0.5秒图像框横向与纵向同时放大200缇（twip）；单击“缩小”按钮，每隔0.5秒图像框横向与纵向同时缩小200缇（twip）；单击“停止”按钮则停止放大或缩小。要求图像框放大或缩小时对应BMP位图也同时改变大小。窗体上的控件与布局如下图：其中图像框：BorderStyle=1Fixed Single Stretch=True其它控件的属性视窗体和题中要求。程序代码提示：Dim flag As IntegerPrivate Sub Form_Load() Timer1.Enabled = flase Image1.Picture = LoadPicture(c:winntgone fishing.bmp)End Sub24Private Sub Command1_Click() Timer1.Enabled = True flag = 1End SubPrivate Sub Command2_Click() Timer1.Enabled = True flag = 0End SubPrivate Sub Command3_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If flag = 0 Then If Image1.Width 200 Or Image1.Height Form1.ScaleHeight Then f = 1 Else Shape1.Top = Shape1.Top