问题 填空题

设有命令按钮Command1的单击事件过程,代码如下,请填空。 Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i) =i Next For Each arrItem______a If arrItem Mod 7=0 Then Print arrItem; If arrItem>90 Then Exit For Next End Sub

答案

参考答案:In

解析: 本题考查了For Each…Next语句。与For…Next类似,但For Each…Next专门用于数组或对象“集合”,其一般格式为: For Each 成员 In 数组 循环体 [Exit For] Next[成员]

判断题
填空题