Forum guidelines
  • Home
  • »
  • How do I
  • »
  • Using Random function with "do...until" in VB.NET
AuthorQuestion
Using Random function with "do...until" in VB.NET
Posted By C M on 22 Nov 2012
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.

SPONSORED BY

Custom Software Development
MCN is your source for developing solutions involving websites, mobile apps, cloud-computing, databases, BI, back-end services and processes and client-server applications.