【单选题】

下列程序共执行了______次循环。

Private SubCommand1_Click ()
Dim intsumAs Integer
Dim iAS Integer
Dim jAs 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
A．14
B．15
C．14
D．13