vb编程入门代码 VB作业，作业:输入圆的半径，计算圆面积和圆周长。计算结果数据类型为单精度型？

VB作业，作业:输入圆的半径，计算圆面积和圆周长。计算结果数据类型为单精度型？①方法1:private sub command1 Click（）dim P as singledim s as sing

VB作业，作业:输入圆的半径，计算圆面积和圆周长。计算结果数据类型为单精度型？

①方法1:

private sub command1 Click（）

dim P as single

dim s as single

dim r as single

P=3.1415“定义Pai值

r=Val（text1）

s=P*r^2”面积公式

C=2*P*r”周长公式

label2.caption=C“label 2输出周长结果

text2=s”文本框2output area result

end sub

method 2

private sub command1uclick（）

dim P as single

dim s as single

dim r as single

P=3.1415“定义Pai的值

r=InputBox（“请输入圆的半径”，“input”，0）“获取输入值

s=P*r^2”面积公式

C=2*p*r“周长公式

msgbox（“圆的面积为：”&S&“圆的周长为：”&c）“输出结果

结束sub！”