VB里的，指出下列程序段的输出结果

Dim b As Boolean
Dim n%, x%, i%, y%
n = 345
x = 10000
i = 5
y = n \ x
b = True
If y < 1 Then
b = False
x = x \ 10
i = i - 1
End If
If Not b Then GoTo 10
MessageBox.Show("nb=" & Format(i, "0000"))

---

0004

---