【单选题】设有命令按钮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...
【单选题】编写如下程序代码: Option Explicit Private Sub Form_Click () Dim x As Variant Dim i As Variant x = Array ( 50, 27, 69, 80, 45 ) For Each i In x If i Mod 2 = 0 Then Print i End If Next i End Sub 以下叙述中正确的是 ( ) 。
【单选题】设有命令按钮 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...