Problème evec Fontion VB6
FonctionVB6
-
jean-yvon Messages postés 112 Statut Membre -
jean-yvon Messages postés 112 Statut Membre -
Bonjour,
le programme suivant en VB6 ne tourne pas (leçon : fonction et procédure).
objectif: ecrire un programme qui détermine le nombre le plus grand (on se limite au cas de deux nombres : a et b).
Fonction max(a,b)
if a>b then max=a
else max=b
endif
end
a=val(text1.text)
b=val(text2.text)
label1.caption=max(a,b)
MERCI DE VOTRE AIDE
le programme suivant en VB6 ne tourne pas (leçon : fonction et procédure).
objectif: ecrire un programme qui détermine le nombre le plus grand (on se limite au cas de deux nombres : a et b).
Fonction max(a,b)
if a>b then max=a
else max=b
endif
end
a=val(text1.text)
b=val(text2.text)
label1.caption=max(a,b)
MERCI DE VOTRE AIDE
A voir également:
- Problème evec Fontion VB6
- Vb6 - Télécharger - Divers Utilitaires
- Vb6 listbox ✓ - Forum VB / VBA
- Msflexgrid vb6 - Forum VB / VBA
- Timer vb6 - Forum VB / VBA
- VB6: installation d'un projet créer ✓ - Forum VB / VBA
1 réponse
Bonjour
voici un encouragement aux vices!
donner la solution à un problème aussi simple n'est pas glorieux!
Public a, b
Function Max(a, b)
If a > b Then
Max = a
Else: Max = b
End If
End Function
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = Max(a, b)
End Sub
J'espère seulement que cela ne rapportera rien et que tu auras le courage de dire que tu n'as pas travaillé!
voici un encouragement aux vices!
donner la solution à un problème aussi simple n'est pas glorieux!
Public a, b
Function Max(a, b)
If a > b Then
Max = a
Else: Max = b
End If
End Function
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = Max(a, b)
End Sub
J'espère seulement que cela ne rapportera rien et que tu auras le courage de dire que tu n'as pas travaillé!
