|
<%@ 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>
|