填空题 执行下面的程序，单击Command1按钮时，列表框中显示的第一行是 1，第二行是 2，第三行是 3。
Private Sub Command1_Click()
Dim x As Integer, k As Integer
x=483
k=2
Do Until x＜=1
If x Mod k=0 Then
x=x/k
List1.AddItem Str(k)
Else
k=k+1
End If
Loop
End Sub