在VB编程中，求一个数的所有约数可以通过以下步骤实现：
输入一个正整数
使用`InputBox`函数获取用户输入的正整数。
遍历从1到该数
使用`For`循环遍历从1到输入数的所有整数。
在循环中，检查当前整数是否能够整除输入数。
如果能够整除，则说明该整数是输入数的约数。
输出约数
将找到的约数输出到窗体或控制台。
```vb
Option Explicit
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim sum As Integer
Dim num As Integer
' 获取用户输入的正整数
num = Val(InputBox("请输入一个正整数: "))
' 初始化约数之和
sum = 0
' 遍历从1到输入数的所有整数
For i = 1 To num
' 检查当前整数是否能够整除输入数
If num Mod i = 0 Then
' 如果能够整除，则累加到约数之和中
sum = sum + i
End If
Next i
' 输出约数之和
Text1.Text = "输入数的所有约数之和为: " & sum
End Sub
```
性能优化建议
当需要求一个大数的约数时，上述方法可能会比较耗时。为了提高性能，可以考虑以下优化方法：
只遍历到该数的平方根
因为如果一个数`a`能够整除另一个数`b`，并且`a`大于`b`的平方根，那么`a`必然对应着一个小于`b`的约数。因此，只需要遍历到`sqrt（num）`即可找到所有约数。
利用数学性质
对于每个找到的约数`m`，其对应的约数`num / m`也必然是`num`的约数。这样可以减少遍历的次数。
```vb
Option Explicit
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim sum As Integer
Dim num As Integer
' 获取用户输入的正整数
num = Val(InputBox("请输入一个正整数: "))
' 初始化约数之和
sum = 0
' 遍历从1到输入数的平方根
For i = 1 To Int(Sqr(num))
' 检查当前整数是否能够整除输入数
If num Mod i = 0 Then
' 如果能够整除，则累加到约数之和中
sum = sum + i
' 如果i不等于num/i，则累加对应的约数
If i <> num / i Then
sum = sum + num / i
End If
End If
Next i
' 输出约数之和
Text1.Text = "输入数的所有约数之和为: " & sum
End Sub
```
通过这些步骤和优化，可以有效地求出一个数的所有约数，并且提高程序的运行效率。