VB編程求代碼。 編程求解，***有幾組i.j.k符合算式ijk＋kji＝1534，其中i.j.k是0

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim n As Integer

n = 0

For i = 0 To 9

For j = 0 To 9

For k = 0 To 9

If (i * 100 + j * 10 + k) + (k * 100 + j * 10 + i) = 1534 Then

Print i, j, k

n = n + 1

End If

Next k

Next j

Next i

Print n