问题
填空题
有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,sumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i) /3=arr(i) \3 Then Sum=Sum+arr(i) End IfNext iMsgBox Sum End Sub 程序运行后,单击窗体,消息框的输出结果为______。
答案
参考答案:L
解析: 本题考查VBA中循环的知识。对于这种循环结构,首先看条件判断在循环体的前面还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环:在While循环中条件为True时执行循环体,条件为False时退出循环,这一点要注意区分清楚。本题是一个后判断条件的While循环,在循环中首先利用整除10去掉a的最后一位,然后判断当前的a的个位数上的值是否满足循环条件,直至a=12时由于个位数为2不满足继续循环的条件从而退出循环。