Question

VB作业 作业：输入圆的半径，计算圆面积和圆周长。计算结果数据类型为单精度型。

作业：输入圆的半径，计算圆面积和圆周长。计算结果数据类型为单精度型。
提示：可用两种方法完成：
①方法1：在窗体上画二个标签，二个文本框。二个命令按钮。设计应用程序界面如图4.2。在文本框1中输入半径值，计算圆面积值放入文本框2中，圆周长值放入标签2中。

②方法2：通过InputBox函数获得圆半径的值，运算结果使用MsgBox语句输出。 我要详细过程！！打得好的分全给你！！！！！分数不是问题
大哥们 我在线等中.....！！！！急急急

Answer 1

①方法1：
Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single

p = 3.1415 '定义PAI的值
r = Val(Text1)
s = p * r ^ 2 '面积公式
c = 2 * p * r '周长公式

Label2.Caption = c '标签2输出周长结果
Text2 = s '文本框2输出面积结果

End Sub

②方法2

Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single

p = 3.1415 '定义PAI的值
r = InputBox("请输入一个圆的半径", "输入", 0) '获取输入值
s = p * r ^ 2 '面积公式
c = 2 * p * r '周长公式

MsgBox ("圆的面积为：" & s & "圆的周长为：" & c) '输出结果

End Sub

Answer 2

①方法1：
Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single

p = 3.1415 '定义周长率的值
If Text1.Text = "" Then'判断是否输入半径
MsgBox "请输入圆的半径！"
Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Text1.Text) Then'判断是否输入数字
MsgBox "请输入数字"
Text1.SetFocus
Exit Sub
End If
r = Val(Text1.Text)
s = p * r ^ 2 '面积公式
c = 2 * p * r '周长公式

Text2 = s '文本框2输出面积结果
Label2.Caption = c '标签2输出周长结果

End Sub

②方法2

Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single

p = 3.1415 '定义周长率的值
r = InputBox("请输入一个圆的半径", "输入", 0) '获取输入值

s = p * r ^ 2 '面积公式
c = 2 * p * r '周长公式

MsgBox ("圆的面积为：" & s & "圆的周长为：" & c) '输出结果

End Sub