随机产生K个不相同的整数，显示最大数

ゝ一纸荒年。 2022-02-01 05:43 222阅读 0赞

分析一下这个题，一.产生K个不相等的整数。二.排序，找出其中最大的。三.显示。具体来讲呢主要要注意这么几个问题，1.产生随机数，定义数组，依次产生每个数。2.处理不重复问题，首先你要胆儿大，假设数组产生的第一个数就是最大的，然后依靠循环挨个和之后的数组中的每个数比较，得出最大的数。比较过程中，就会出现两种情况，一是没有出现重复的，保存这个数，继续顺利地进行比较，得出结果，二是出现了重复的，那就得废掉这个数，重新产生一个，保存新产生的不重复的数，然后继续进行。值得一提的是这里会有一个标杆（flag），来告诉你重复了怎么办，不重复怎么办，这个是很重要的。

代码如下：

Dim a() As Long

Private Sub Form\_Click()  
    Dim k As Integer, m As Integer, n As Integer  
    k = Val(InputBox("请输入k"))       ’产生K个整数  
    m = Val(InputBox("请输入m"))         ‘整数的范围，m为下界  
    n = Val(InputBox("请输入n"))        ’n为上界  
    
    ReDim a(k - 1)  
    temp = Int(m + (n - m + 1) \* Rnd())         ‘随机产生一个数，并赋给了数组的第一个数a(0)  
    c= temp  
    a(0) = c  
    Print a(0)  
     
    '处理第二个以后可能重复的数  
    For i = 1 To k - 1  
        c = Int(m + (n - m + 1) \* Rnd())  
        flag = 1    '假设不重复  这里的flag就是重要的标杆！  
          
        For t = 0 To i - 1          ’这里之前得出的最大数和到现在为止产生的i个数比较  
            If c = a(t) Then  
                i = i - 1   '废掉这个数，重新产生一个数  
                flag = 0  
                Exit For  
            End If  
        Next t  
         
        If flag = 1 Then     '不重复的数，保存到数组中  
            a(i) = c  
            Print c               ‘显示在屏幕上  
        End If  
         
    Next i  
End Sub