在Visual Basic（VB）中，可以使用`Math.Sqrt`函数来计算一个数的平方根。以下是一个简单的示例代码，演示如何在VB编程中使用`Math.Sqrt`函数计算一个数的平方根：
```vb
Imports System
Module Module1
Sub Main（）
Dim num As Double = 16
Dim sqrtNum As Double = Math.Sqrt（num）
Console.WriteLine（"The square root of " & num & " is: " & sqrtNum）
Console.ReadLine（）
End Sub
End Module
```
在这个示例中，我们使用`Math.Sqrt`函数来计算数字16的平方根。计算结果为4，然后将其输出到控制台。需要注意的是，`Sqrt`函数返回的结果是一个`Double`类型的值，如果需要将其转换为整数类型，可以使用整数转换函数（如`CInt`）进行类型转换。
如果你需要计算一个范围内所有整数的平方根，可以使用循环来遍历这些整数，并将每个整数作为参数传递给`Math.Sqrt`函数，然后将计算结果输出到控制台或其他输出设备中。以下是一个示例代码：
```vb
Private Sub Form_Load（）
Dim a As Integer
Dim b As Integer
For a = 100 To 110
b = Sqr（a）
Print b
Next
End Sub
```
在这个示例中，我们使用`Sqr`函数来计算100到110之间每个整数的平方根，并将结果输出到控制台。需要注意的是，由于`Sqrt`函数返回的是一个浮点数，因此我们需要将其转换为整数，以便输出整数的平方根。
此外，如果你需要编写一个更复杂的平方根计算程序，例如一个平方根生成器，你可以参考一些开源项目或示例代码，这些代码通常可以在网上找到。