设计程序计算圆周长和面积～利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为空,值不得超过999.输出的面积和周长保留小数二位.
网友回答
没看到你图是什么样的,我照你题目的意思,答案如下
Private Sub Command1_Click()
Dim i As Variant
Dim j As Variant
Dim k As Variant
k = Val(Text1.Text)
Const PI = 3.14159
If k > 0 And k i = 2 * PI * k
j = PI * k ^ 2
Print 圆的周长是： & Round(i,2)
Print 圆的面积是： & Round(j,2)
ElseMsgBox 请输入数值并且不能大于999,,提示
End IfEnd Sub
以上经上机调试成功.