Language Basics ASP.Net


Sub Page_load()
  Dim diceRoll As Integer
  Do
    diceRoll = int(rnd * 6) + 1
    Message1.Text = Message1.Text & "Rolled a: " & diceRoll & ""
  Loop Until diceroll = 6
End Sub



Do Loop Example