透過九九乘法表來練習如何使用VB雙迴圈。以下程式碼對VBA，VB，VB.net適用

'九九乘法表

Dim excel As New excel

Dim ws = excel.activesheet

ws.清除內容()

ws.清除背景色()

Dim r, c, t As Integer

Dim 開始行, 開始列 As Integer

開始行 = 2

開始列 = 3

ws.cells(開始行, 1) = "樣式1:先行後列"

For c = 1 To 9

For r = c To 9

t = r * c

ws.cells(r + 開始行, c + 開始列 - 1) = c & "*" & r & "=" & t

Next

Next

開始行 = 12

ws.cells(開始行, 1) = "樣式2:先列後行"

For r = 1 To 9

For c = r To 9

t = r * c

ws.cells(r + 開始行, c + 開始列 - 1) = r & "*" & c & "=" & t

Next

Next

開始行 = 22

ws.cells(開始行, 1) = "樣式3：對照式"

For c = 1 To 9

For r = 1 To 9

t = r * c

If r >= c Then ws.set單元格背景色(r + 開始行, c + 開始列 - 1, Color.Green)

ws.cells(r + 開始行, c + 開始列 - 1) = r & "*" & c & "=" & t

Next

Next