作业帮设计程序计算圆周长和面积～
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/29 00:14:30
设计程序计算圆周长和面积～
利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为空,值不得超过999.输出的面积和周长保留小数二位.
利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为空,值不得超过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
以上经上机调试成功.
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
以上经上机调试成功.