[单项选择题] 下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer

[单项选择题] 下列程序共执行了______次循环。

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

A．14

B．15

C．14

D．13

A

本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。