Observe o seguinte trecho de código:

1. Dim a As Integer
2. Dim i As Integer
3. Dim j As Integer
4. i=1
5. j=1
6. a=0
7. While(i<5)
8. While(j<2)
9. j=i+1
10. If (j Mod 3=0) Then
11. a=a+j
12. End If
13. End While
14. i=i+1
15. End While
16. MsgBox("a=" & a)

Considerando o trecho de código acima, assinale a alternativa correta.