ВУЗ:
Составители:
Рубрика:
39
Если надо объединить несколько текстовых строк в одну,
используется символ конкатенации & (амперсенд). С помощью
амперсенда можно объединять и числовые значения. При этом
числа сначала будут преобразованы в строки. Результат тоже бу-
дет строкой.
Упражнение 2.3.
Пример объединения строк показан на примере небольшой
программы расчета площади прямоугольника. Стороны прямо-
угольника вводятся через окна ввода. Результат выполнения про-
граммы выводится через окно сообщений
Sub Form_Load ()
Dim Storona1 As Single, Storona2 As Single, Rezultat As Single
Storona1 = InputBox("Введите первую сторону прямоугольни-
ка", "Площадь_ прямоугольника")
Storona2 = InputBox("Введите вторую сторону прямоугольни-
ка", "Площадь_ прямоугольника")
Rezultat = Storona1 * Storona2
MsgBox "Площадь прямоугольника = " & Rezultat & " квадрат-
ных_ сантиметров"
End Sub
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
Если надо объединить несколько текстовых строк в одну,
используется символ конкатенации & (амперсенд). С помощью
амперсенда можно объединять и числовые значения. При этом
числа сначала будут преобразованы в строки. Результат тоже бу-
дет строкой.
Упражнение 2.3.
Пример объединения строк показан на примере небольшой
программы расчета площади прямоугольника. Стороны прямо-
угольника вводятся через окна ввода. Результат выполнения про-
граммы выводится через окно сообщений
Sub Form_Load ()
Dim Storona1 As Single, Storona2 As Single, Rezultat As Single
Storona1 = InputBox("Введите первую сторону прямоугольни-
ка", "Площадь_ прямоугольника")
Storona2 = InputBox("Введите вторую сторону прямоугольни-
ка", "Площадь_ прямоугольника")
Rezultat = Storona1 * Storona2
MsgBox "Площадь прямоугольника = " & Rezultat & " квадрат-
ных_ сантиметров"
End Sub
39
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
Страницы
- « первая
- ‹ предыдущая
- …
- 37
- 38
- 39
- 40
- 41
- …
- следующая ›
- последняя »
