本例子将通过使用自定义变量(固定圆周率的值)和用户输入的圆的半径计算圆的面积,效果图如下:
实现过程:
1,新建一个工程,设置窗体的caption属性为“计算圆的面值 byVB源码博客”。在窗体中添加两个label控件,设置label1的caption属性为“请输入圆的半径:”,添加一个textbox文本框、一个commandbutton按钮,并设置其caption属性为“计算”。
2,单击窗体中的“计算”按钮,声明局部变量pi,并使用常量pi计算圆的面积,将结果显示在label控件中,代码如下:
option explicit
private sub command1_click()
const pi=3.14
dim s as long
s=pi*val(text1.text)^2
label2.caption="圆的面积为" & S
end sub