vba编程:利用随机函数产生10个二位正整数,然后将这10个数从小到大进行排序,并将排序结果显示出来

Sub 随机产生10个二位正整数_芐雨()
    Dim arr, din, d As Object
    Set d = CreateObject("scripting.dictionary")
    Randomize
    Do
        d(Int(Rnd() * 90 + 10)) = ""
    Loop Until d.Count = 10
    For i = 1 To 10
        dmin = Application.Min(d.keys)
        If Len(arr) = 0 Then
            arr = dmin
        Else
            arr = arr & "," & dmin
        End If
        d.Remove (dmin)
    Next
    MsgBox arr
End Sub

是不是这样？这是10个不重复的2位正整数

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vvv73ryxfjjjyxy2fyx.html