4/5 (12 avis)
Snippet vu 3 328 fois - Téléchargée 31 fois
Private Sub cote_Click() Dim cote As String cote = InputBox("entrez un côté du triangle", "coté") Dim hyp As String hyp = InputBox("entrez l'hypotenuse du triangle", "hypotenuse") Dim coteDouble As Double coteDouble = CDbl(cote) Dim hypDouble As Double hypDouble = CDbl(hyp) Dim cote2 As Double cote2 = (hypDouble * hypDouble) - (coteDouble * coteDouble) cote3 = Sqr(cote2) reponse = MsgBox("le 3° côté du triangle mesure " & cote3, vbOKOnly, "3°côté") End Sub Private Sub hypotenuse_Click() Dim cote1 As String cote1 = InputBox("Entrez un coté du triangle", "premier côté") Dim cote2 As String cote2 = InputBox("Entrez le deuxième coté du triangle", "deuxième côté") Dim cote1Double As Double cote1Double = CDbl(cote1) Dim cote2Double As Double cote2Double = CDbl(cote2) Dim hypDouble As Double hypDouble = (cote1Double * cote1Double) + (cote2Double * cote2Double) hypfin = Sqr(hypDouble) reponse = MsgBox("l'hypoténuse mesure " & hypfin, vbOKOnly, "hypotenuse") End Sub
16 janv. 2004 à 03:15
C tu que sa existe "Dim a as double, b as double, c as string"
29 déc. 2003 à 22:47
@+
18 déc. 2003 à 03:30
16 déc. 2003 à 13:35
@++
15 déc. 2003 à 19:58
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.