【加试题】小柯编写了一个多位数乘法的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。