1. 打开Visual Basic，新建一个标准EXE项目。
2. 在界面上建立两个标签，分别命名为“多位数分位显示”和“七位数”。
3. 创建七个文本框，分别命名为X, A, B, C, D, E, F。
4. 添加一个命令按钮，命名为“显示”。
5. 双击“显示”按钮，进入代码编辑器。
6. 在代码编辑器中输入以下代码：
```vb
Dim A1 As Integer
Dim A2 As Integer
Dim A3 As Integer
Dim A4 As Integer
Dim A5 As Integer
Dim Q As String
Dim W As Integer
Dim Z As Integer
Q = Text1.Text ' 假设输入的数字在Text1文本框中
W = Int（Q / 100000） ' 计算万位
A1 = Int（Z / 10000） ' 计算千位
Z = Q Mod 100000 ' 计算剩余部分
A2 = Int（Z / 1000） ' 计算百位
Z = Z Mod 1000 ' 计算剩余部分
A3 = Int（Z / 100） ' 计算十位
Z = Z Mod 100 ' 计算剩余部分
A4 = Int（Z / 10） ' 计算个位
Z = Z Mod 10 ' 计算剩余部分
A5 = Z ' 最后一位
' 将计算结果赋值给对应的文本框
A.Text = W.ToString
B.Text = A1.ToString
C.Text = A2.ToString
D.Text = A3.ToString
E.Text = A4.ToString
F.Text = A5.ToString
```
7. 运行程序，输入一个六位数，例如“123456”，在下面的文本框中将会显示分位结果。
这个程序通过取余和整除操作，逐步提取出输入数字的每一位，并将其显示在相应的文本框中。你可以根据需要修改代码中的变量名和控制结构，以适应不同的输入和输出需求。