problème evec Fontion VB6 Fermé

Question

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

jean-yvon · Answer

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é!

Problème evec Fontion VB6

1 réponse

Discussions similaires

Newsletters