VB中输入半径求圆面积和周长！

来源：百度知道 编辑：UC知道 时间：2024/05/27 01:26:31
输入半径和输出面积周长都用文本框完成！
谢谢！~

圆的周长
Private Sub Command1_Click()
p = 3.14159
r = Text1.Text
Print r * r * p
End Sub

在窗体上画三个文本框，输入以下代码：
dim r as single,s as single,L as single,Pi as single
r=text1.text'输入半径
Pi=4*atn(1)
s=Pi*r^2
L=2*Pi*r
text2.text=L'显示周长
text3.text=s'显示面积