IBM Lotus Symphony


‏‎Rnd Function [Runtime]‎‏

تقوم بارجاع رقم عشوائي بين 0 و 1.

الصيغة:

Rnd [(Expression)]

القيمة المرتجعة:

Double

المعاملات:

Expression: أي تعبير رقمي يقوم بتعريف كيفية تكوين الأرقام العشوائية.

Less than zero: يقوم دائما بارجاع نفس الرقم العشوائي.

Greater than zero: يتم ارجاع الرقم العشوائي التالي في التسلسل.

Zero: يتم ارجاع الرقم العشوائي الذي تم تكوينه مؤخرا.

Omitted: يقوم بارجاع الرقم العشوائي التالي في التسلسل.

اذا تم امرار نفس الرقم لكل استدعاء متتالي لوظيفة Rnd function، سيتم تكوين نفس تسلسل الرقم العشوائي random-number sequence. وهذا لأن المعامل Expression parameter يتم استخدامه كنقطة بدء للرقم التالي.

تقوم الوظيفة Rnd function فقط بارجاع قيم تتراوح بين 0 و 1. لتكوين أرقام صحيحة عشوائية في مدى معين، استخدم المعادلة التي توجد في المثال التالي:

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

مثال:

Sub ExampleRandomSelect

Dim iVar As Integer

‏‎iVar = Int((15 * Rnd) -2)‎‏

Select Case iVar

Case 1 To 5

‏‎Print "Number from 1 to 5"‎‏

Case 6, 7, 8

‏‎Print "Number from 6 to 8"‎‏

‏‎Case Is > 8 And iVar < 11‎‏

‏‎Print "Greater than 8"‎‏

Case Else

‏‎Print "Outside range 1 to 10"‎‏

End Select

نهاية البرنامج


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية