在Visual Basic（VB）中编写一个乘法口诀程序，可以使用嵌套循环来实现。以下是一个简单的示例代码，展示了如何创建一个9x9的乘法口诀表：
```vb
Private Sub Command1_Click（）
' 清除之前的输出
Form1.Clear
' 设置标题和尺寸
Form1.Caption = "九九乘法表"
Form1.Height = 615
Form1.Width = 1200
Form1.Top = 3600
Form1.Left = 8760
Form1.BackColor = vbBlack
Form1.ForeColor = vbWhite
Form1.FontSize = 15
' 打印表头
For i = 1 To 9
Form1.Print Tab（（i - 1） * 9 + 1）； i； "×"； j； "="； i * j； vbCrLf
Next i
End Sub
```
代码解释：
清除之前的输出：
使用`Form1.Clear`清除窗体上的所有内容。
设置标题和尺寸：
设置窗体的标题、高度、宽度、位置以及背景色和前景色。
打印表头：
使用两个嵌套的`For`循环来打印乘法口诀表的表头。外层循环控制行数，内层循环控制每行的列数。`Tab`函数用于设置每个数字和符号之间的缩进。
运行结果：
运行上述代码后，会显示一个9x9的乘法口诀表，如下所示：
```
1×1=1
1×2=2 2×2=4
1×3=3 2×3=6 3×3=9
1×4=4 2×4=8 3×4=12 4×4=16
1×5=5 2×5=10 3×5=15 4×5=20 5×5=25
1×6=6 2×6=12 3×6=18 4×6=24 5×6=30 6×6=36
1×7=7 2×7=14 3×7=21 4×7=28 5×7=35 6×7=42 7×7=49
1×8=8 2×8=16 3×8=24 4×8=32 5×8=40 6×8=48 7×8=56 8×8=64
1×9=9 2×9=18 3×9=27 4×9=36 5×9=45 6×9=54 7×9=63 8×9=72 9×9=81
```
这个程序可以根据需要进行调整和扩展，例如改变字体大小、颜色或添加其他功能。