با سلام.
برنامه ای دارم که از 1 تا 100عدد تصادفی در آرایه ای 100 عضوی تولید می کند.بیشتر مواقع پیش می آید که این اعداد تکراری هستند. چگونه می توان از تکراری شدن داده ها در این آرایه 100 عضوی جلوگیری کرد؟
کد زبان C++ بدون این مشکل:
long Num(void)
{
long num=0, tmpو nums[4];
int c=0;
bool Find;
while( c<4)
{
Find = false;
tmp = random(9)+1;
for( int i=0; i<c && !Find; i++)
if( nums[i]==tmp) Find=true;
if( !Find){
nums[c] = tmp;
num = num*10+tmp;
C++;
}
}
retun num;
}
کد من در زبان VB6 که مشکل تکراری بودن را دارد:
Dim A(1 To 100) As Integer
Private Sub cmdInput_Click()
Randomize
For i = LBound(A) To UBound(A)
A(i) = UBound(A) * Rnd + LBound(A)
Next
End Sub
من این کد را برای VB6 نیاز دارم. برای آرایه ای به نام A(1 to 100)
با تشکر.