K5VB程序综合题 多位数乘法 利用计算 中输入

小哥编写了一个多位数乘法的VB程序，运行界面如图所示。文本框Text1中输入一个小于等于1000位的被乘数，文本框Text2中输入1位乘数，点击“开始计算”按钮Command1后，在文本框Text3中显示计算结果。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Dim d（1 To 1001）As Integer
Dim str1 As String，str2 As String
Dim i As Integer，n As Integer，k As Integer，s As Integer
str1＝Textl．Text
n＝Len（str1）
For i＝l To n
d（i）＝Val（Mid（str1，i，1））
Next i
s＝0   s表示进位
k＝Val（Text2．Text）
For i＝n To 1 Step－1
d（i）＝d（i）*k  ①
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
str2＝Trim（Str（d（i）））＋str2  ②
Next i
Text3．Text＝str2
End Sub
（1）①处加框代码应改为______。
（2）②处加框代码应改为______。

本题考查多位数乘法算法知识。①从代码可以得知，数组第一位(i=1)表示被乘数的最高位（最左边），i=n表示数组的最低位（最右边）。标志处下一行是利用d(i)计算进位，下两行是利用d(i)计算除以10的余数，则d(i)的值除了d(i)*k还要加上之前的进位。②最终字符串str2的值是str2字符串从右边进行更新的值，而不是从左边更新。