Основные возможности Visual Basic. Макова Н.Е. - 39 стр.

UptoLike

Составители: 

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