ASP.Net/Language Basics/Do Loop Until

Материал из .Net Framework эксперт
Версия от 11:53, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Do Loop Until to append string to asp:Label

<%@ Page Language="VB" %>
<script runat="server">
    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 & "<br/>"
      Loop Until dice1=1 And dice2 = 1
      score = score - 2
      Label1.Text = "You lost! Your total score would have been " & score.ToString() & "<br/><br/>" & Label1.Text
    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"></asp:Button>
        </p>
        <p>
            <asp:Label id="Label1" runat="server"></asp:Label>
        </p>
    </form>
</body>
</html>



Do Loop Until with integer value as condition

<script language="vb" runat="server">
Sub Page_load()
  Dim diceRoll As Integer
  Do
    diceRoll = int(rnd * 6) + 1
    Message1.Text = Message1.Text & "Rolled a: " & diceRoll & "<br />"
  Loop Until diceroll = 6
End Sub
</script>
<html>
<head>
<title>Do Loop Example</title>
</head>
<body>
  <asp:label id="message1" runat="server"/>
</body>
</html>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Language_Basics/Do_Loop_Until&oldid=2182»