帮我看看这个程序有什么问题?vb的

Function chuli(ByVal old)
chuli = "1"
Do While old > 1
For i = 2 To old
If old Mod i = 0 Then
chuli = chuli & "*" & i
old = old / i
End If
Next
Loop
End Function

Private Sub Command1_Click()
For old = 10 To 20
Print chuli(old)
Next
End Sub

Function chuli(ByVal old)
chuli = old & "=1" '改一下初值
Do While old > 1
For i = 2 To old
If old Mod i = 0 Then
chuli = chuli & "*" & i
old = old / i
If old < i Then Exit For '加一句
i = i - 1 '加一句
'Exit For 不要这句
End If
Next '少了一句，加上
Loop '少了一句，加上
End Function

Private Sub Command1_Click()
For old = 10 To 20
Print chuli(old) 'i改为old
Next
End Sub

具体不清楚你要做什么
不过要改成这样
Function chuli(ByVal old)
chuli = &qu