计算机高一试题:试编写一个程序,实现输入圆的半径,输出圆的周长和面积?

问题描述:

计算机高一试题:试编写一个程序,实现输入圆的半径,输出圆的周长和面积?

Private Sub Command1_Click()Dim r As SingleDim c As SingleDim s As Singler = Val(Text1.Text)c = 2 * 3.14159 * rs = 3.14159 * r * rText2.Text = cText3.Text = sEnd Sub