Visual Basic

ПР. Проект «Оптимальный вес».

В системе программирования VB создать проект «Оптимальный вес», позволяющий вычислить оптимальный и лишний вес ребенка.

1.   Запустите MS Visual Studio.

2.   Создайте новый проект.

3.   Поместите на форму :

4.   Объявление переменных.

      Dim weight As Integer         ‘вес

    Dim growth As Integer         ‘рост

    Dim optimalweight As Integer  ‘оптимальный вес

    Dim overweight As Integer     ‘лишний вес     Dim underweight As Integer    ‘недовес 

5.   Кнопка «Определить» (Button1).

 weight = Val(TextBox1.Text)  growth = Val(TextBox2.Text)  optimalweight = growth - 100

 Label3.Text = "Ваш оптимальный вес: " & optimalweight & " кг"    If (weight > optimalweight) Then       overweight = weight - optimalweight

      Label4.Text = "У Вас лишний вес: " & overweight & " кг"    Else

      underweight = optimalweight - weight

      Label4.Text = "Вам следует набрать " & underweight & " кг"    End If

6.   Запустите проект.  Введите свои данные (вес и рост) и определите свой оптимальный вес.

7.   Сохраните в папке «Мои программы».