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