有如下程序： Option Base 1 Private SUb Form_Click() Dim arr,sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1l To 10 If arr(i)／3=arr(i)＼3 Then Sum=Sum+arr(i) End If Next i MsgBox Sum End Sub 程序运行后，单击窗体，消息框的输出结果为 1。
  • 1、
【正确答案】 1、正确答案：27    
【答案解析】解析：本题考查vBA程序分析的知识。本题的关键在于在循环中哪些数组元素被加到了累加和中去。根据If语句的条件可以看出，凡是能被3整除的数组元素被累加，所以最后输出的值为3+9+15=27。