Textbox a girilen sayıya kadar çift sayıların toplamını FOR ile gösterecek program
Textbox a girilen sayıya kadar tek sayıların toplamını WHİLE ile gösterecek program
Textbox a girilen sayıya kadar sayıların toplamını DO WHİLE ile gösterecek program
Yaptım tamamdır. :D
<script language="VB" runat="server">
Sub bolge1(ByVal sender As Object, ByVal e As EventArgs)
Dim girilen1 As Integer = textbox1.Text
Dim cift As Integer = 0
For i As Integer = 0 To girilen1 Step 2
cift = cift + i
Next
label2.Text = cift
End Sub
Sub bolge2(ByVal sender As Object, ByVal e As EventArgs)
Dim girilen2 As Integer = textbox1.Text
Dim tek As Integer
Dim i As Integer = 1
While i <= girilen2
tek = tek + i
i = i + 2
End While
label3.Text = tek
End Sub
Sub bolge3(ByVal sender As Object, ByVal e As EventArgs)
Dim girilen3 As Integer = textbox1.Text
Dim ikisi As Integer
Dim i As Integer = 1
Do While i <= girilen3
ikisi = ikisi + i
i = i + 1
Loop
label4.Text = ikisi
End Sub
</script>
<html><body>
<form id="Form1" runat="server">
<asp:Label ID="label1" Text="Sayınızı Giriniz." runat="server" /><br />
<asp:Textbox ID="textbox1" runat="server"/><br />
Çift<asp:Button ID="button1" text="FOR" OnClick="bolge1" runat="server" />
<asp:Label ID="label2" runat="server"/><br />
Tek<asp:Button ID="button2" text="WHİLE" OnClick="bolge2" runat="server" />
<asp:Label ID="label3" runat="server"/><br />
İkisi<asp:Button ID="button3" text="DO WHİLE" OnClick="bolge3" runat="server" />
<asp:Label ID="label4" runat="server"/><br />
</form>
</body></html>