Hallo ihr Lieben,
wir müssen für die Schule einen BMI programmieren, der in verschindenen Klassifkationen aufgeteilt ist.Aber wir kommen nicht weiter, Lehrer können uns auch nicht wirklich helfen. Das sieht dann ungefähr so aus:
__________________________________________________________________
private Sub Berechnen_Click()
Dim BMI As String
BMI = Gewicht / (Größe * Größe)
tb_Ausgabe = BMI
If BMI 40 And Geschlecht = männlich Then tb_Ausgabe = BMI & " massive Adipositas"
If BMI > 40 And Geschlecht = weiblich Then tb_Ausgabe = BMI & " massive Adipositas"
End Sub
___________________________________________________________________
Egal welcher BMI auusgerechtnet wird, es erscheint immer nur "ADIPOSITAS". Kann aber nicht sein.
Und kann man den BMI auch OHNE Nachkommastellen anzeigen lassen?
Helft uns bitte, bitte.
Grüße
Jessi |