设计程序计算圆周长和面积~利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 03:15:58
设计程序计算圆周长和面积~利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为
xRKOQ+7,4,] ]hbZe,؎`SЊEV&s/̌vuLn7y= ?I5 uJ ȟ JˇV}oIV:c ߣ*KTY敔*C` ;mEᅦ5l@M%׫Iלh[i8^b˼9޶t :`UJr Q`r}_p/J4$~XC=M7~ wчތ냤r9j05 2/A#jTK^[#b+A{F:ȴ L#0%5 wyQEe\6(XmL gKd* $Ԃ*h1 dG}Ǹ.

设计程序计算圆周长和面积~利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为
设计程序计算圆周长和面积~
利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为空,值不得超过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 < =999 Then
i = 2 * PI * k
j = PI * k ^ 2
Print "圆的周长是:" & Round(i,2)
Print "圆的面积是:" & Round(j,2)
Else
MsgBox "请输入数值并且不能大于999",,"提示"
End If
End Sub
以上经上机调试成功.