ASP.Net/Language Basics/Do Loop Until

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Do Loop Until to append string to asp:Label

   <source lang="csharp">

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

</script> <html> <head> </head> <body> 

   <form runat="server">

<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Play the whole game"></asp:Button>

<asp:Label id="Label1" runat="server"></asp:Label> 

   </form>

</body> </html> 

      </source>


Do Loop Until with integer value as condition

   <source lang="csharp">

<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 & "
"
 Loop Until diceroll = 6

End Sub </script> <html> <head> <title>Do Loop Example</title> </head> <body> 

 <asp:label id="message1" runat="server"/>

</body> </html> 

      </source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Language_Basics/Do_Loop_Until&oldid=2182»