主观

有如下程序:

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+arr(i)

End If

Next I

MsgBox Sum

End Sub

程序运行后,单击窗体,消息框的输出结果为______。

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服