Dim r, pi, s是对变量进行定义，你可以不用定义变量的类型，让系统自动根据其值分配，字符型、数字型是常用的。
r = Text1.Text，把输入的圆的半径送到变量r中存储。
pi为计算圆面积的常数，可以直接进行赋值。
s = pi * r * r表示圆面积的计算。
Label6.Caption = "圆的面积是：" & s，是将结果显示，你还可以用textbox控件实现显示结果信息。
矩形面积：
在关闭按钮中添加代码“end”，实现的功能是关闭窗口：
运行效果：
输入圆的半径2.65后，点击“计算圆面积”按钮，在label控件显示了圆形面积的计算结果。
输入矩形的长和宽，点击“计算矩形面积”按钮，在label控件显示了矩形面积的计算结果。
