Question

如何用VB编写程序输入r的值输出圆的面积和周长？

Answer 1

画一个命令按钮，代码： Private Sub Command1_Click()
Dim r As Double
r = Val(InputBox("请输入圆的半径:"))
Print "该圆的面积是:", 3.14 * r ^ 2
Print "该圆的周长是:", 2 * 3.14 * r
End Sub

Answer 2

Private Sub Command1_Click()
Dim r, s, l As Double
r = Val(Text1.Text)
l = 2 * 3.1416 * r
s = 3.1416 * r ^ 2
Label1.Caption = "面积：" & s & " 周长:" & l
End Sub

Answer 3

dim MJ AS double,ZC as double;
MJ=π*Math.Pow(r,2);
ZC=2*π*r