用vb写圆的面积计算程序

以下是用 VB 编写的计算圆面积的程序：

Private Sub btnCalculate_Click()
Dim radius As Double
Dim area As Double

radius = CDbl(txtRadius.Text)
area = 3.14 * radius * radius

lblArea.Caption = "圆的面积为：" & area
End Sub

请注意，此程序假定用户已在文本框 txtRadius 中输入了圆的半径，并且在单击按钮 btnCalculate 后计算圆的面积。