Question

Vb 输入半径求圆面积周长 按这个界面 写下程序 谢谢

Answer 1

命令按钮的代码如下：
Private Sub Command1_Click()
r = Val(Text1.Text)
Label4.Caption = 2 * 3.1415926 * r
Label5.Caption = 3.1415926 * r * r
End Sub

Answer 2

太简单了吧

Private Sub Command1_Click()
Dim radius, circum, square As Single
Dim pi
pi = 3.1416
radius = Val(Text1.Text)
circum = 2 * pi * radius
square = pi * radius * radius
Label4.Caption = circum
Label5.Caption = square
End Sub