قبل يومين، رأيت شخصًا يريد تجميع نظام اختبار في ذلك الوقت، واستخدمت الوظيفة العشوائية RND لفترة وجيزة.
من الناحية العملية، من الضروري بشكل عام استخراج أسئلة N بشكل عشوائي من قاعدة البيانات.
تعتمد جميع الرموز التالية على VBS؛
عادة ما تكتب هكذا
'إنشاء أرقام عشوائية غير متكررة الدالة rndarray(istart,iend,sum) dim arrayid(),i,j,blnre,temp,iloop,eloop تخليص المصفوفة (مجموع 1) أنا = 0 إيلوب=0 إيلوب=0 blnre=false عشوائية افعل بينما أنا<sum درجة الحرارة = int (rnd * (iend-istart+1)+istart) إذا كنت = 0 ثم arrayid(0)=temp ط=ط+1 iloop=iloop+1 آخر لـ j=0 إلى i-1 إذا arrayid(j)=temp إذن blnre=true iloop=iloop+1 الجملة "exit for'" مهمة جدًا لمنع الحلقات المتكررة. آخر iloop=iloop+1 نهاية إذا التالي إذا blnre = خطأ ثم arrayid(i)=temp ط=ط+1 آخر blnre=false نهاية إذا نهاية إذا eloop=eloop+iloop إيلوب=0 حلقة rndarray=join(arrayid)&عدد الحلقات:&eloop وظيفة النهاية Response.write rndarray(1,10,5)&<br>'عملية الاتصال |
ملاحظة: إن iloop وeloop مخصصان فقط لحساب عدد الحلقات.
أعلاه، يستخدم معظم الأشخاص هذه الطريقة للكتابة، وإنشاء رقم عشوائي، ثم مقارنته بالرقم الذي تم إنشاؤه مسبقًا لتحديد ما إذا كان قابلاً للاستخدام؛
لكن هذه ليست طريقة فعالة أو ذكاء اصطناعي. لماذا لا تستخدم مصفوفتين؟
يخزن الصفيف 1 السلاسل والأرقام المطلوبة وما إلى ذلك، ويخزن الصفيف 2 الأرقام العشوائية التي تم إنشاؤها عندما يتم إنشاء رمز منخفض x للمتغير المتوسط بشكل عشوائي في كل مرة، ويتم تعيينه للصفيف 2، ثم تتم إزالة الرمز المنخفض من الصفيف 1 كعدد المستخرج من الصفيف 1.
الطريقة الثانية
الدالة rndstr(istart,iend,isum) خافت ط، ي، فنتاراي () استرداد vntarray (iend-istart) j=istart لأني = 0 إلى iend-istart vntarray(i)=j ي=ي+1 التالي خافت vntarray2()، درجة الحرارة، x، y استرداد vntarray2(isum-1) y=iend-istart+1 س = 0 temp=vntarray افعل بينما x<isum خافت أ عشوائية vntarray2(x)=درجة الحرارة(int(rnd*y)) أ= &vntarray2(x)& temp=split(trim(replace(chr(32)&join(temp)&chr(32),a, ))) س=س+1 ص=ص-1 حلقة rndstr=join(vntarray2) وظيفة النهاية استجابة.كتابة rndstr(1,5,2) |
ألن يكون الأمر أسهل بهذه الطريقة؟
للتوسيع قليلاً، إذا كنت تريد إنشاء سلسلة عشوائية تحتوي على أحرف وأرقام، فأنت تحتاج فقط إلى تعيين قيمة للمصفوفة 1، واستخدام الدالة chr(num);
لنفترض أنك بحاجة إلى إنشاء برنامج صفحة فائزة باليانصيب على الهاتف المحمول.
قم أولاً بتعيين القيمة للمصفوفة 1، والتي يمكن تعيينها بشكل دوري من 130.... إلى 139.... بالطبع، في الاستخدام الفعلي، يتم تعيين القيمة الموجودة من قاعدة البيانات، ثم يتم استخراجها عشوائيًا وتعيينها للمصفوفة 2 ;
وأخيرا، المزيد من البولندية
| درجة الحرارة = استبدال (الانضمام (صفيف 2)، مركز حقوق الإنسان (32)،) |
الهاتف＝ يسار (درجة حرارة، 6)&***& يمين (درجة حرارة، 2)
احصل على نتائج مشابهة لـ 137648***58، هاها
لقد تعبت من الكتابة كثيرا ~~