Zacharie07
Messages postés8Date d'inscriptionjeudi 10 novembre 2005StatutMembreDernière intervention18 mai 2006
-
18 nov. 2005 à 20:11
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
18 nov. 2005 à 22:20
J'ai besoin d'aide pour ecrire un programme qui demande à l'utilisateur un nombre et remplisse le tableau ( de 10 cases ) avec les 10 premiers multiples de ce nombre.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 18 nov. 2005 à 22:20
hein?
.....salut
VB6, juste une Form
Option Explicit
Dim aMesMultiples(9) As Long
'
'
Private Sub Form_Load()
' pour l'exemple
Me.AutoRedraw = True
Me.Show
DoEvents
' ton nombre à multiplier
Const MonChiffreDemande As Long = 4
' ton tableau avec affichage sur la Form
Dim i As Integer
For i = 1 To 10
aMesMultiples(i - 1) = i * MonChiffreDemande
Me.Print MonChiffreDemande & " x " & i & " = " & aMesMultiples(i - 1)
Next i
End Sub