下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1

admin2013-04-11 52

问题下列程序共执行了______次循环。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 intsumEnd Sub

选项 A、14
B、15
C、14
D、13

答案A

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

转载请注明原文地址:https://kaotiyun.com/show/usQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类