Kilo İndeksi Hesaplama VBS Kodu

' Kilo İndeksi Hesaplama VBS Kodu

' Kullanıcıdan boy ve kilo bilgilerini al
Dim boy, kilo, bmi, durum

boy = InputBox("Lütfen boyunuzu (metre cinsinden) girin:", "Boy Girişi")
kilo = InputBox("Lütfen kilonuzu (kilogram cinsinden) girin:", "Kilo Girişi")

' Kilo indeksini hesapla
If IsNumeric(boy) And IsNumeric(kilo) And boy > 0 Then
    bmi = kilo / (boy * boy)
   
    ' BMI değerine göre durumu belirle
    If bmi < 18.5 Then
        durum = "Zayıf"...