单项选择题

下列程序共执行了______次循环。
Private Sub Command1_ Click ()
Dim intsum As Integer
Dim i AS Integer
Dim j As Integer
i = 1
j = 1
do
do
intsum = intsum +
j =j+2
Print j;
Loop until j ＞3
i = i+1
Loop until i＞17
Print
Print intsum
End Sub