在VB（Visual Basic）中计算圆的半径，你可以按照以下步骤进行：
定义常量π
可以定义一个常量来存储π的值，例如 `Const PI As Double = 3.14159`。
获取用户输入
使用一个文本框（TextBox）来获取用户输入的圆的半径值。
计算半径
根据用户输入的周长或面积，使用相应的公式计算半径。
如果已知周长 `C`，则半径 `r` 的计算公式为 `r = C / （2 * PI）`。
如果已知面积 `A`，则半径 `r` 的计算公式为 `r = Sqrt（A / PI）`。
显示结果
将计算得到的半径值显示在另一个文本框中。
```vb
Private Sub Button1_Click（）
' 定义常量π
Const PI As Double = 3.14159
' 获取用户输入的周长
Dim C As Double = TextBox1.Text
' 检查输入是否为空
If C = "" Then
MsgBox（"请输入圆的周长"）
Return
End If
' 计算半径
Dim r As Double = C / （2 * PI）
' 显示结果
TextBox2.Text = r
End Sub
```
在这个示例中，`TextBox1` 用于输入圆的周长，`TextBox2` 用于显示计算得到的半径。程序首先定义了常量 `PI`，然后获取用户输入的周长值，并检查输入是否为空。如果输入有效，程序将计算半径并将其显示在 `TextBox2` 中。
如果你希望同时支持通过输入周长和面积来计算半径，可以扩展程序以包含相应的输入和计算逻辑。