輸入一個正整數N，尋找一個比N大且最接近N的整數，要求這個數的每位數字之和與N的每位數字之和相同。例如N=1231，則滿足上述條件的最接近N的整數為1240．為了解決此問題，設計算法如下：
①從右往左掃描，找第一個非0數字，將改數字減1后移到最后面。
②繼續掃描，找第一個非9的數字，若遇到，將該數字加1，結束；若遇到9，將其移到最后面，重復執行②。
③若掃描完沒有加1，則最前面補“1“。
例如：N=199000，按照上述算法的處理過程是：199000→190008→100089→200089，滿足條件的最接近的數是200089。
（1）若輸入N=99900，則滿足條件的最接近的數為

100899

100899

。
（2）實現上述功能的VB代碼如下，請在橫線處填入適當的代碼：
Private Sub Command1_Click （　　）
Dim a（1 To 50）As String
Dim n As String,step1 As Boolean,step2 As Boolean
Dim i As Integer,length As Integer,zero As Integer,cnt As Integer
n=Text1．Text
length=Len（n）
'將數字串n從右往左依次存儲在數組a中。
For i=1 To length
a（i）=①

Mid（n,length-i+1，1）

Mid（n,length-i+1，1）

Next i
step1=True：step2=False'step1對應步驟①，step2對應現步驟②
zero=0：cnt=1
For i=1 To length
If step1=True Then
If a（i）=“0“Then
zero=zero+1
Else
 ②

a（i）=a（i）-1

a（i）=a（i）-1

If zero＞0 Then
a（cnt）=a（i）
a（i）=“0“
End If
step1=False
step2=True
End If
ElseIf step2=True Then
If a（i）=“9“Then
If zero=0 Then
t=a（cnt+1）：a（cnt+1）=a（cnt）：a（cnt）=t
cnt=cnt+1
If i＜＞cnt Then
a（i）=a（i-1）
End If
Else
  ③

a（cnt+1）=a（cnt）

a（cnt+1）=a（cnt）

a（cnt）=“9“
a（i）=“0“
cnt=cnt+1
End If
Else
a（i）=a（i）+1
step2=False
Exit For
End If
End If
Next i
'最前面補“1“
If step2 Then
length=length+1
a（length）=“1“
End If
'輸出結果，代碼略。
End Sub