(相关资料图)

1、12345678PrivateSubCommand1_Click()Constpi=3.14159265358979Dimr#r=10Print"大圆面积为：";pi*r^2Print"表面积为：";4*pi*r^2Print"体积为：";4*pi*r^3/3EndSub。

本文分享完毕，希望对你有所帮助。