求打神帮忙回答下面连接的问题必有重谢！拜托了！

更新时间2019-06-14 06:28:59

https://wenda.so.com/q/1560221091612183

文本程序如下，其它的看原贴

Dim a(10), x As Integer

Private Sub Command1_Click()

  Randomize

  For i = 0 To 9

    a(i) = Int(Rnd * 100) '0-99随机数10个

    Print a(i);

 

  Next

  Print

End Sub

 

Private Sub Command2_Click()

  Dim c As Integer, d As Integer

 

  For i = 0 To 9

    If a(i) Mod 2 = 0 Then

       c = c + 1

       Else

       d = d + 1

    End If

  Next

    Print "奇数:" + Str(d)

 

    Print "偶数:" + Str(c)

 

End Sub