VB实验报告书六[班级号]（过程）

实 验 报 告

学号: 【××××××××××】 姓名: 【×××】 专业: 【××××××】 年级: 【 14 】级 实验室: 【D×××】 机器号: 【×××】 实验日期: 【2015】 年 【 】 月 【 】日 指导教师：【朴相珍】

实验六 过程

一、实验目的

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

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

二、实验内容与操作

1．打开工程文件Dsg0701.vbp，在标题为“阶乘累加”的窗体Form1上，添加一个标题为“请输入n的值”的标签Label1；然后再添加一个标题为“计算”的命令按钮Command1；最后添加两个文本内容为空的文本框Text1和Text2。要求编写一个求n!的Function过程fact(ByVal n As Integer) As Double。程序运行时，在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 阶乘累加的对象属性设置 对象 窗体 标签 命令按钮 文本框 文本框 对象名称 Form1 Label1 Command1 Text1 Text2 属性 Caption Caption Caption Text Text

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

（3）编写程序代码

① 在窗体的代码窗口中编写 Function 过程代码。 Function fact(ByVal n As Integer) As Double

End Function

② 在“计算”按钮的 Click 事件过程中编写代码。 Private Sub Command1_Click()

End Sub （4）保存工程

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

（5）生成可执行文件

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

2．打开工程文件Dsg0702.vbp，在标题为“降序排序”的窗体Form1上，添加一个标题为“排序”的命令按钮Command1；然后再添加4个文本内容为空的文本框Text1、Text2、Text3和Text4。要求编写一个Sub过程Swap(ByRef x%, ByRef y%)，用于交换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 降序排序的对象属性设置 对象 窗体 命令按钮 文本框 文本框 文本框 文本框 对象名称 Form1 Command1 Text1 Text2 Text3 Text4

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

（3）编写程序代码

① 在窗体的代码窗口中编写 Sub 过程代码。 Private Sub swap(ByRef x%, ByRef y%)

End Sub

② 在“排序”按钮的 Click 事件过程中编写代码。 Private Sub Command1_Click()

End Sub （4）保存工程

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

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

3．打开工程文件 Dsg0703.vbp，在标题为“最小公倍数”的窗体 Form1 上，添加两个标题分别为“整数m”和“整数n”的标签 Label1 和 Label2；然后再添加 3 个文本内容为空的文本框 Text1、Text2 和 Text3；最后添加一个标题为“最小公倍数”的命令按钮 Command1。 要求编写一个 Function 过程 Gcd(ByVal m%, ByVal n%) As Integer，用于求整数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 最小公倍数的对象属性设置 对象 窗体 标签 标签 文本框 文本框 文本框 命令按钮 对象名称 Form1 Label1 Label2 Text1 Text2 Text3 Command1 属性 Caption Caption Caption Text Text Text Caption

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

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

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

Private Function Gcd(ByVal m%, ByVal n%) As Integer

End Function

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