Nest Do Until loop inside For loop (VB.net) : For Loop « Language Basics « ASP.Net






Nest Do Until loop inside For loop (VB.net)

<%@ Page Language="VB" %>
<script runat="server">
    Sub Button1_Click(sender As Object, e As EventArgs)
      Label1.Text = ""
    
      Dim dice1, dice2, score, counter As Integer
    
      For counter = 1 to 10
        score = 0
    
        Do
          dice1 = Int(Rnd() * 6) + 1
          dice2 = Int(Rnd() * 6) + 1
          score = score + (dice1 + dice2)
          Label1.Text = Label1.Text & "Rolled a " & dice1 & " and a " & dice2 & "<br/>"
        Loop Until dice1 = 1 And dice2 = 1
        score = score - 2
        Label1.Text = "Game " & counter.ToString() & ": Total score would have been " & score & "<br/><br/>" & Label1.Text
      Next counter
    End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p>
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Play the whole game 10 times"></asp:Button>
        </p>
        <p>
            <asp:Label id="Label1" runat="server"></asp:Label>
        </p>
    </form>
</body>
</html>

           
       








Related examples in the same category

1.Simple For loop (C#)