填空题

有如下程序：
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 Then
Sum=Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后，单击窗体，消息框的输出结果为______。

【参考答案】

27

<上一题目录下一题>

热门试题

填空题

标准模块以函数过程(以______开头)和子过程(以Sub开头)为单元集合存储。

填空题

阅读下面的程序段： sum=0 for i=1 to 3 for j=i to 4 for k=j to 5 sum=sum+l next k next j next i 执行上面的三重循环后，sum的值为______。