輸入一個(gè)正整數(shù)N，尋找一個(gè)比N大且最接近N的整數(shù)，要求這個(gè)數(shù)的每位數(shù)字之和與N的每位數(shù)字之和相同。例如N=1231，則滿足上述條件的最接近N的整數(shù)為1240．為了解決此問題，設(shè)計(jì)算法如下：
①?gòu)挠彝髵呙?，找第一個(gè)非0數(shù)字，將改數(shù)字減1后移到最后面。
②繼續(xù)掃描，找第一個(gè)非9的數(shù)字，若遇到，將該數(shù)字加1，結(jié)束；若遇到9，將其移到最后面，重復(fù)執(zhí)行②。
③若掃描完沒有加1，則最前面補(bǔ)“1“。
例如：N=199000，按照上述算法的處理過程是：199000→190008→100089→200089，滿足條件的最接近的數(shù)是200089。
（1）若輸入N=99900，則滿足條件的最接近的數(shù)為

100899

100899

。
（2）實(shí)現(xiàn)上述功能的VB代碼如下，請(qǐng)?jiān)跈M線處填入適當(dāng)?shù)拇a：
Private Sub Command1_Click （　?。?br />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）
'將數(shù)字串n從右往左依次存儲(chǔ)在數(shù)組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對(duì)應(yīng)步驟①，step2對(duì)應(yīng)現(xiàn)步驟②
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
'最前面補(bǔ)“1“
If step2 Then
length=length+1
a（length）=“1“
End If
'輸出結(jié)果，代碼略。
End Sub