一個正整數（非素數）可以表示成它的質因子（“1”與其本身除外）的乘積。給出任一個整數N，求出它所有的質因子以及每個因子出現的次數，并顯示乘積表達式。例如：整數120=2×2×2×3×5，所以它的質因子是2，3，5，次數分別是3次，1次，1次。
用Visual Basic編寫一個程序求質因子，功能如下：在文本框Text1中輸入一個數，單擊“計算”命令按鈕Command1，在列表框中顯示該數的質因子及相應的次數，并顯示乘積表達式。程序運行時的界面如圖所示。

實現上述功能的VB程序如下，但加框處代碼有錯，請改正：
Private Sub Command1_Click （　?。?br />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
加框①處應改為：

a（i）=a（i）+1

a（i）=a（i）+1

；加框②處應改為：

n＜＞1

n＜＞1

。