8.9题怎么用VB做

2025-03-05 09:27:46

推荐回答（2个）

回答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

回答2：

什么时候需要呢？什么时候需要呢？什么时候需要呢？