基于 VB6.0 计算圆的周长与面积
提供基于 VB6.0 的代码示例，用于计算给定半径的圆的周长和面积。
Private Sub Command1_Click()
Dim radius As Double, circumference As Double, area As Double
' 获取用户输入的半径值
radius = Val(Text1.Text)
' 计算周长
circumference = 2 * 3.14159 * radius
' 计算面积
area = 3.14159 * radius * radius
' 显示结果
MsgBox "周长：" & circumference & vbCrLf & "面积：" & area
End Sub
代码说明:
- 程序首先声明了三个 Double 类型的变量：
radius用于存储圆的半径，circumference用于存储圆的周长，area用于存储圆的面积。 - 使用
Val()函数将用户在文本框Text1中输入的字符串转换为数值，并将其存储在radius变量中。 - 根据圆的周长和面积公式计算出对应的值，并将结果分别存储在
circumference和area变量中。 - 使用
MsgBox函数将计算结果显示给用户。
注意： 圆周率使用了近似值 3.14159，您可以根据需要使用更精确的值。
文件大小：4.26KB
评论区