【加試題】小柯編寫了一個多位數乘法的VB程序，運行界面如圖所示。文本框Text1中輸入一個小于等于1000位的被乘數，文本框Text2中輸入1位乘數，點擊“開始計算”按鈕Command1后，在文本框Text3中顯示計算結果。
實現上述功能的VB程序如下，但加框處代碼有錯，請改正。
Private Sub Command1_Click（　　）
Dim d（1 To 1001）As Integer
Dim strl As String,str2 As String
Dim i As Integer,n As Integer,k As Integer,s As Integer
       strl=Text1．Text
       n=Len（strl）
       For i=1 To n
             d（i）=Val（Mid（strl,i,1））
       Next i 
       s=0's表示進位
       k=Val（Text2．Text）
       For i=n To 1 Step-1
'①
                 s=d（i）\10
                 d（i）=d（i） Mod 10
       Next i
If s＜＞0 Then str2=Trim（Str（s））    Else str2=““'Trim函數用來刪除字符串首尾的空格
For i=1 To n 

       Next i
Text3．Text=str2
End Sub。