<%@ Page Language="VB" %>
Sub Button1_Click(sender As Object, e As EventArgs)
Label1.Text = ""
Dim dice1, dice2, score As Integer
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 & "
"
Loop Until dice1=1 And dice2 = 1
score = score - 2
Label1.Text = "You lost! Your total score would have been " & score.ToString() & "
" & Label1.Text
End Sub