VB试验报告书六（过程）

本文格式为Word版，下载可任意编辑——VB试验报告书六（过程）实验报告

学号:姓名:专业:年级:级试验室:机器号:试验日期:年月日指导教师：

试验六过程

一、试验目的

1．把握Function过程和Sub过程的定义和调用方法。2．把握形参和实参的对应关系。

3．把握值传递和地址传递的传递方式。4．把握递归的概念和使用方法。5．把握过程和变量的作用域。

二、试验内容与操作

1．开启工程文件Dsg0701.vbp，在标题为“阶乘累加〞的窗体Form1上，添加一个标题为“请输入n的值〞的标签Label1；然后再添加一个标题为“计算〞的命令按钮Command1；最终添加两个文本内容为空的文本框Text1和Text2。要求编写一个求n!的Function过程fact(ByValnAsInteger)AsDouble。程序运行时，在Text1中输入一个正整数n，单击“计算〞按钮，调用函数fact求“1!+2!+?+n!〞的值，并将计算结果显示在Text2中，运行界面如图7-1所示。完成上述功能后，以原文件名保存窗体（Dsg0701.frm）和工程（Dsg0701.vbp）。

图7-1阶乘累加的运行界面

（1）创立用户界面

选择“文件〞→“开启工程〞命令，在“开启工程〞的对话框中选择“Dsg0701.vbp〞工程文件。接着在窗体Form1上添加一个标签、一个命令按钮和两个文本框，然后用鼠标调整各个控件的大小和位置。（2）设置对象属性

根据设计要求，按表7-1所示的值设置各个控件对象的属性，设置后的界面如图7-2所示。

表7-1阶乘累加的对象属性设置对象窗体标签命令按钮文本框文本框对象名称Form1Label1Command1Text1Text2属性CaptionCaptionCaptionTextText

属性值阶乘累加请输入n的值计算（空）（空）图7-2阶乘累加的属性设置设计界面

（3）编写程序代码

①在窗体的代码窗口中编写Function过程代码。Functionfact(ByValnAsInteger)AsDouble

EndFunction

②在“计算〞按钮的Click事件过程中编写代码。PrivateSubCommand1_Click()

EndSub（4）保存工程

选择“文件〞→“保存工程〞命令，或者单击工具栏的“保存工程〞按钮，保存窗体文件和工程文件。

（5）生成可执行文件

选择“文件〞→“Dsg0701.exe〞命令，生成可执行程序文件。

2．开启工程文件Dsg0702.vbp，在标题为“降序排序〞的窗体Form1上，添加一个标题为“排序〞的命令按钮Command1；然后再添加4个文本内容为空的文本框Text1、Text2、Text3和Text4。要求编写一个Sub过程Swap(ByRefx%,ByRefy%)，用于交换x和y的值。程序运行时，在Text1、Text2和Text3中输入3个整数，单击“排序〞按钮，调用过程Swap实现对它们按从大到小的顺序进行排序，并在Text4中输出排序结果，整数之间用空格隔开，运行界面如图7-3所示。完成上述功能后，以原文件名保存窗体（Dsg0702.frm）和工程（Dsg0702.vbp）。

图7-3降序排序的运行界面

（1）创立用户界面

选择“文件〞→“开启工程〞命令，在“开启工程〞的对话框中选择“Dsg0702.vbp〞工程文件。接着在窗体Form1上添加一个命令按钮和4个文本框，然后用鼠标调整各个控件的大小和位置。

（2）设置对象属性

根据设计要求，按表7-2所示的值设置各个控件对象的属性，设置后的界面如图7-4所示。

表7-2降序排序的对象属性设置对象窗体命令按钮文本框文本框文本框文本框对象名称Form1Command1Text1Text2Text3Text4

属性CaptionCaptionTextTextTextText属性值降序排序排序（空）（空）（空）（空）图7-4降序排序的属性设置设计界面

（3）编写程序代码

①在窗体的代码窗口中编写Sub过程代码。PrivateSubswap(ByRefx%,ByRefy%)

EndSub

②在“排序〞按钮的Click事件过程中编写代码。PrivateSubCommand1_Click()

EndSub（4）保存工程

选择“文件〞→“保存工程〞命令，或者单击工具栏的“保存工程〞按钮，保存窗体文件和工程文件。（5）生成可执行文件

选择“文件〞→“Dsg0702.exe〞命令，生成可执行程序文件。

3．开启工程文件Dsg0703.vbp，在标题为“最小公倍数〞的窗体Form1上，添加两个标题分别为“整数m〞和“整数n〞的标签Label1和Label2；然后再添加3个文本内容为空的文本框Text1、Text2和Text3；最终添加一个标题为“最小公倍数〞的命令按钮Command1。要求编写一个Function过程Gcd(ByValm%,ByValn%)AsInteger，用于求整数m和n的最大公约数。程序运行时，在Text1和Text2中分别输入整数m和n，单击“最小公倍数〞按钮，调用函数Gcd()求出这两个整数的最小公倍数，并在Text3中显示求解结果，运行界面如图7-5所示。完成上述功能后，以原文件名保存窗体（Dsg0703.frm）和工程（Dsg0703.vbp）。

