VB 实验-Sub过程

过程实验:

编写一个已知圆的半径，编写一个求圆面积的过程，通过对过程的调用，计算圆的面积。

公式：圆的面积=∏* R * R（计算时取∏的值为3.14）程序运行后的结果如下：

[技能目标]

1. 掌握过程的定义。

2. 掌握过程的调用方法。

实验二的主要步骤：

１、在G盘上创建一个VBTest0731的文件夹。

２、新建一个Visual 的Windows应用程序项目Circle。

打开Visual 2005开发环境，从菜单中选择“文件”｜“新建项目”，弹出“新建项目对话框”，在对话框的“项目类型”中选择“Visual Basic｜Windows”，在模板中选择“Windows应用程序”。输入项目名称为Circle，如图１，点击“确定”进入项目开发环境。

图１新建项目

３、保存项目到G:\VBTest0731目录下，项目名称为Circle.

在项目开发环境中，选择菜单中选择“文件”｜“全部保存”，弹出“保存对话框”，点击“游览”按钮，选择G:\VBTest0731文件夹，输入名称Circle，如图２。

图２保存项目

３、界面设计

从工具箱中拖一个文本框TextBox控件、一个标签控件Label与一个按钮Button控件到窗体上，设计界面如图３。

图３程序界面

按表１设置各控件的属性。

表１各控件的属性

控件属性属性值

Form Text 利用过程来计算圆的面积

Label Text 请输入圆的半径：

TextBox Name txtR

Button

Name btnCircle

Text 计算圆面积Click事件btnCircle_Clcik

打开“设计器”窗口，用鼠标在程序界面中Button“计算圆面积”上双击，产生btnCircle_Clcik事件，并自动切换到“代码”窗口。

1)编写计算圆面积的Sub过程Circle()

Public Class Form1

'计算圆面积的sub过程

'传入两个参数:

'采用传引用的方式，会返回计算的结果，

'radius采用传值的方式，传入要计算的圆的半径

Sub CalcCircle(ByRef s As Double, ByVal radius As Double)

s = 3.14 * radius * radius

End Sub

End Class

注意过程一定要写在Class 与 End Class之内，并且不能写在其他Sub过程之内。

２）调用编写的过程来计算圆的面积

在btnCircle_Click中编写如下代码:

Private Sub btnCircle_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnCircle.Click

Dim r As Double

Dim area As Double

'接收从界面上输入的半径保存到r变量中

r = txtR.Text

'调用过程来计算圆的面积

CalcCircle(area, r)

'计算的结果保存在area变量中

MsgBox("圆的面积为: " & area)

End Sub

５、运行程序，测试结果

按F5运行程序，随机输入一个数据，点击“计算圆面积”按钮，测试结果的正确性。６、将上面的Sub过程改为Function过程来计算圆的面积，请自己完成练习。