3 nombres sur 9 dans tous les sens
Résolu
anselmejour
Messages postés
28
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
9 octobre 2006
-
24 sept. 2006 à 13:34
Vb Lover Messages postés 221 Date d'inscription vendredi 30 novembre 2001 Statut Membre Dernière intervention 13 février 2010 - 12 oct. 2006 à 10:11
Vb Lover Messages postés 221 Date d'inscription vendredi 30 novembre 2001 Statut Membre Dernière intervention 13 février 2010 - 12 oct. 2006 à 10:11
A voir également:
- 3 nombres sur 9 dans tous les sens
- Fichier sur le net 3 lettres ✓ - Forum VB.NET
- Runtime error 9 ✓ - Forum Visual Basic 6
- Image sens interdit ✓ - Forum Javascript / DHTML
- Nombres en árabe ✓ - Forum Delphi / Pascal
- Convertir chiffres romains en nombre arabe ✓ - Forum Delphi / Pascal
42 réponses
Vb Lover
Messages postés
221
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
13 février 2010
5
12 oct. 2006 à 10:06
12 oct. 2006 à 10:06
ces codes sont sûrement justes, mais il me semble en général qu'ils
font beaucoup d'opérations pour rien (par exemple les transformations
ascii-integer et vice-versa, ou les tests pour savoir si les nombres
sont différents). Je te propose donc le code suivant:
' *******************************************************
Private Sub Command1_Click()
dim i as Integer, j as Integer, k as Integer
For i=1 To 7
For j=i+1 To 8
For k=j+1 To 9
List.AddItem CStr(i) & CStr(j) & CStr(k)
Next
Next
Next
End Sub
' *******************************************************
je pense qu'on peut difficilement faire moins de boucles pour ce problème-là...
par contre, si qqn pouvait me dire comment insérer du code qui se fasse
interpréter dans les messages et qui soit donc mis en forme
automatiquement, je lui en serai très reconnaissant! Il y a quelques
année (), je me souviens qu'il y avait un
bouton exprès pour, mais là je n'arrive pas à le trouver... Pour ce
message, par exemple, j'ai mis en bleu manuellement quelques mots-clé
pour que ce soit plus lisible, mais il y a forcément mieux, non??
font beaucoup d'opérations pour rien (par exemple les transformations
ascii-integer et vice-versa, ou les tests pour savoir si les nombres
sont différents). Je te propose donc le code suivant:
' *******************************************************
Private Sub Command1_Click()
dim i as Integer, j as Integer, k as Integer
For i=1 To 7
For j=i+1 To 8
For k=j+1 To 9
List.AddItem CStr(i) & CStr(j) & CStr(k)
Next
Next
Next
End Sub
' *******************************************************
je pense qu'on peut difficilement faire moins de boucles pour ce problème-là...
par contre, si qqn pouvait me dire comment insérer du code qui se fasse
interpréter dans les messages et qui soit donc mis en forme
automatiquement, je lui en serai très reconnaissant! Il y a quelques
année (), je me souviens qu'il y avait un
bouton exprès pour, mais là je n'arrive pas à le trouver... Pour ce
message, par exemple, j'ai mis en bleu manuellement quelques mots-clé
pour que ce soit plus lisible, mais il y a forcément mieux, non??
Vb Lover
Messages postés
221
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
13 février 2010
5
12 oct. 2006 à 10:11
12 oct. 2006 à 10:11
Désolé, je n'avais vu que la page 1 de cette discussion, je n'imaginais
pas qu'il y avait autant de réponses!! c'est seulement quand je l'ai
posté que le site m'a renvoyé automatiquement à la dernière page...
mais donc je crois qu'on est d'accord sur l'algorithme à utiliser!
Toujours est-il que si qqn sait comment mettre du code dans les messages, je suis preneur!
pas qu'il y avait autant de réponses!! c'est seulement quand je l'ai
posté que le site m'a renvoyé automatiquement à la dernière page...
mais donc je crois qu'on est d'accord sur l'algorithme à utiliser!
Toujours est-il que si qqn sait comment mettre du code dans les messages, je suis preneur!