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

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”命令，生成可执行程序文件。