Generating a random number

Hello.


I'm pretty new to VB, so I'm starting off by making a simple program. I'm trying to simulate rolling some dice and calculating various results. My problem is this: sometimes, the number generated is zero. This plays havoc with the rest of the program.


I've defined a new function to make generating my random numbers easier.





Then, whenever I want to "roll the dice," I just type something like...





This sometimes spits out a zero. From my limited understanding of how Rnd() works, this shouldn't be happening. Can anyone help?

(And yes, I'm initializing Randomize() at the start of the program.)



EDIT--

I'm using VB 2008 Express.

For secret number:





Now its between 1 and 6

This is very annoying. It's still giving me zeros now and then. I copied and pasted your code, and it's still not cooperating. I don't get it. Shouldn't this be working?



and

Use this codes, if i only use this codes, and i add text1 and Command1 then this works...

I never get a zero, only 1,2,3,4,5,6


Meaby the reason is that i have VB 6.0?

Hmm. Well, I can't see what I'm doing wrong. It looks like we're using the same code, just getting different results. I don't know if me using VB 2008 Express has anything to do with it or not. I just started learning VB a few weeks ago, so I'm far from knowing the ins and outs of the different versions.

Back to the zeros though. I added an If/Then statement that's supposed to set the variable to 1 if it does happen to roll a zero. But it's not working. Zeros are still getting generated and passed into the rest of the program. Correct me if I'm wrong, but shouldn't...



...do the trick? This seems to be more complicated than it should be.

Thats a correct code, what is working, BUT:
Now the chance to get NO. 1 is 2 times as big as NO 2-6.

So meaby you need somehting like:





So if The number is zero, you roll again.


Hope this works!

Hmm. It appears to be fixed. I don't think the problem was with generating the random number after all. I was using images of each side of the die, instead of just sticking the numbers onscreen. I stored the locations of the images in an array, and then used the random number to decide which image to use. Like this...





The image paths are stored in the array in order. So the first is 1, the second is 2, and so on.

My thinking was that if the number generated was a 4, all I had to do was subtract 1 to get the index of the proper image in the array. Apparently that doesn't work. I kept getting "array out of bounds" exceptions. When I looked at the error details, it said that someVar had a value of zero. So subtracting 1 would have the program trying to access dice(-1), which of course doesn't exist. I changed the code to the following, and no more errors:





I don't understand one thing. Shouldn't I be able to use a simple expression such as (someVar - 1) as the index of an array? Did I just apply it incorrectly?