图7-5最小公倍数的运行界面

（1）创立用户界面

选择“文件〞→“开启工程〞命令，在“开启工程〞的对话框中选择“Dsg0703.vbp〞工程文件。接着在窗体Form1上添加两个标签、3个文本框和一个命令按钮，然后用鼠标调整各个控件的大小和位置。（2）设置对象属性

根据设计要求，按表7-3所示的值设置各个控件对象的属性，设置后的界面如图7-6所示。

表7-3最小公倍数的对象属性设置对象窗体标签标签文本框文本框文本框命令按钮对象名称Form1Label1Label2Text1Text2Text3Command1属性CaptionCaptionCaptionTextTextTextCaption

图7-6最小公倍数的属性设置设计界面

属性值最小公倍数整数m整数n（空）（空）（空）最小公倍数（3）编写程序代码

①在窗体的代码窗口中编写Function过程代码。

PrivateFunctionGcd(ByValm%,ByValn%)AsInteger

EndFunction

②在“最小公倍数〞按钮的Click事件过程中编写代码。PrivateSubCommand1_Click()

EndSub（4）保存工程

选择“文件〞→“保存工程〞命令，或者单击工具栏的“保存工程〞按钮，保存窗体文件和工程文件。

（5）生成可执行文件

选择“文件〞→“Dsg0703.exe〞命令，生成可执行程序文件。

4．开启工程文件Dsg0704.vbp，在标题为“数列累加〞的窗体Form1上，添加两个标题分别为“参数x〞和“参数n〞的标签Label1和Label2；然后再添加3个文本内容为空的文本框Text1、Text2和Text3；最终添加一个标题为“求值〞的命令按钮Command1。编写一个Function过程Square(ByValx%,ByValn%)AsDouble，用于求xn的值。程序运行时，在Text1和Text2中分别输入x和n的值，单击“求值〞按钮，则调用Square函数计算表达式1+x+x2+?+xn的值，并在Text3中显示计算结果，运行界面如图7-7所示。完成上述功能后，以原文件名保存窗体（Dsg0704.frm）和工程（Dsg0704.vbp）。

图7-7数列累加的运行界面

（1）创立用户界面

选择“文件〞→“开启工程〞命令，在“开启工程〞的对话框中选择“Dsg0704.vbp〞工程文件。接着在窗体Form1上添加两个标签、3个文本框和一个命令按钮，然后用鼠标调整各个控件的大小和位置。（2）设置对象属性

根据设计要求，按表7-4所示的值设置各个控件对象的属性，设置后的界面如图7-8所示。

表7-4数列累加的对象属性设置对象窗体标签标签文本框文本框文本框

对象名称Form1Label1Label2Text1Text2Text3Command1属性CaptionCaptionCaptionTextTextTextCaption属性值数列累加参数x参数n（空）（空）（空）求值命令按钮

图7-8数列累加的属性设置设计界面

（3）编写程序代码

①在窗体的代码窗口中编写Function过程代码。

PrivateFunctionSquare(ByValx%,ByValn%)AsDouble

EndFunction

②在“求值〞按钮的Click事件过程中编写代码。PrivateSubCommand1_Click()

EndSub（4）保存工程

选择“文件〞→“保存工程〞命令，或者单击工具栏的“保存工程〞按钮，保存窗体文件和工程文件。

（5）生成可执行文件

选择“文件〞→“Dsg0704.exe〞命令，生成可执行程序文件。

5．开启工程文件Dsg0705.vbp，在标题为“显示素数〞的窗体Form1上，添加两个标题分别为“整数m〞和“整数n〞的标签Label1和Label2；然后再添加3个文本内容为空的文本框Text1、Text2和Text3，其中Text3带有水平滚动条；最终添加一个标题为“显示〞的命令按钮Command1；要求编写一个Function过程Isprime(nAsInteger)AsBoolean，用于判断整数n是否为素数，假使是素数函数返回True，否则函数返回False。程序运行时，在Text1和Text2分别输入正整数m和n（n＞m≥2），单击“显示〞按钮，调用Isprime函数过程，找出m～n之间全部素数，按从小到大顺序显示在Text3中，素数之间用空格隔开，运行界面如图7-9所示。完成上述功能后，以原文件名保存窗体（Dsg0705.frm）和工程（Dsg0705.vbp）。

图7-9显示素数的运行界面

（1）创立用户界面

选择“文件〞→“开启工程〞命令，在“开启工程〞的对话框中选择“Dsg0705.vbp〞工程文件。接着在窗体Form1上添加两个标签、3个文本框和一个命令按钮，然后用鼠标调整各个控件的大小和位置，调整后的控件布局如图7-10（a）所示。

（2）设置对象属性

根据设计要求，按表7-5所示的值设置各个控件对象的属性，设置后的界面如图7-10所示。

表7-5显示素数的对象属性设置对象窗体标签标签文本框文本框文本框命令按钮对象名称Form1Label1Label2Text1Text2Text3Command1属性CaptionCaptionCaptionTextTextTextMultiLineScrollBarsCaption

属性值图7-10显示素数的属性设置设计界面

（3）编写程序代码

①在窗体的代码窗口中编写