（加试题）一个正整数（非素数）可以表示成它的质因子（“1”与其本身除外）的乘积。给出任一个整数N，求出它所有的质因子以及每个因子出现的次数,并显示乘积表达式。例如：整数120=2×2×2×3×5，所以它的质因子是2,3,5，次数分别是3次，1次，1次。
用Visual Basic编写一个程序求质因子，功能如下：在文本框Text1中输入一个数，单击“计算”命令按钮Command1，在列表框中显示该数的质因子及相应的次数，并显示乘积表达式。程序运行时的界面如图所示。

实现上述功能的VB程序如下，但划线处代码有错，请改正：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer '数组a存放该整数的质因子出现的次数
Dim i As Integer, m As Integer, n As Integer, k As Integer, s As String
n = Val(Text1.Text)
m = n
k = Int(Sqr(n))
For i = 2 To k
a(i) = 0
Next i
For i = 2 To k
Do While n Mod i = 0
 a(k) = a(k) + 1 '①
n = n \ i
If n = 1  Then s = s + Str(i) + " ×" Else s = s + Str(i): Exit For   '②
Loop
Next i
List1.AddItem "质因子" & "   " & "次数"
For i = 2 To k
If a(i) <> 0 Then List1.AddItem Str(i) & " " & Str(a(i))
Next i
List1.AddItem Str(m) + "=" + s
End Sub
加框①处应改为：________；加框②处应改为：________。