A-A+

阅读程序： Option Base 1 Private Sub Form_Click() D

2022-08-06 05:51:25 问答库阅读 176 次

问题详情

阅读程序： 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=1 TO 10 If arr(i)/3=arr(i)3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．13
B．14
C．27
D．15请帮忙给出正确答案和分析，谢谢！

参考答案

正确答案：C
解析：首先用Array函数为数组arr赋值10个元素数值。If语句表明当arr(i)为3的倍数时，就把该arr(i)加到变量Sum上，Sum的初始值为0。故本题的正确答案为：3+9+15，C项为正确答案。