Оператор присваивания. Операторы управления выполнением программы

Операторы управления выполнением программы

End Sub

End With

End Sub

б) с применением инструкции With

Sub UsingWith()

With ActiveWorkbook.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 является точка.

Дата добавления: 2014-01-07