Dim p As Integer
Date: 2015-10-07; view: 432.
Dim c As Integer
Dim b As Integer
Dim a As Integer
Private Sub Command1_Click()
a = InputBox("Введите первую сторону треугольника")
b = InputBox("Введите вторую сторону треугольника")
c = InputBox("Введите третью сторону треугольника")
p = a + b + c
Debug.Print a, b, c, p
End Sub
Объявление
| Dim | a | As | Integer |
переводится так:
| Переменная величина | a | как | целое число |
то есть вы обязуете Visual Basic обращаться с переменной величиной a как с целым числом и ничем иным. Говорят, что "переменная a имеет типInteger". Аналогично объявлены и переменные b, c, p. Объявления будем пока писать выше процедур. Подробнее о местах, где можно делать объявления, написано в 17.2.
Запустите проект. Проверьте его работу.
Вместо четырех строк
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim p As Integer
можно для краткости написать одну:
Dim a As Integer, b As Integer, c As Integer, p As Integer
Но если вы захотите написать еще короче:
Dim a, b, c, p As Integer
то Visual Basic неправильно вас поймет.
Типы данных
Много ли прав на нашем балу у барона Integer? Посмотрим. Попробуем ввести дробное значение первой стороны треугольника - 2,3. Именно так - с запятой, а не точкой. Посмотрим результат. Visual Basic считает a целым числом 2. А теперь - 2,6. Visual Basic считает a целым числом 3. Все правильно. Наш барон высокомерно отказывается быть дробным числом и поэтому любое число, которое мы ему предлагаем, округляет до целого.
Предположим, мы этим недовольны. Мы желаем, чтобы все числа могли быть дробными. Пожалуйста! Для этого достаточно всех гостей объявить князьями. Вот так:
| <== previous lecture | | | next lecture ==> |
| Объявление переменных величин | | | Dim p As Single |