有如下程序： Option Base 1 Private Sub Form_Clic

问题填空题

有如下程序： Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 ThenSum=Sum+arr(i) End If Next i MsgBox Sum End Sub 程序运行后，单击窗体，消息框的输出结果为______。

答案

参考答案：27

解析：本题考查VBA程序分析的知识。本题的关键在于在循环中哪些数组元素被加到了累加和中去。根据If语句的条件可以看出，凡是能被3整除的数组元素被累加，所以最后输出的值为3+9+15=27。