here i am again

OfficerTiger · **05-05-2004, 11:34**

Public Sub Naamenklas()

Dim strnaam As String
Dim strklas As String
Dim intaantal As Integer

Do
strnaam = InputBox("Geef de naam", "naam")
strklas = InputBox("Geef de klas", "klas")
intaantal = intaantal + 1
Debug.Print strnaam
Debug.Print strklas
Loop Until intaantal = 3
End Sub

Koen · **05-05-2004, 11:38**

Hier schieten we weinig mee op.

Gesloten.

Soortgelijke topics
Forum	Topic	Reacties	Laatste bericht
Psychologie	Het-Grote-Lucht-Je-Hart-Topic #97 Verwijderd	494	26-05-2007 17:31
Psychologie	Muziek #3 Dolores	488	24-09-2005 21:46
Psychologie	(song)teksten die je raken.. ~~dolce~~	454	07-01-2004 15:16
Verhalen & Gedichten	Alone again HipHopSter	1	24-02-2002 17:38
Verhalen & Gedichten	my first time BoRNLoZeR	0	31-12-2001 18:34
Verhalen & Gedichten	searching for the pieces,witch i know will lead to you... kaleidoscope	11	26-10-2001 23:54

05-05-2004, 11:34
OfficerTiger	Public Sub Naamenklas() Dim strnaam As String Dim strklas As String Dim intaantal As Integer Do strnaam = InputBox("Geef de naam", "naam") strklas = InputBox("Geef de klas", "klas") intaantal = intaantal + 1 Debug.Print strnaam Debug.Print strklas Loop Until intaantal = 3 End Sub __________________ I Love me Knufke

05-05-2004, 11:38
Koen	Hier schieten we weinig mee op. Gesloten.

Advertentie