【单选题】设有命令按钮Command1的单击事件过程,代码如下: Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd *100) Next For Each arritem In a If arritem mod 7=0 Then Print arritem; If arritem>90 Then Exit...
【单选题】设有命令按钮 Command1 的单击事件过程,代码如下: Option Base 1 Private Sub Command1_Click () Dim a ( 30 ) As Integer For i=1 To 30 a ( i ) =Int ( Rnd*100 ) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrIte...