在VB编程中，可以使用`Sqr`函数来计算平方根。以下是一个简单的示例，展示了如何在VB中计算一元二次方程的根，并输出结果：
```vb
Private Sub Command1_Click（）
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Double
' 输入方程的系数
a = InputBox（"请输入a的值：", "一元二次方程"）
b = InputBox（"请输入b的值：", "一元二次方程"）
c = InputBox（"请输入c的值：", "一元二次方程"）
' 计算判别式
d = b ^ 2 - 4 * a * c
' 判断方程的根的情况
If d < 0 Then
Print "该方程无实数解"
Else
' 计算两个根
e = （-b + Sqr（d）） / （2 ^ a）
f = （-b - Sqr（d）） / （2 ^ a）
Print "x1 = " & e & ", x2 = " & f
End If
End Sub
```
在这个示例中，`Sqr`函数用于计算平方根。`InputBox`函数用于从用户那里获取输入值。程序首先计算判别式`d`，然后根据判别式的值判断方程的根的情况，并输出结果。
如果你需要计算其他次方的根，可以使用相应的指数运算符。例如，计算三次方根可以使用`^`运算符，如下所示：
```vb
Private Sub Form_Load（）
Dim x As Double
x = InputBox（"请输入要开三次方的数值："）
MsgBox x ^ （1 / 3）
End Sub
```
在这个示例中，`x ^ （1 / 3）`表示计算`x`的三次方根。