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