在VB编程中，求平方根可以使用`Math.Sqrt`函数。以下是一些示例代码：
计算单个数的平方根
```vb
Dim result As Double
result = Math.Sqrt（4）
MsgBox result ' 结果为2
```
计算100到110之间整数的平方根
```vb
Dim a As Integer
Dim b As Double
For a = 100 To 110
b = Math.Sqrt（a）
Print b
Next
```
在窗体加载时计算平方根并显示结果
```vb
Private Sub Form_Load（）
Dim num As Double = 25
Dim sqrtNum As Double = Math.Sqrt（num）
MsgBox sqrtNum ' 结果为5
End Sub
```
通过输入框获取数值并计算平方根
```vb
Private Sub Form_Click（）
Dim strNumber As String
strNumber = InputBox（"输入一个数"）
Dim result As Double = Math.Sqrt（CDbl（strNumber））
MsgBox "输入的数是： " & strNumber & vbCrLf & "平方根是： " & result
End Sub
```
使用自定义函数计算平方根
```vb
Function Sqr（ByVal number As Double） As Double
Return Math.Sqrt（number）
End Function
' 示例调用
Dim result As Double
result = Sqr（25）
MsgBox result ' 结果为5
```
这些示例展示了如何在VB中计算单个数的平方根、遍历一定范围内整数的平方根、在窗体加载时计算平方根并显示结果，以及通过输入框获取数值并计算平方根。建议在实际应用中根据具体需求选择合适的方法。