Övningsuppgifter For-Loopar
I dessa övningar ska vi lära oss hur man kan använda
For-Loopar.
För att ta del av dessa övningar bör du ha goda kunskaper
i Variabler och Response.Write().
Övning 1:
I denna övning ska vi testa en enkel for-loop.
<%
Dim I
For I = 1 To 20
Response.Write("Hej")
Next
%>
I koden ovan så skapar vi en variabel med namnet I, I står
för Integer och är ett standardnamn på räkningsvariabler som man använder i t
ex loopar, de flesta programmerare använder sig utav I som namn på dessa
variabler.
Om du läser koden för dig själv bör det bli ungefär så här :
Skapa en variabel med namnet I
Starta en For-loop och sätt variabeln I till 1, kör
loopen från 1 till 20
Skriv ut texten "Hej" på sidan
Återvänd till starten och kör loopen igen, tills I är 20
Testa att byta ut värdet 20 (OBS kör ej tal större än 100000
då det går väldigt segt).
Övning 2:
I denna övning ska vi göra nästan samma sak som ovan men vi
ska skriva ut talen 1 till 20 på sidan istället för ordet "Hej".
<%
Dim I
For I = 1 To 20
Response.Write(I & "<BR>")
Next
%>
I koden ovan så skapar vi en variabel med namnet I, vi säger
sen åt datorn att köra loppen från 1 till 20. I loopen så ber vi datorn skriva
ut variabeln I och lägga till en <BR> efter.
Det är nämligen så att variabeln I räknas upp med 1 varje
varv som loopen tar.
Resultatet blir en lista med tal från 1 till 20 på sidan.
Om du läser koden för dig själv så bör du läsa ungefär så
här :
Skapa en variabel med namnet I
Starta en For-loop och sätt variabeln I till 1, kör
loopen från 1 till 20
Skriv ut variabeln I och lägg till texten
"<BR>" efter
Återvänd till starten och kör loopen igen, tills I är 20
Kolla källan i webbläsaren för att se hur koden blir.
Övning 3:
I denna övning ska vi använda oss utav 3 st variabler för
att få det hela att fungera.
<%
Dim I, IntStart, IntSlut
IntStart = 20
IntSlut = 30
For I = IntStart To IntSlut
Response.Write(I & "<BR>")
Next
%>
I koden ovan så skapar vi 3 variabler, i Variabeln IntStart
stoppar vi talet 20 som kommer att vara startvärdet för loopen och i IntSlut
sätter vi 30 som är slutvärdet för loopen.
Resultatet på sidan blir då en lista med tal från 20 till
30.
Läser du koden så bör det bli ungefär så här :
Skapa variabler med namnen I, IntStart och IntSlut
Ger variabeln IntStart värdet 20
Ger variabeln IntSlut värdet 30
Starta en For-loop och sätter variabeln I till värdet på
IntStart, kör loopen till värdet på IntSlut
Skriv ut variabeln I och lägg till texten
"<BR>" efter
Återvänd till starten och kör loopen igen, tills I är
lika med IntSlut
Övning 4:
I denna övning ska vi använda oss utav egenskapen Step.
<%
Dim I
For I = 1 To 30 Step 2
Response.Write(I & "<BR>")
Next
%>
I koden ovan så kör vi en loop som ska räkna från 1 till 30,
men vi har ställt in egenskapen Step med värdet 2 efter. Det gör så att loopen
tar 2 steg per loop (vilket resulterar i att vart annat tal skrivs ut på
sidan).
Läs koden så här :
Skapa en variabel med namnet I
Starta en For-loop och sätter variabeln I till 1, kör
loopen till I är lika med 30, ta 2 steg per varv
Skriv ut variabeln I och lägg till texten
"<BR>" efter
Återvänd till starten och kör loopen igen, tills I är
lika med 30
Resultatet bör bli att en lista med värdet 1 till 29 visas
på sidan.
Övning 5:
I denna övning ska vi skriva ut alla datum från dagens datum
till 2004-12-31.
<%
Dim I
For I = Date To "2004-12-31"
Response.Write(I & "<BR>")
Next
%>
I koden ovan säger vi åt for-loopen att starta med dagens
datum och sen fortsätta till datumet 2004-12-31.
Läs koden så här :
Skapa en variabel med namnet I
Starta en For-loop och sätter variabeln I till dagens
datum, kör loopen till I är lika med datumet "2004-12-31"
Skriv ut variabeln I och lägg till texten
"<BR>" efter
Återvänd till starten och kör loopen igen, tills I är
lika med "2004-12-31"
Övning 6:
I denna övning ska vi använda föregående exempel men inbaka
den koden i HTML.
<SELECT name="datum">
<%
Dim I
For I = Date To "2004-12-31"
Response.Write("<OPTION value='" & I & "'>" & I & "</OPTION>")
Next
%>
</SELECT>
Alternativt kan du skriva så här :
<SELECT name="datum">
<%
Dim I
For I = Date To "2004-12-31"
%>
<OPTION value="<% = I %>"><% = I %></OPTION>
<%
Next
%>
</SELECT>
Dessa 2 likartade koder visar en Select ruta med alla datum
till och med 2004-12-31.
Detta är 2 olika sätt att skriva koden på, välj det du
föredrar mest.
Läs koden så här :
Skriv ut HTML koden <SELECT name="Datum">
Skapa en variabel med namnet I
Kör loopen från dagens datum till datumet
"2004-12-31"
Skriv ut HTML koden <OPTION value=" infoga värdet
på I, Skriv ut "> och återigen värdet på I. Slutligen skriv ut
</OPTION>.
Återvänd till starten och kör loopen igen, tills I är
lika med "2002-12-31"
Skriv ut HTML koden </SELECT>
Lycka till!
