# Number Scambler

## Domino Resources - Part 4

### Looking for something else?

+ Show More
I decided to post this tip, as it is something I couldn't locate when I had
need of it.

My scenario is as follows:

I needed to scramble a range of numbers(X) (from 1 to X) so that they would
display in a unique order each time the function was called.

The function expects an integer (X) to be passed to it and will return a
variant containing the randomized list from 1 to X.
' RandomOrderedList will receive the results of the function call.

Dim RandomOrderedList As Variant

RandomOrderedList = RandomGenerator ( < Any Number > )

'==================The function ================

Function RandomGenerator (X As Integer) As Variant

'Baseline will hold a sequential list of numbers from 1 to X.

Dim Baseline List As Integer

For i = 0 To X-1

Baseline(i)=i+1

Next

'Set RandomFactor vehicles

Dim RandomFactor1 As Variant

Dim RandomFactor2 As Variant

' Set Temp value holder

Count = 0

While Not ( count = X )

RandomFactor1 = Evaluate( "@random" )

RandomFactor2 = Int( 1 + RandomFactor1(0) * ( X * X ) )

If RandomFactor2 > X Then Goto NextOne

Dim TempValueHolder List As Integer

Forall X1 In TempValueHolder

If X1 = RandomFactor2 Then Goto NextOne

End Forall

TempValueHolder(Count ) =RandomFactor2

Count=Count + 1

Nextone:

Wend

RandomGenerator = TempValueHolder

End Function
This was last published in November 2000

#### Start the conversation

Send me notifications when other members comment.

## SearchWindowsServer

• ### Windows Server Migration Tools make file share moves less taxing

Administrators can hit a few snags when migrating a Windows file server, but a free Microsoft utility and some PowerShell ...

• ### Tailor a WSUS server setup to any Windows environment

Administrators can configure a Windows Server Update Services server -- or several -- to manage and distribute updates from ...

• ### Microsoft SCORCH lights an automated path to more efficiency

System Center Orchestrator tackles tedious tasks and can even make autonomous decisions based on conditions set by the Windows ...

## Search400

• ### iSeries tutorials

Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

• ### V6R1 upgrade planning checklist

When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

• ### Connecting multiple iSeries systems through DDM

Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

## SearchEnterpriseLinux

• ### SUSE Linux jumps on the open private cloud deployment train

SUSE Linux Enterprise planning private cloud deployment with OpenStack weight behind it. NVIDIA works on Linux drivers for ...

• ### Want one of the many Linux jobs out there? Time to go back to class

Does extended education from the Linux Foundation and others help graduates meet the demands of today’s Linux jobs? Some say yes.

• ### Ubuntu ARM server AMI for Amazon EC2 offers fast access in the cloud

Canonical’s Ubuntu ARM server AMI for Amazon EC2 provide open source shops with a fast ARM server for the cloud.

## SearchDataCenter

• ### Build a data center shutdown procedure to prepare for the worst

A data center shutdown checklist helps IT teams focus on backup, testing and system verification before pulling the plug and ...

• ### Telcos purge colocation data centers, open door to neutral connections

Enterprise customers in Verizon and CenturyLink's colocation data centers should expect better cloud and network connection ...

• ### IT slowly embraces composable infrastructure

If there will be a way to make an enterprise data center as efficient and optimized as cloud computing, composable infrastructure...

## SearchExchange

• ### Access for Office 365 external users a concern for admins

Microsoft added external access for Office 365 Groups, which means administrators must contend with confidentiality and lifecycle...

• ### The essential admin's guide to Office 365 PowerShell

Need to make extensive updates quickly? Admins can rev up their PowerShell skills, bypass the Office 365 management GUI and leave...

• ### Understanding Exchange Online's Role-Based Access Control model

The Role-Based Access Control model manages and evaluates permissions in Exchange Online. Admins can explore the model, create ...

## SearchContentManagement

• ### Microsoft brings its flavor of AI with Microsoft Cognitive Services

Microsoft Cognitive Services has a new array of APIs to make it easier to scan text, video and audio data and to bring ...

• ### Users prefer Office 365 suite collaboration features over SharePoint

Users don't want to jump through hoops, and they want applications to work on mobile devices. Those needs may kill traditional ...

• ### What new SharePoint features to expect in the next 12 months

Now that Microsoft is developing its SharePoint features, there are new feature rollouts all the time. Here's a rundown of the ...

Close