ciclo for semplicissimo

[victor8872]

ragazzi come si fa un ciclo for che conti da 1 a 10 ad esempio
e stampi 1 2 3 4 ecc...

[pietro09]

Originariamente inviato da victor8872
ragazzi come si fa un ciclo for che conti da 1 a 10 ad esempio
e stampi 1 2 3 4 ecc...

:master: Non credo che la domanda sia così banale come sembra a prima vista. Puoi spiegare meglio?

[victor8872]

devo stampare dei numeri da 1 a 10
tipo

for i=1 to 10
response.write ecc...
next

una cosa del genere

[pietro09]

Originariamente inviato da victor8872
devo stampare dei numeri da 1 a 10
tipo

for i=1 to 10
response.write ecc...
next

una cosa del genere

:master: io continuo a non capire. Il codice che hai scritto è corretto.

[victor8872]

si adesso in effetti è corretto
ho scritto

dim i as integer

for i=1 to 10
response.write (i)
next

e mi stampa fino a 10.

Il tutto è legato al discorso di prima in cuio desidero fare in modo che in un campo tessere
in cui ci sono delle tessere che vanno da 1 a infinito
vengano rilevate le tessere eventualmente saltate

esempio 1 2 3 5 6 ecc... (in questo caso viene preso il 4)
allora vorrei usare un ciclo ed una sorta di if per paragonale il campo tessere col ciclo
ecc....

magari tu hai un idea migliore

[victor8872]

tipo cosi
ci sto lavorando

dim t as integer
dim i as integer


while readk.read

for i=1 to 5

t=(readk.getint32(1))


if (i <> t ) then
response.write (i)
end if


next

end while
readk.close
objcmd_verk.connection.close()

[victor8872]

che ne pensi?
ma non viene fuori il risultato corretto

[djciko]

puoi essere piu' chiaro su cio' che devi fare ?

[victor8872]

ciao
allora devo fare questo:

ho una tabella di nome libro_soci
ce un campo numerico di nome tessera

dentro tessera vengono inseriti i numeri di tessera dei soci

1-2-3

però ogni tanto sono stati saltati dei numeri es:
1-2-3-5-6-7-9

ecc...

vorrei avere una soluzione che mi stampi i numeri mancanti
in tal caso 4-8

Grazie mille

[pietro09]

prova se va

Dim old As Integer = 0
Using reader As OleDbDataReader = msole.GetDataReader(gl.StringaConnessioneTest, "select [id] from tabella7 order by [id]")
	Do While (reader.Read)
		Dim x As Integer = CInt(reader("id"))
		If x > (old + 1) Then
			For j As Integer = old + 1 To x - 1
				PrintLn(j)
			Next
		End If
		old = x
	Loop
End Using