Bonjour , svp est ce qq peut me donner la traduction en Visual Basic de cet algorithme svp je suis très pressée
interface 1:
N=text1.value
Q=text2.value
pour i de 1 à N faire
j=1
tant que (j>=i) faire
si ( i=j) alors
T[i,j]=0
j++
finsi
ecrire ("donner la distance entre station",i"et",j":\t")
lire(d)
T[i,j]=d
j++
fin tant que
si i>j alors
T[i,j]=T[j,i]
fin si
fin pour
interface 2
pour k de 1 à N faire
ecrire ( "S1 \t S2 \t")
fin pour
pour i de 1 à N faire
ecrire ("S ",i,"\t")
pour j de 1 à N faire
ecrire (T[i,j])
ecrire ("\t")
fin pour
fin pour
interface 3
Répeter
s1 <- 0
s2 <- 0
tab [1,1] <- 0
tab[1,2] <- 0
si (s1 <> S2 )alors
ecrire(il faut que somme q+ = somme q-,svp")
fin si
pour n de 2 à N faire
pour y de 1 à 2 faire
ecrire ("donner q+ de la station ",n,":")
lire(q1)
s1<- s1+q1
ecrire ("donner q- de la station ",n,":")
lire (q2)
s2<- s2+q2
fin pour
fin pour
jusqu'à (s1=s2)
pour y de 1 à 2 faire
ecrire (tab[i,j])
ecrire("\t")
fin pour
"s'il vous plait aider moi à le traduire en VB et merci"
