单选题 设有如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i=1 To 10
i=i+j
j=j+1
Next i
End Sub
程序运行后，单击命令按钮Command1，循环执行的次数为