小编You*_*der的帖子

我正在尝试创建一个代码，生成 10-30 范围内的随机数，但确保没有重复的数字。NumArray(Count) = Count当我运行代码时，它显示“下标超出范围” 。

'Make an array of completely sorted numbers
FOR Count = 10 TO 30
    NumArray(Count) = Count  
NEXT Count  
RANDOMIZE TIMER  
FOR Count = 10 TO 30
    Number = (RND * (31 - Count)) + 10
    PRINT #1, NumArray(Number)
    FOR Counter = Number TO 30 - Count
        NumArray(Counter) = NumArray(Counter + 1)
    NEXT Counter 
NEXT Count

这实际上不是我的代码。为我的作业复制并粘贴。