vb编程 随机生成20个【1,100】以内的整数,以每行五个输出其中的奇数,并统计输出奇数的个数.

Private Sub Command1_Click()
    Cls
    Dim r(19) As Integer
    Dim i As Integer
    Randomize
    For i = 0 To 19
        r(i) = Int(Rnd * 100) + 1
    Next
    Dim Count As Integer
    For i = 0 To 19
        If r(i) Mod 2 = 1 Then
            Count = Count + 1
            If Count Mod 5 = 1 Then Print
            Print r(i),
        End If
    Next
    Print
    Print "Count:", Count
End Su