Forums - C# Corner

Forum guidelines
C M

C M

  • 1.3k
  • 1
  • 894

Using Random function with "do...until" in VB.NET

Nov 22 2012 4:32 AM
I have to write a small program which will roll 2 dice until both display a 1.  Both numbers rolled each time must also be displayed in a list box.
I have this so far:


        lboDiceRolls.Items.Clear()

        Dim iDice1 As Integer
        Dim iDice2 As Integer

        Randomize()

        Do Until iDice1 = 1 And iDice2 = 1
            iDice1 = (Rnd() * 5) + 1
            iDice2 = (Rnd() * 5) + 1
            lboDiceRolls.Items.Add(iDice1 & iDice2)
        Loop
 End Sub

It isn't displaying anything, and I have tried many different versions of the above statement using different combinations of things.  I know I'm probably missing something really dumb, but I'm very new to using VB so I'm not sure if I'm on the right track.

Download Free eBooks

SPONSORED BY

File APIs for .NET
Aspose are the market leader of .NET APIs for file business formats – natively work with DOCX, XLSX, PPT, PDF, MSG, MPP, images formats and many more!