填空题

下列程序的输出结果是______。
Private Sub Command1_Click()
Dim arr(1To 10)
For i＝1 To 10
arr(i)＝i
Next i
For Each i In arr()
arr(i)＝arr(i)*2+1
Next i
MsgBox arr(7)
End Sub

【参考答案】

O

<上一题目录下一题>

热门试题

填空题

下面VBA程序段运行时，内层循环的循环总次数是______。 For m＝0 To 7 step 3 For n＝m-1 To m+1 Next n Next tm

填空题

如果要将某表中的若干记录删除，应该创建______查询。