作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 12:22:23
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