vb程序设计实验部分.pdf

《vb程序设计实验部分.pdf》由会员分享，可在线阅读，更多相关《vb程序设计实验部分.pdf（50页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-1-实验一Visual Basic程序设计初步一、实验目的1 了解 Visual Basic系统对计算机软、硬件的要求。2 掌握 Visual Basic的启动和退出方法。3 熟悉 Visual Basic的集成开发环境。4 掌握建立、编辑、运行、调试和保存一个简单的Visual Basic应用程序的全过程。5 掌握常用控件（窗体、文本框、标签、命令按钮）的应用。二、实验内容实验 1.1 启动 Visual Basic 6.0，创建一个“标准EXE”类型的应用程序。【实验要求】1通过在属性窗口中对各控件属性进行设置而不编写代码，程序运行后，在屏幕上显示“欢迎您使用Visual Basic6.

2、0”与“请输入您的姓名”，屏幕设计的界面如图1-1 所示。图 1-1 实验 1.1 运行时的界面2分别以sy1-1.frm和 sy1-1.vbp为文件名保存窗体文件和工程文件。【实验步骤】1.进入 VB 环境，执行“文件”“新建工程”命令，在其对话框中选择“标准EXE”。2.在窗体上建立两个标签、一个文本框；在属性窗口中对各控件属性进行设置，见表1.1。表 1.1 属性设置控件名属性设 置Form1 Caption=欢迎使用 Label1 Caption=欢迎使用Visual Basic 6.0 FontSize（大小）=16,FontBold（粗体）=TrueLabel2 Caption=请

3、输入您的姓名，ForntSize=14，FontItalic（斜体）=True FontUnderline（下划线）=True Text1 Text=（空白）-2-3执行“运行”“启动”命令或单击工具栏上的运行按钮“”，运行程序；4.光标放置在Text1中，这时您可输入您的姓名；5执行“文件”“保存”命令或单击工具栏上的保存按钮“”，分别以sy1-1.frm和 sy1-1.vbp为文件名保存窗体文件和工程文件。提示：（1）两个标签内的字体大小、字形和字体效果等，均可在标签的属性窗口中通过点击Font 属性行右边的按钮“”打开字体对话框进行设置。（2）在 label1控件中，实现“欢迎使用Vis

4、ual Basic 6.0”在两行显示，只须将label1控件的宽度缩小即可。实验 1.2 通过编程修改控件的属性。【实验要求】1.程序的设计界面如图1-2（a）。2.点击“单击此处”按钮后程序运行的界面如图1-2（b）。（a）（b）图 1-2实验 1.2 运行界面【实验步骤】1.进入 VB 环境，执行“文件”“新建工程”命令，在其对话框中选择“标准EXE”。2.在窗体中建立一个标签与一个命令按钮，在属性窗口中对各控件属性按表1.2“属性设置值”列的要求进行设置。3双击“单击此处”按钮（或者单击“视图”“代码窗口”命令）调出代码窗口，在对象下拉列表框中选取控件对象名Command1，在事件下拉

5、列表框中选取Click事件，进入命令按钮Click事件过程。4在 Commamd1_click()事件中编写代码，按表1.2“属性修改”列的要求修改各控件属性。5执行“运行”“启动”命令，运行程序，如无错转入下一步。6.执行“文件”“保存”命令或单击工具栏的保存按钮“”，分别以sy1-2.frm和 sy1-2.vbp为文件名保存窗体文件和工程文件。表 1.2 对象属性设置和修改控件名属性设置值属性修改值Form1 Caption=设计界面 Caption=编程后界面Label1 Caption=请留意此处Caption=欢迎您使用VB6.0！Command1 Caption=单击此处 Capt

6、ion=运行结果-3-实验二VB 语言基础一、实验目的1.掌握 VB 的基本数据类型，熟悉VB 中常量的使用与变量的定义。2.掌握VB的基本运算，包括算术运算、关系运算和逻辑运算等，熟悉各种运算符的含义、优先级别及使用方法。3.掌握表达式的正确书写规则，并通过上机操作验证各种表达式值的正确性。4.掌握常用内部函数的使用。5.进一步熟悉Visual Basic的集成开发环境。二、实验内容实验 2.1 在窗体中分别输出一个整型、单精度型、字符型和逻辑型的数据。【实验要求】1.先定义各种类型的变量，把各种常量值赋给相应变量后再输出。2.改变各种变量的值后输出。【实验步骤】1在窗体的单击事件过程中输入

