ISProfile.CreateIntCollection

Description

This function creates integer collection with randomized numbers.

Syntax

object.CreateIntCollection()

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface

Return Value

ISIntCollection

Returns the created intcollection with randomized numbers.

Example

Fill in the collection with randomized numbers and display them.

Dim aItemCount
Dim aMinValue
Dim aMaxValue
Dim aIntColl
Dim aValue
Dim aMessage

aItemCount = 7
aMinValue = 20
aMaxValue = 70

Set aIntColl = Profile.CreateIntCollection

for i = 1 to aItemCount
  aValue = (aMaxvalue - aMinValue + 1) * Rnd + aMinValue
  aIntColl.Add(aValue)
next

for i = 0 to aIntColl.Count - 1
  aMessage = aMessage & vbNewLine & aIntColl.Item(i)
next 

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0