IBM Lotus Symphony


‏‎Randomize Statement [Runtime]‎‏

يتم بدء مكون الأرقام العشوائية random-number generator.

الصيغة:

Randomize [Number]

المعاملات:

Number: أي قيمة رقمية تقوم ببدء random-number generator. اذا تم حذف الرقم، سيستخدم generator القيمة الحالية لمحدد وقت النظام.

أكواد الخطأ

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

مثال:

Sub ExampleRandomize

Dim iVar As Integer, sText As String

Dim iSpectral(10) As Integer

Randomize 2^14-1

For iCount = 1 To 1000

iVar = Int((10 * Rnd) ) REM Range from 0 to 9

iSpectral(iVar) = iSpectral(iVar) +1

Next iCount

sText = " | "

‏‎For iCount = 0 To 9‎‏

sText = sText & iSpectral(iCount) & " | "

Next iCount

MsgBox sText,0,"Spectral Distribution"

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


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