Question

7.8题用VB怎么做？谢谢你们啦！

Answer 1

Sub s()
    Dim arr(18)
    Randomize
    For i = 1 To 10000
        k = 0
        For j = 1 To 3
            k = k + Int(Rnd * 6 + 1)
        Next
        arr(k) = arr(k) + 1
    Next
    For i = 0 To 2
        m = 0
        For j = 3 To 18
            If arr(j) > m Then
                m = arr(j)
                arr(i) = j
            End If
        Next
        arr(arr(i)) = 0
    Next
    MsgBox "次数最高三个数为：" & arr(0) & "," & arr(1) & "," & arr(2)
End Sub