ВУЗ:
Составители:
Рубрика:
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
- …
- следующая ›
- последняя »