产生10个不重复的随机数并排序、选最大

【效果展示】

【代码展示】

Dim c As Integer

Dim t As Integer
Dim flag As Integer
Dim a(9)  '拓展：可以申明动态数组a(k),通过inputbox自定义数组中的个数，注意要redim
Dim p As String

Private Sub Command1_Click()  '产生不重复的随机数事件

    Dim i As Integer
    p = ""
    Label1.Caption = ""
    

    a(0) = Int(100 * Rnd + 1)   

'产生[1,100]之间的随机整数。拓展:若产生[m,n]之间的随机整数，为Int((n-m)*Rnd+m+1),可以通过inputbox自定义m和n。

'第一个数不用考虑是否会重复，特殊情况特殊处理

    
    For i = 1 To 9       '从产生第二个数开始检查是否重复
        c = Int(100 * Rnd + 1)
        flag = 1                        '不重复，树标杆，用1标记不重复