问题
单项选择题
下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integeri = 1j = 1do dointsum = intsum +j =j+2Print j; Loop until j ＞3 i = i+1Loop until i＞17PrintPrint intsumEnd Sub
A．14
B．15
C．14
D．13
答案
参考答案：A
解析： 本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。