Soru 1 :  0-100 arasındaki ardışık sayılardan sadece 3’e bölünebilenleri listeyen programı yazınız.

 Cevap 1:

[code]<body>

<script language=vbscript runat=server>

     Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)

        Dim i As Integer

        For i = 0 To 100 Step 3

            Response.Write(i & " | ")

        Next

    End Sub

</script>

    <form id="form1" runat="server">

    <div>

    </div>

    </form>

</body> [/code]

Soru 2: Kullanıcının verdiği 2 sayı arasında kalan tüm değerlerin toplamını hesaplayan programı yapınız.
 

Cevap 2:[code]

<body>

<script language=vbscript runat=server>

    Sub gonder(ByVal sender As Object, ByVal e As EventArgs)

        Dim i, toplam As Integer

        toplam = 0

        For i = CInt(TextBox1.Text) To CInt(TextBox2.Text)

            toplam = toplam + i

        Next

        Label3.Text = CStr(toplam)

    End Sub

</script>

    <form id="form1" runat="server">

    <div>

        &nbsp;&nbsp;

        <asp:TextBox ID="TextBox1" runat="server" Style="z-index: 100; left: 72px; position: absolute;

            top: 21px"></asp:TextBox>

        <asp:TextBox ID="TextBox2" runat="server" Style="z-index: 101; left: 70px; position: absolute;

            top: 56px"></asp:TextBox>

        <asp:Label ID="Label1" runat="server" Style="z-index: 102; left: 24px; position: absolute;

            top: 22px" Text="Sayi1"></asp:Label>

        <asp:Label ID="Label2" runat="server" Style="z-index: 103; left: 23px; position: absolute;

            top: 58px" Text="Sayi2"></asp:Label>

        <asp:Button ID="Button1"  OnClick="gonder" runat="server" Style="z-index: 104; left: 241px; position: absolute;

            top: 54px" Text="Hesapla" />

        <asp:Label ID="Label3" runat="server" Style="z-index: 106; left: 70px; position: absolute;

            top: 98px" Width="152px"></asp:Label>

    </div>

    </form>

</body>[/code]

Soru 3: Girmek istediğiniz 5 üniversiteyi bir diziye sabit olarak yazınız. For –Each döngüsü ile dizideki değerleri listeleyiniz.
 

Cevap 3:[code]

<body>

<script language=vbscript runat=server>

    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

        Dim univ() As String = {"Marmara", "OTDÜ", "İstanbul Teknik", "Yıldız", "Bogaziçi"}

        Dim x

        For Each x In univ

            Response.Write(x + "<br>")

        Next

    End Sub

</script>

    <form id="form1" runat="server">

    <div>

     </div>

    </form>

</body>[/code]