Problème evec Fontion VB6

FonctionVB6 -
jean-yvon Messages postés 108 Date d'inscription Statut Membre Dernière intervention - 10 oct. 2008 à 08:50

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

A voir également:

Problème evec Fontion VB6
Vb6 - Télécharger - Divers Utilitaires
Split vb6 - Forum VB / VBA
Vb6 listbox ✓ - Forum VB / VBA
Vb6 freefile - Forum VB / VBA
Msflexgrid vb6 - Forum VB / VBA

1 réponse

Réponse 1 / 1

jean-yvon Messages postés 108 Date d'inscription Statut Membre Dernière intervention 10

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

Discussions similaires

[Visual Basic 6 portable]Créer exécutable

Programmer le Timer en Visual Basic 6.0

Compatibilité VB6 et Windows 10

VB6 - SSTab

Je trouve pas DTPicker dans les composants du VB6 ?

Votre réponse

Discussions similaires