7、以下代码：Private Sub Form_Click()Print 123,56.78,China,False End Sub 2运行此程序，单击窗体，观察运行结果。3把窗体的单击事件过程代码修改为：Private Sub Form_Click()Dim a As Integer,b As Single,c As String,d As Boolean a=100 b=3.657 c=中国桂林 d=True Print a,b,c,d End Sub 4运行此程序，单击窗体，观察运行结果。实验 2.2 设 a=12,b=3,c=5.6,d=8.2,求下列表达式的值：（1）ac+b3 Mod

8、c*d（2）ab And cd Or bc And Not bb And cd Or bc And Not bd 3观察输出结果。实验 2.3 设 x=100，A=123.45，B=Visual Basic，求下列函数的值。（1）Sqr(100)(2)Val(A)(3)Mid$(B,7,5)(4)Asc(Mid(B,5,1)【实验要求】1.掌握各种函数的含义及应用。2.在窗体中输出各函数的值。【实验步骤】1.在窗体Form_Click的事件过程中输入以下代码：x=100 A=123.45 B=Visual Basic Print Sqr(x)Print Val(A)Print Mid$(B,7

9、,5)Print Asc(Mid(B,5,1)2.运行程序，单击窗体，观察输出结果。3.修改数据及代码，对其他常用函数如Abs、Chr、Str 等进行求值输出。实验 2.4 利用随机函数Rnd 生成 131 之间的任意整数（包括1 和 31）。【实验要求】1.掌握随机函数及其他常用函数的书写格式。2.熟悉随机函数与Int 函数配合使用生成任意整数的方法产生一定范围内的随机整数。该方法为：Int（Rnd*（上限-下限+1）下限）。【实验步骤】1.在立即窗口中输入：n=Int（Rnd*31+1）Print n 2.按回车键后，观察n 的值。3.重复上述步骤1 和步骤2，再观察随机数n 的值是否发生

10、了变化。如果n 值不变化，输入语句Randomize 使随机数发生改变。-5-4.修改程序生成5588 之间的任意整数。实验 2.5 格式输出函数Format 的使用。【实验要求】1.掌握格式输出函数Format 的格式。2.能够按照指定格式要求，熟练使用格式输出函数Format 正确输出数值型数据、字符型数据和时间/日期型数据等。【实验步骤】1在窗体的单击事件过程中输入以下代码：Private Sub Form_Click()Print Format（12345,#）Print Format（12345,#）Print Format（12345，0000000）Print Format（18

11、5.469,#.#）Print Format（185.469,#.#）Print Format（12345.66,#,#.#）Print Format（0.1235,00.0%）Print Format（1234.5,$#.#）Print Format（123.456,0.00E+00）Print Format（123.456,0.00E-00）End Sub 2运行此程序，单击窗体，观察运行结果。3把窗体的单击事件过程代码修改成如下形式：Private Sub Form_Click()Print Format（China Guilin,）Print Format（China Guilin,）

12、Print Format（China Guilin,&）End Sub 4运行此程序，单击窗体，观察运行结果。5把窗体的单击事件过程代码修改成如下形式：Private Sub Form_Click()T1=Time D1=Date Print Format(D1,m/d/yy)Print Format(D1,mmmm dddd yyyy)Print Format(T1,h m s AM/PM)Print Format(T1,hh：mm：ss A/P)Print Format(D1,dddddd)Print FormatDateTime(Now,4)Print Now End Sub 6运行此程

13、序，单击窗体，观察运行结果。-6-实验三基本控制结构一、实验目的1掌握赋值语句的使用。2掌握数据的基本输入与输出方法。3掌握顺序结构程序的编写与运行。4掌握选择结构程序的编写与运行。熟练使用If 语句实现单分支、双分支选择结构，用 If 语句或Select Case 语句实现多分支选择结构。5掌握循环结构程序的编写与运行。熟练使用For 计数型循环语句实现循环次数已知的循环结构；熟练使用Do Loop 条件型循环语句实现循环次数事先无法确定的循环结构。二、实验内容实验 3.1 求圆的面积及其圆柱体的体积。【实验要求】1.运行界面如图3-1 所示。运行开始时，在文本框1 中输入圆的半径，在文本框

14、2 中输入圆柱体的高。圆柱体以所输入的圆为底面。2.单击“求圆面积”命令按钮后，在文本框3 中显示圆的面积；单击“求圆柱体积”命令按钮后，在文本框4 中显示圆柱的体积。图 3-1 实验 3.1 运行界面【实验步骤】1界面设计（1）在窗体Form1 中添加四个文本框控件Text1Text4，并分别把它们的Text 属性设置为空白。（2）在窗体Form1 中添加四个标签Label1Label4，并分别把它们的Caption 属性设置为“圆的半径”、“圆柱的高”、“圆的面积”与“圆柱的体积”。（3）在窗体Form1中添加二个命令按钮Command1、Command2，并分别把它们的-7-Captio

15、n 属性设置为“求圆面积”与“求圆柱体积”。2编写代码（1）双击窗体Form1 的空白处，进入代码窗口。（2）在“求圆面积”命令事件过程中编写计算圆面积的程序。（3）在“求圆柱体积”命令事件过程中编写计算圆柱体积的程序。3运行程序。提示：从文本框中返回的数据是字符型的，使用前要通过Val 函数将其转换为数值型数据。实验 3.2 判断任意三条边能否构成一个三角形。【实验要求】1.分别使用三条InputBox()函数输入三条边，格式如图3-2(c)所示。2.如果输入的三条边能构成一个三角形，则在窗体上显示所输入的三条边，如图 3-2(a)所示。3.如果输入的三条边能构成一个三角形，则用MsgBox

16、()函数按图3-2(b)的形式给出出错信息，此时，用户如果点击“重试”按钮，则返回主界面；点击“取消”按钮，则结束程序。图 3-2(a)运行界面图 3-2(b)出错提示图 3-2(c)输入界面【实验步骤】1在窗体上创建一个命令按钮，将其Caption 修改为“输入三条边”，如图3.2(a)所示。2在命令按钮的Click事件过程中编写三条边的输入与判断程序。3运行程序。提示：（1）在 MsgBox()函数中，显示按钮“重试”与“取消”的按钮值为5，显示警告图标“!”按钮值为48。-8-（2）结束程序可使用命令End。实验 3.3 编写一个网吧收费程序。【实验要求】1.运行界面如图3-3 所示。2

17、.网吧基本收费为2 元/小时。3.根据不同的上机时数x，上机费用y 可以按以下公式计算收费：2*x x32*0.9x 3x5y=2*0.8x 5x=90 Text2=优秀 Case Is=80 End Select End Sub 实验 3.5 设计一个四则运算的自我练习应用程序，如图3-5 所示。图 3-5 实验 3.5 运行界面【实验要求】1程序执行时，当用户在文本框Text1 中输入一种运算符后，要求在图形框Picture1中立即出现该运算符号。2当单击“出题”命令按钮后，要求分别在文本框Text2、Text3 中产生两个1100 之间的随机整数。即由Text2、Picture1 与 T

18、ext3 组成一个表达式。3用户根据题目进行计算，并把计算结果填入到文本框Text4 中。Text1 Text4 Picture2 Text2 Text3 Picture1-10-4单击“判断”命令按钮可判断输入的结果是否正确，并在Picture2中显示“正确”或“错误”提示提示信息。5单击“答案”命令按钮后，在文本框Text4 中显示题目的正确答案。6用户欲停止自我练习，单击“退出”命令按钮，程序便结束运行。【实验步骤】1按图3-5 设计界面，具体步骤略。2在各命令按钮的Click 事件过程中编写相应的功能代码。3运行程序。提示：（1）每次在Text1 中输入“+”、“-”、“*”、“/”等

19、运算符号时，在Picture1 中立即出现相应的运算符号，可以在Text1 的 Change 事件过程中实现，先使用Cls 方法对Picture1 清屏，再在 Picture1中显示Text1 中相应的符号。（2）产生两个1100 之间的随机整数，可以使用公式：Int(Rnd*(数值上限-数值下限+1)+数值下限)（3）编写“答案”或“判断”程序时，要使用多分支选择结构语句（If 语句或Select语句）来实现，即根据Text1 中所输入的运算符号执行相应的运算，例如：Select c Case Text1 Case+Case -End Select 4.在计算程序中要注意数据类型的转换，即必

20、须通过Val 函数把文本框中的数字文本转换成数值型数据后，才能进行四则运算。5当运算为除法时，要避免除数为0 的现象出现，并且除法结果有可能是一个实数，这时，要求用户输入的结果和计算机计算的结果必须有着相同的小数位数，否则会出现“判断”错误。实验 3.6 求nS222222.222.2222n。【实验要求】1计算前，使用InputBox()函数让用户输入n 值。2单击窗体后，在窗体上按图3-6 的形式输出计算结果。图 3-6 实验 3.6 运行界面-11-【实验步骤】1.在窗体的Click 事件过程中编写用户输入与求解代码。2.运行程序。提示：（1）该计算的通项式公式为Ai=Ai-1*10+2

21、。（2）将通项式与累加和变量都定义成单精度，以避免数据溢出。实验3.7 打印所有的“水仙花数”。水仙花数是一个三位数，其每位数的立方和等于该数本身，例如：153=13+53+33，153 就是一个水仙花数。【实验要求】在一个图形框中输出水仙花数，如图3-7 所示。图 3-7 实验 3.7 运行界面【实验步骤】1在窗体上创建一个图形框。2在图形框的Click事件过程中编写求解代码。3运行程序。提示：分离三位数n 中的各位数，可以采用以下方法：百位数i：i=Int(n/100)十位数j：j=Int(n/10)-i*10 或j=Int(n/10)Mod 10 个位数k：k=n Mod 10 实验 3

22、.8 已知工厂去年的年产值为300 万，年增长率为15%。试问经过多少年后，该厂的年产值可以翻一番？翻一番后的实际产值是多少？【实验要求】1.运行界面如图3-8 所示。图 3-8 实验 3.8 运行界面-12-2.程序运行时，在文本框Text1 中输入现有产值，在文本框Text2 中输入年增长率。3.当单击“翻一番”命令按钮后，在文本框Text3 中输出经过的年数，在文本框Text4中输出实际产值。4.通过实验，要求进一步掌握循环结构的Do Loop 语句的各种格式及其使用。【实验步骤】1按图3-8 设计界面，具体步骤略。2在命令按钮的Click事件过程中编写计算代码。3运行程序。提示：（1）

23、算法分析：设P 表示现有的产值，R 表示年增长率，Y 表示经过的年数，S 表示经过 Y 年后的产值，则：S=P(1+R)Y 当满足条件S 2P，即满足P(1+R)Y 2P 时，Y 即为所求年数。（2）在编写“翻一番”事件过程代码时，使用Do Loop 语句实现循环求年产值，循环条件为Sa(n),则将 x 插入到a(n+1)中。否则将a(n)移到 a(n+1)中，再用 x 与 a(n-1)比较，若 xa(n-1),则将 x 插入到a(n)中，否则将a(n-1)移到 a(n)中，重复上述操作，直到把x 插入到合适的位置为止。实验五过程一、实验目的1掌握自定义函数过程和子过程的定义和调用方法。2掌握

24、形参和实参的对应关系。3掌握值传递和地址传递的传递方式。4掌握变量、函数和过程的作用域。5掌握递归概念和使用方法。6熟悉程序设计中的常用算法。二、实验内容实验 5.1 编写一个子过程，求任意三个正整数之和。【实验要求】1 A,B,C 分别为所给出的三个数，这三个数由三个Text文本框任意给出。2求和过程为Sum，其形式为：Sub Sum(a%,b%,c%,sansum%)在主调程序中输出所求的和，并放置在第四个文本框中。运行界面如图5-1 所示。3想一想，参数a,b,c,sansum是用值传递还是地址传递呢？图 5-1 实验 5.1 的运行界面【实验步骤】1按图5-1设计用户界面，将七个标签分

25、别放置在窗体中的适当位置，并分别修改它们的 Caption属性，再将四个文本框和一个按钮放置到窗体中。-20-2在代码窗口中编写Sum(a%,b%,c%,sansum%)过程。3在命令按钮的Click 事件过程中调用Sum（a,b,c,sansam）过程，并将参数Sansam 的值赋给Text4.text。实验 5.2 编写一个函数，判断输入的整数是偶数还是奇数并输出结果。图 5-2 实验 5.2 的运行界面【实验要求】1编一个函数过程Isou(n),对于已知正整数n，判断该数是否是偶数，函数的返回值类型为Boolean，即其格式为：Function Isou(n As Integer)As

26、Boolean 2用户在文本框中每输入一个数并按下回车后，调用Isou 函数过程，然后在图形框中显示输入的数，对于是偶数的在其后面显示一个“”，如图5-2 所示运行界面。【实验步骤】1按图5-2 设计用户界面，包括两个标签、一个文本框和一个图形框。2.在代码窗口中编写函数Isou(n As Integer)。3用文本框的Keypress 事件过程作为主调程序，每次回车都调用Isou 函数过程，并用Print 方法将结果显示在图形框中。提示：判断一个数是否为偶数的方法是将该数与2 相除取余，若余数为0 则这个数是偶数，否则是奇数。实验 5.3 编一过程，求一维数组a 中的最大值。【实验要求】1子

27、过程名为Promax，其形式为：Sub ProMax(a()As Integer,Max As Integer)2主调程序随机产生10 个 300 400 之间（包括300 和 400）的整数，要求每次执行时所产生的随机数序列不相同，然后调用ProMax 子过程，显示数组元素及其最大值，如图5-3 所示。图 5-3 实验 5.3 的运行界面-21-3想想Max参数的作用和传递方式。4学习掌握数组作为参数的传递方法。【实验步骤】1在代码窗口中编写ProMax(a()As Integer,Max As Integer)过程。2用窗体的Click事件过程作为主调程序，调用ProMax(a(),Max

28、)过程。提示：产生300 400 之间（包括300 和 400）随机整数的算法为：Int(Rnd*101+300)实验 5.4 编一函数过程，对已知数m判断其是否为“完数”。并求 1000 以内的所有“完数”。所谓“完数”即该数等于所有能够整除它的因子之和。如：6=1+2+3，6 就是“完数”。【实验要求】1“完数”作为一个单独的函数进行编写，其函数形式为：Function WS(m As Integer)as Boolean 2当用户按下“完数”命令按钮后，在窗体上显示11000 之间的“完数”。3.掌握函数的调用，考虑参数m 是用值传递还是地址传递。运行界面如图5-4 所示。图 5-4 实

29、验 5.4 的运行界面【实验步骤】1按图5-4 设计用户界面，包括一个标签、一个命令按钮和一个图形框。2.在代码窗口中编写函数WS(m)。3用命令按钮的Click事件过程作为主调程序调用该函数，并在窗体上显示1 1000之间的“完数”。提示：1.判断一个数m是否为“完数”的算法步骤为：（1）将 m与 I=1,2,int(m/2)依次取余数，余数为0，I 为因子，累加求和,算得所有的因子之和sum。（2）将 sum 与 m比较，如果相等，m为“完数”。2在调用WS函数时用循环语句逐次调用。实验 5.5 编一个选择法排序子过程，对已知的若干个整数按递增次序排序。【实验要求】1.子过程形式为：sub

30、 Sort1(a%()，学习掌握数组作为参数的传递方法。2.在键盘上任意的输入若干个数，调用选择排序子过程Sort后，这些整数按递增次序-22-排序，并将排好序的整数依次显示在窗体中。【实验步骤】1.在代码窗口中编写子过程sub Sort1(a%()。2在窗体的Click事件过程中定义一个数组，并用 Inputbox函数依次从键盘中输入整数存放在数组中，然后以该数组作参数调用Sort1子过程。提示：选择排序法原理：用两个循环嵌套语句实现，在每一轮排序都是找出当前最小数的下标，出了内循环，再将最小数交换到正确的位置。选择排序法算法的实现步骤（假定为n 个数的序列）：（1）从 n 个数中选出最小数

31、的下标，然后将最小数与第1 个数交换位置。（2）除第1 个数外，其余n-1 个数再按步骤（1）的方法选出次小的数，与第2 个数交换位置。（3）重复步骤(1)n-1遍，最后构成递增序列。实验 5.6 在实验5.5 的基础上，编一个二分查找子过程。【实验要求】利用二分查找算法查找某数，找到返回该数在数组中的下标位置，找不到返回值为-1。【实验步骤】1.在代码窗口中分别编写排序子过程和二分查找子过程。2在窗体的Click事件过程中定义一个数组，并用 Inputbox函数依次从键盘中输入整数存放在数组中，然后以该数组作参数依次调用排序子过程和二分查找子过程。提示：二分查找算法思想：在一个按升序排列好的

32、数组中，设low 和 high 分别为查找范围的上界与下界，将要查找的关键值key 同查找范围的中间mid 项元素比较，如果：Keya(mid)low=mid+1 查找区域缩小一半,继续查找,直到找到或查找区域中无元素（-1）。算法步骤：（1）将 low 和 high的初值分别设置为数组下标的下界与上界。（2）mid=(low+high)/2,如果 key=a(mid)，查找结束，如果lowhigh，数组中没该查找数，查找结束。（3）如果keya(mid),low=mid-1,否则 high=mid+1。（4）重复步骤(2)、（3），直到找到或查找数组中无该元素。实验 5.7 定义一个同标准函

33、数Replace一样的MyReplace(S,OldS,NewS)函数过程。【实验要求】1用 NewS新子串替换S 字符串中的所有与OldS 相同的旧子串，返回一个包含替换结果的字符串。2想一想，MyReplace函数的各参数传递是用值传递还是地址传递？-23-图 5-5 实验 5.7 的运行界面【实验步骤】1.设计用户界面如图5-5 所示，包括4 个标签、4 个文本框和一个命令按钮。2在代码窗口中编写MyReplace(S,Olds,NewS)函数过程。3在命令按钮的Click事件过程中定义三个字符串变量S（存放替换前的内容）、OldS（存放被替换的子字符串）和NewS（存放用来替换前的子字

34、符串），并依次用三个文本框给它们赋值，然后以它们作参数调用MyReplace(S,Olds,NewS)函数过程，最后将该函数过程的返回结果显示在一个文本框中。提示：MyReplace(S,Olds,NewS)函数过程的算法为：（1）分别取字符串S 与子串OldS 的长度。（2）使用函数InStr（S，OldS），在字符串S 中查找首个OldS 子串出现的位置，如果函数返回值非0 表示找到，运行下一步。（3）在 S 字符串中，用NewS 字符子串替换OldS 字符子串。设S 字符串长度为Len1，OldS 子串长度为len2,OldS子串在S 字符串的位置为n，则该替换可使用以下语句实现：S=L

35、eft(S,n-1)+Trim(NewS)+Right(S,len1-n-len2+1)（4）重复步骤（2）和（3），直到所有旧子串OldS 都被新子串NewS 代替（函数InStr返回值为0）。实验 5.8 求自然对数e 的近似值。其近似公式为：【实验要求】1在计算e 的过程中，最后一个累加项为小于或等于10-7。2分别用子过程和函数过程编写，并分别调用。区分子过程和函数过程的异同，掌握它们的调用方法和转换方式。【实验步骤】1.在代码窗口中分别编写计算e 的子过程和函数过程。mi0i 1111111e1.11!2!3!i!i!i!-24-2在窗体的Click事件过程中分别调用计算e 的子过程

36、和函数过程。提示：1该题先求连乘I！，再对1/I!进行累加。循环次数预先未知，根据累加项1/I!的值是否达到精度决定循环与否。算法流程图如图5-6 所示。图 5-6 实验 5.8 的流程图2在对同一问题定义两种过程时，只要抓住函数过程和子过程的区别，即函数名有一个值、子过程名无值的特点。这样当定义好函数过程后，要改为子过程，只要将函数过程名改为子过程的形参，另外再增加一个子过程名即可。反之，将子过程改为函数过程时，只要将有返回值的一个形参改为对函数过程名赋值。实验 5.9 定义一个用递归方法求组合数nmC 的函数过程。【实验要求】掌握递归过程的编写，理解构成递归的两个重要条件：1递归结束条件及

37、结束时的值。2待求结果能用递归形式表示，并且递归向结束条件发展。【实验步骤】1.在代码窗口中编写用递归方法求组合数的函数过程。2 在窗体的Click事件过程中使用Inputbox函数依次从键盘中输入求组合数的两个参数，然后调用求组合数的函数过程。【提示】1对于nmC有如下递归形式：nnn-1mm-1m-1C=C+C2递归条件：0m1mnmnmmC=1,n=0Cm,n=1CC,nm/2-25-实验六常用控件一、实验目的1掌握窗体及常用标准控件的常用属性、方法与事件。2掌握构建具有指定功能界面的方法，即运用窗体及常用控件的属性、方法、事件构建所需界面。3掌握鼠标、键盘与对象拖放等高级事件过程。二、

38、实验内容控件实验的一般设计方法：在Visual Basic 的应用程序设计中，首先根据要求规划好界面的元素和布局，然后对将要使用的窗体与控件，决定应更改哪些属性，调用哪些方法，对哪些事件作出响应，从而得到希望的外观和行为，使得窗口及控件能正确响应用户的交互操作。实验 6.1 密码处理，如图6-1 所示。图 6-1 密码处理【实验要求】1窗口上部的文本框名称为InputPassword，下部的文本框名称为DisplayPassword。2初始时，在InputPassword文本框中输入的字符都显示为“*”。3单击“显示密码”按钮，则InputPassword文本框改为显示实际输入的字符。4单击“

39、隐藏密码”按钮，则InputPassword中的字符都还原为显示“*”。5 单击“复制密码”按钮，则把 InputPassword文本框的实际内容复制到DisplayPassword文本框中。【实验步骤】1按照图6-1 在窗体上生成需要的控件。部分控件的部分属性初始值按表6.1 进行设置。-26-表 6.1 部分控件属性设置控件属性属性值InputPassword文本框PasswordChar*DisplayPassword文本框text（空）2在三个命令按钮的Click事件过程中编写相应的处理代码。提示：利用文本框的PasswordChar属性指定密码的遮掩符。实验 6.2按下图6-2 界面

40、设计程序，使得程序能够正确判断用户的选择。图 6-2 单选框与复选框的使用【实验要求】每当重新选择一个新的学生姓名单选框时，“选择课程”框架中的复选框全部被置为未选中。单选框与复选框的选中或取消选中操作，要及时反映在下面的文字提示中。【实验步骤】1按照图6-2 在窗体上生成需要的控件。其中，通过一个框架将三个学生姓名单选框组合成一组，通过一个框架将三个课程复选框组合成一组。下面的文字提示设计成两个标签控件，一个显示用户选择的学生姓名，另一个显示用户选择的课程。2编写单选框与复选框的Click事件处理代码。提示：1复选框的Value 属性，在被选中时为1，未被选中时为0；2单选框的Value 属

41、性，在被选中时为True，未被选中时为False，并且只要某个单选框被单击，就会被选中（其余单选框自动清除选中）。实验 6.3 按下图6-3 设计程序界面，使得用户能够更变显示字符串的字体。【实验要求】1文本“Visual Basic 程序设计”在一个标签上显示。2字号选择用组合框实现，字体选择用列表框实现，通过四个复选框设置文字特效。3窗口上字符串的显示依用户的选择而相应变化。【实验步骤】1按照图6-3 在窗体上生成需要的控件。部分控件的部分属性初始值按表6.2 进行设置。2编写组合框、列表框与复选框的Click 事件处理代码。-27-图 6-3 使用复选框、列表框与组合框控制Font 属性

42、表 6.2 部分控件属性设置控件属性属性值标签Caption Visual Basic 程序设计组合框List 10 15 20 25 30 列表框List 黑体隶书宋体仿宋 _GB2312 华文彩云（选用的字体与具体机器系统有关）提示：1组合框的Text 属性提供用户输入或者选择的内容；列表框的Text 属性提供用户选择的内容。2删除线涉及属性FontStrikethru，粗体涉及属性FontBold，斜体涉及属性FontItalic，下划线涉及属性FontUnderline。3在属性窗口中，输入组合框或列表框的List 属性时，通过组合键“Ctrl+Enter”换行。实验 6.4 按下图6

43、-4 设计程序界面，允许用户通过滚动条来调节文本框的宽度、高度与字体。图 6-4 实验 6.4 运行画面-28-【实验要求】1.程序初启时，各滚动条的值分别等于文本框的初始宽度、高度与字体。2.文本框宽度与高度的最小值为1，最大值刚好分别等于相应控制滚动条的宽度与高度。【实验步骤】1按照图6-4 在窗体上生成需要的控件，并按表6.3 进行属性设置。表 6.3 控件属性设置控件属 性属性值控制宽度的水平滚动条（HScroll1）Min 1 Max 自身的Width 属性值SmallChange 10 控制高度的垂直滚动条（VScroll1）Min 1 Max 自身的Height 属性值Small

44、Change 10 控制字体的水平滚动条（HScroll2）Min 2 Max 72 SmallChange 1 文本框MultiLine True 2在各滚动条的Change 事件过程中编写相应的处理代码。提示:为了实现实验要求1，在窗体的Load 事件过程中添中以下代码：HScroll1.Value=Text1.Width VScroll1.Value=Text1.Height HScroll2.Value=Text1.FontSize 实验 6.5 定时器控件的使用，如图6-5 所示。【实验要求】1单击“计时”按钮时，显示流逝的秒数，单击“重新设置”按钮时返回到0，单击“暂停”按钮停止计

45、时，单击“关闭”按钮关闭整个程序。2暂停后重新计时,可在暂停之前的基础上继续。图 6-5 计时器程序【实验步骤】1按照图6-5 在窗体上生成需要的控件。注意，有一个运行时不可见的计时器控件。部分控件的部分属性初始值按表6.4 进行设置。表 6.4 部分控件属性设置控件属性属性值计时器Enabled True Interval 1000 标签Caption(空)-29-2编写各命令按钮的Click 事件处理代码。提示:1.利用其Enabled 属性开关计时器。2.结束程序使用语句End。实验 6.6 按照下图6-6 设计界面，使得程序能根据用户操作完成相应功能。图 6-6 鼠标与键盘事件处理程序

46、图 6.7 帮助信息【实验要求】1用户同时按下Ctrl+Alt+Ins组合键时，弹出一个图6-7 的帮助信息框。2设计一个通过图像切换实现的简单动画，并由组合操作“鼠标右键+Shift 键”，启动/停止动画。3用户按下F1 功能键，能变更文本区域字符的显示颜色。【实验步骤】1准备 2 张以上用于动画的卡通图标文件放在当前实验目录。可以通过Windows的开始菜单的“搜索”功能，查找机器上可能有的图标文件，在“要搜索的文件或文件夹名为：”处输入：*.ico。2按照图6-6 在窗体上生成需要的控件。注意，有一个运行时不可见的计时器控件。部分控件的部分属性初始值按表6.5 进行设置。表 6.5 部分

47、控件属性设置控件或窗体属性属性值窗体KeyPreview True 定时器Enabled True Interval 100 图像框Picture(None)3编写适当的事件处理代码提示：1动画通过每隔一定时间显示一张图片来实现。需要在窗口增加一个定时器控制时间间隔。每当Timer 事件发生时，装载下一张图像文件，如：Image1.Picture=LoadPicture(c:picture1.ico)使得构成动画的图像循环播放。2在窗口的KeyDown事件及MouseDown事件代码中检查用户按键。-30-3文本框字符的颜色可以采用下面的颜色：vbRed、vbBlue、vbGreen、vbYe

48、llow、vbMagenta、vbCyan 与 vbBlack。实验 6.7 编写清理散落物品的程序，如图6-8 所示。图 6-8 清理散落的物品【实验要求】1散落的物品或者放入物品间，或者丢弃到垃圾框。2使用一个图像框数组表示物品间，一个图像框控件表示垃圾框。3物品在丢弃之前，显示一个信息框，询问是否确实要把该对象放入“垃圾框”，回答“是”则放入垃圾框站，对象从窗体上消失；回答“否”则对象仍回到原来的位置。4物品间的一个格子只容纳一个物品，如果欲将一个物品放入已有物品的格子中，则放入不能成功；不允许在格子间隔线上放置物品。【实验步骤】1准备多张物品图像文件（图标文件）。2按照图6-8 在窗体

49、上生成需要的控件。部分控件的部分属性初始值按表6.6 进行设置。表 6.6 部分控件属性设置控件属性属性值各个散落物品的图像框DragMode 1 物品间的图像框DragMode 0 垃圾框的图像框DragMode 0 3编写适当的事件代码。提示：1物品间每个格子放入一个相当于格子大小的图像框，初始时图象框不加载图形。2在图像框及垃圾框的DragDrop事件过程中，编写物品在拖放结束时的放入或丢弃处理代码。3 判断一个图像框是否已经加载了图片，用下面的判断语句（假设格子的图像框用room控件数组表示）：-31-If(room(Index).Picture=0)Then 未加载图形的处理Else

50、 已加载图形的处理End if 实验七界面设计一、实验目的1学会使用通用对话框进行编程。2掌握窗口菜单、弹出式菜单和实时菜单的设计方法。3掌握多重窗体、多文档窗体的设计和使用。4综合应用所学的知识，编制具有可视化界面的应用程序。二、实验内容实验 7.1 设计一个运行界面如图7-1 的应用程序。图 7-1 实验 7.1 的运行界面【实验要求】1当选择“改变标签标题颜色”按钮后，弹出颜色对话框，为标签标题选择一个颜色。2当选择“编辑文本文件”按钮后，弹出打开文件对话框，指定只能选择后缀为txt的文本文件，并调用Windows记事本程序编辑用户选择的文本文件。【实验步骤】1启动VB，执行File 菜