Question

用vb 设计程序：使用一个输出，使用label.使用两个单选按钮，一个caption是周长，一个是面积。

然后在单击计算的时候，可以输出相应的周长和面积。（求的是圆的面积和周长）

Answer 1

Private Sub Command1_Click()
Dim s As Double
r = Val(Text1.Text)
Const pi = 3.14159265
s = pi * r * r
Label1.Caption = "圆的面积为 " & s
End Sub

Private Sub Command2_Click()
Dim c As Double
r = Val(Text1.Text)
Const pi = 3.14159265
c = 2 * pi * r
Label2.Caption = "圆的周长为 " & c
End Sub

Answer 2

Private Sub Command1_Click()
Dim p
p = 3.1415
a = Val(InputBox("请输入圆的半径："))
x = 2 * p * a
Label1.Caption = x
End Sub

Private Sub Command2_Click()
Dim p
p = 3.1415
a = Val(InputBox("请输入圆的半径："))
x = p * a * a
Label1.Caption = x
End Sub