在Visual Basic（VB）中编程计算圆的半径和面积，可以通过以下步骤实现：
打开VB并创建一个新的工程 。在窗体上添加一个按钮
，并设置其文本为“单击输入半径”。
双击按钮，在弹出的代码窗口中输入以下代码：
```vb
Private Sub Command1_Click（）
Dim r As Double
r = InputBox（"请输入半径：", "输入半径"）
If IsNumeric（r） Then
Print "圆的面积是： " & （r ^ 2 * 3.14159）
Else
MsgBox "请输入一个合法的数值。"
End If
End Sub
```
这段代码首先声明了一个双精度变量`r`，然后通过`InputBox`函数弹出一个对话框让用户输入半径。如果输入的值是合法的数值（即可以转换为数字），则计算并打印出圆的面积；否则，会弹出一个消息框提示用户输入一个合法的数值。
代码解释：
`Dim r As Double`：声明一个双精度变量`r`用于存储半径。
`r = InputBox（"请输入半径：", "输入半径"）`：弹出一个输入框，提示用户输入半径，并将输入的值赋给变量`r`。
`If IsNumeric（r） Then`：检查变量`r`是否为合法的数值。
`Print "圆的面积是： " & （r ^ 2 * 3.14159）`：如果`r`是合法的数值，计算并打印圆的面积。
`Else`：如果`r`不是合法的数值，弹出一个消息框提示用户。
其他方法：
除了上述方法外，还可以通过以下方式实现半径的输入和圆的面积计算：
使用函数
```vb
Function Cale（Radius As Single） As Single
Cale = Radius ^ 2 * 3.14
End Function
Private Sub Command1_Click（）
Dim r As Single
r = InputBox（"请输入半径：", "输入半径"）
If IsNumeric（r） Then
Print "圆的面积是： " & Cale（r）
Else
MsgBox "请输入一个合法的数值。"
End If
End Sub
```
使用多个控件
可以使用一个标签控件用于输入半径，然后通过计算控件显示结果。
示例代码（使用多个控件）：
```vb
Private Sub Form_Load（）
Label1.Text = "输入半径："
TextBox1.Text = ""
Button1.Text = "计算面积"
Button1.Enabled = False
End Sub
Private Sub Button1_Click（）
Dim r As Double
If IsNumeric（TextBox1.Text） Then
r = Val（TextBox1.Text）
Button1.Enabled = False
Label2.Text = "圆的面积是： " & （r ^ 2 * 3.14159）
Else
MsgBox "请输入一个合法的数值。"
End If
End Sub
```
在这个示例中，`Label1`用于提示用户输入半径，`TextBox1`用于输入半径值，`Button1`用于触发计算操作，`Label2`用于显示计算结果。
通过以上方法，你可以在VB中实现半径的输入和圆的面积计算。选择哪种方法取决于你的具体需求和偏好。