填空题

有如下程序：
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
<上一题 目录 下一题>
热门 试题

填空题
在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10,10)As Integer Dim i,j As Integer For i=2 To 4 For j=3 To 6 a(i,j)=i*j Next j Next i Text1.Text=a(2,3)+a(4,6) End 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的值为______。
相关试题