Оператор присваивания
Операторы управления выполнением программы
End Sub
End With
End Sub
б) с применением инструкции With
SubUsingWith()
WithActiveWorkbook.Worksheets(4).Range("A1").Font
.Bold = True
.Italic = True
.Size = 22
.Name = "Times New Roman"
.ColorIndex = 3
Worksheets(4).Select
Присваивание значений переменным осуществляется с помощью оператора присваивания. В этом операторе слева стоит имя переменной, а справа присваиваемое значение или выражение. Например:
Х=200*0.8/70
Y="Петров Семен Иванович"
Z=X/80+30
Операторы ввода-вывода
Одним из важнейших свойств программы является массовость. Она обеспечивается возможностью ввода различных исходных данных в программу и получения различных результатов без изменения кода самой программы. Кроме того, пользователю необходимо наблюдать результаты работы программы, что обеспечивается операторами вывода данных.
В Visual Basic возможны несколько способов ввода данных в программу. Одним из самых простых является использование функции InputBox, имеющей следующий синтаксис:
InputBox("<Текст подсказки>")
Например, при выполнении команды присваивания
S = InputBox("Введите А")
будет выведено стандартное окно.
После ввода значения в текстовое поле и нажатия кнопки Ok, переменной S будет присвоен введенный текст.
Следует иметь в виду, что функция InputBox() возвращает текстовое значение. Поэтому при необходимости ввести число, следует преобразовать возвращаемое значение в требуемый числовой тип. Для преобразования в основные числовые типы используются функции:
· CInt() – для преобразования в целый тип Integer;
· CSng() – для преобразования в вещественный тип Single.
Таким образом, для ввода целого значения N следует записать:
N = CInt(InputBox("Введите N"))
При преобразовании текстовых значений в вещественные с помощью функции CSng(), в окне InputBox в качестве разделителя целой и десятичной частей числа должна быть введена запятая (в выражениях разделителем является точка!). Если введен текст, не соответствующий образу числа, то функции CInt() и CSng() выдают сообщение об ошибке.
Для вывода результатов вычислений можно использовать процедуру MsgBox():
MsgBox (<текст>)
Выводимое значение должно иметь текстовый тип. Для преобразования числа любого типа в текст используется функция
CStr(<числовая переменная>)
Если в одном окне MsgBox требуется вывести несколько чисел, каждое из них следует преобразовать в текстовый тип и "склеить" оператором +, например, при выполнении фрагмента программы:
N = 5
Pi = 3.14
MsgBox(CStr(N)+" "+CStr(Pi))
будет выведено следующее окно.
Обратите внимание, что функция CStr(Pi) возвратила значение, разделенное запятой, несмотря на то, что в программе разделителем в числе 3.14 является точка.