bonjour tous je veux savoir comment suprimer et chercher dans un tableau s'il vous plais
je travail sur vb.net 2003
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53 imports system imports microsoft.visualbasic module pers sub main() dim T() as integer dim test as boolean dim i,pos,j ,taille,nbr,choix as integer do console.writeline(" menu ") console.writeline(" 1-ajouter ") console.writeline(" 2-afficher ") console.writeline(" 3-supprimer ") console.writeline(" 4-rechercher ") console.writeline(" 5-quitter ") console.write(" entrz votre choix") choix=console.readline() loop until choix>0 or choix<=4 select case choix case 1 do console.write(" entrz la taille du tableau :") taille=console.realine() taille-=1 loop until taille>=0 redim T(taille) for i=0 to T.length-1 console.writeline(" entrez le nombre N° : " & i+1 ) T(i)=console.readline() pos=i next case 2 for i=0 to T.length-1 console.writeline(T(i)) next case 3 console.writeline(" entre le nombre a supprimer ") nbr=console.readline) if nbr=T(i) then test=true end if if test=true then for j=pos to T.length-1 T(j)=T(j+1) next end if loop until choix=5 end sub end module
Partager