Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.24
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.24

4. Простейшие функции и процедуры. Типы переменных

C=InputBox("Введите С", "Ввод данных", " ") D=0

For 1=1 То N D=D+C*I Next I

MsgBox("Результат равен D="&D) End Sub

Диалоговое окно, заданное функцией InputBox, имеет заголовок «Ввод данных», а в самом диалоговом окне содержится приглашение «Введите С». В окне вывода, заданном функцией MsgBox, выводится сообщение «Результат равен D=30», если С=2.

Отметим, что в приложении VBA многие инструкции могут восприниматься и как функции и как операторы. Например, в записи функции MsgBox можно опустить круглые скобки и тогда такая запись будет восприниматься как оператор. Сказанное выше справедливо для MsgBox, InputBox, Open, Print, Close и некоторых других конструкций.

Если есть необходимость вывода результата вычислений не в ячейки рабочей книги приложения MS Excel, а в активный документ приложения MS Word, то можно использовать оператор (метод) TypeText.

В рассмотренной ниже процедуре результат вычисления элементов матрицы G выводится в документ приложения MS Word. Ввод данных осуществляется с помощью функции InputBox.

Sub Макро() Dim G(2,2) As Double Dim С(2) As Double Dim I As Integer Dim J As Integer Dim S As String

For 1=0 To 2 Л Ввод данных

5="Введите С("&Str$(I)&")" С(I)=InputBox(S,"Ввод массива"," ")

Next I S="MaccHB G"

Selection.TypeText S Л вывод текста

x "Массив G"

Программирование в среде Visual Basic for Applications

Selection.TypeParagraph л переход к следующей строке For 1=0 То 2 ' вычисление значений массива

For J=0 То 2

If (K=J) Then G(I, J)=C(I) *C(I) Else G(I,J)=C(I) Л вывод нового элемента в активный документ Selection.TypeText G(I,J)&Chr(9) Next J

Selection.TypeParagraph Л переход к следующей строке Next I End Sub

Отметим, что функция Chr$(9) возвращает символ табуляции.

В активный документ выводится заголовок «Массив G», затем осуществляется переход на следующую строку. В каждой строке выводятся три числа, разделенные символом табуляции.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta