Evo ti "ee" programčć koji tražiš, samo ga Iskopiraj, pa pomoću Notepada ili Wordpada,
napravi fajlu pod nazivom
bmi.vbs
evo programa:
m = CStr(m)
h = CStr(h)
m = InputBox("ukucajte masu u kilogramima")
h = InputBox("ukucajte visinu u metrima")
mm = InStr(1, m, ",", 1)
If mm > 0 Then m = Left(m, mm - 1) & "." & Right(m, Len(m) - mm)
hh = InStr(1, h, ",", 1)
If hh > 0 Then h = Left(h, hh - 1) & "." & Right(h, Len(h) - hh)
m = CSng(m)
h = CSng(h)
MsgBox "vaš BMI (indeks tjelesne mase) je:" _
& vbCrLf & m * 1.3 / h ^ 2.5