برنامج nsb
مساء الخير
ابي كود لحساب كتلة الجسم في برنامج nsb
انا جربته وماتطلع النتيجه صحيحه معي ؟؟
ممكن تستكشفوا معي موقع الخطأ
Dim w,t,k
Function Button4_onclick()
w=CInt(TextBox10.value)
t=CInt(TextBox11.value)
k=CInt(w/(t*t))
TextBox12.value=k
If k<20 Then
MsgBox "نحيف "
End If
If k>=20 & k<=25 Then
MsgBox " وزن طبيعي"
End If
If k > 25 And k<= 30 Then
MsgBox "وزن زائد"
End If
If k > 30 Then
MsgBox " سمنة مفرطة"
End If
End Function
Function Button5_onclick()
TextBox8.value=""
TextBox9.value=""
TextBox10.value=""
TextBox11.value=""
TextBox12.value=""
End Function
|