(相关资料图)

1、123456PrivateSubCommand1_Click()DimrAsDouble,hAsDoubler=Val(Text1.Text)h=Val(Text2.Text)Text3.Text=Str(3.1415926*r^2*h)EndSub。

本文为大家分享到这里，希望小伙伴们有帮助。

标签：

免责声明：市场有风险，选择需谨慎！此文仅供参考，不作买卖依据。