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()

End Sub （4）保存工程

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

（5）生成可执行文件

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

4．打开工程文件 Dsg0704.vbp，在标题为“数列累加”的窗体 Form1 上，添加两个标题分别为“参数x”和“参数n”的标签 Label1 和 Label2；然后再添加 3 个文本内容为空的文本框 Text1、Text2 和 Text3；最后添加一个标题为“求值”的命令按钮 Command1。编写一个Function 过程 Square(ByVal x%, ByVal n%) As Double，用于求 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 数列累加的对象属性设置 对象 窗体 标签 标签 文本框 文本框 文本框

对象名称 Form1 Label1 Label2 Text1 Text2 Text3 Command1 属性 Caption Caption Caption Text Text Text Caption 属性值 数列累加 参数x 参数n （空） （空） （空） 求值 命令按钮

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

（3）编写程序代码

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

Private Function Square(ByVal x%, ByVal n%) As Double

End Function

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

End Sub （4）保存工程

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

（5）生成可执行文件

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

5．打开工程文件 Dsg0705.vbp，在标题为“显示素数”的窗体 Form1 上，添加两个标题分别为“整数m”和“整数n”的标签 Label1 和 Label2；然后再添加 3 个文本内容为空的文本框 Text1、Text2 和 Text3，其中 Text3 带有水平滚动条；最后添加一个标题为“显示”的命令按钮 Command1；要求编写一个 Function 过程 Isprime (n As Integer) As Boolean，用于判断整数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 显示素数的对象属性设置 对象 窗体 标签 标签 文本框 文本框 文本框 命令按钮 对象名称 Form1 Label1 Label2 Text1 Text2 Text3 Command1 属性 Caption Caption Caption Text Text Text MultiLine ScrollBars Caption

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

（3）编写程序代码

① 在窗体的代码窗口中编写 Function 过程代码。 Private Function IsPrime(n As Integer) As Boolean

End Function

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

End Sub （4）保存工程

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

（5）生成可执行文件

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

本文来源：https://www.bwwdw.com/article/2agp.html