Generating random numbers

aaj2008 · Oct 26, 2008, 09:32 PM

There is actually a list of numbers on what is called "the table of random digits" I had to use it in Statistics...and its a table of random digits basically that were computer generated...kind of neat actually

bindizzle · Oct 26, 2008, 09:35 PM

Hey aaj2008

bindizzle · Oct 26, 2008, 09:36 PM

Here is my problem
To create a program that generates 7 random numbers display it in 7 labels and there a button if you click it picks out the highest number

aaj2008 · Oct 26, 2008, 09:38 PM

Are you trying to create a computer program? Or are you just using one? Or are you trying to create this on like a TI calculator?

aaj2008 · Oct 26, 2008, 09:39 PM

On a TI calculator there is an application to pick random digits and you can enter how many digits you want and tell it to give you the highest one first...

bindizzle · Oct 26, 2008, 09:46 PM

I'm trying to create it on Vb 6.0. The random number should be stored in a variable. Here is what I got so far.

Option Explicit
Dim random(0 To 6) As Integer
Dim old(0 To 6) As Integer
Dim Index As Integer
Dim I As Integer

Sub generate()

For I = 0 To 6
Random(i) = Int(Rnd * 25 + 1)
If random(i) = old(0 Or 1 Or 2 Or 3 Or 4 Or 5 Or 6) Then
Random(i) = Int(Rnd * 25 + 1)
End If

Old(i) = random(i)
Lblnum(i).Caption = random(i)
Next i

End Sub
Private Sub btnrandom_Click()
Generate
End Sub

bindizzle · Oct 26, 2008, 09:47 PM

This doesn't work. I think I need to create a loop where it loops till it finds a random number that has not been generated before

aaj2008 · Oct 26, 2008, 09:49 PM

I don't really know actually...it looks like it should work to me...umm..I'm getting tired and about to head to bed but I will do a little research and ask one of my professors in the morning...but yeah the loop might help but not sure

bindizzle · Oct 26, 2008, 09:52 PM

Thanks for your effort. Appreciate it

Generating random numbers

Add your answer here.

Check out some similar questions!