[单项选择题] 下列程序共执行了______次循环。
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 intsum
End Sub
A.14
B.15
C.14
D.13
正确答案:A
参考解析:本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。


![[单项选择题] 下列程序共执行了 [单项选择题] 下列程序共执行了](http://www.mshxw.com/aiimages/31/480577.png)
