Пример программы / VBA для чайников / Библиотека (книги, учебники и журналы) / В помощь Веб-Мастеру

Обложка
Аннотация

Стив Каммингс i

Книги автора: VBA для чайников

/ White Cat i

Книги автора: Введение в Python Описание языка PascalABC.NET S. D. F. Справочкик по JavaScript Справочник по CSS Справочник по PHP Справочник по Flash Язык программирования Euphoria. Справочное руководство Программирование на Java Основы программирования на Java Графика DirectX в Delphi VBA для чайников Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/FireBird/Yaffil Фундаментальные алгоритмы и структуры данных в Delphi Курс "Язык программирования PHP"

Книга: VBA для чайников

Пример программы

Чтобы сделать обсуждение иерархии VBA-элементов немного менее абстрактным, давайте рассмотрим приведенный ниже программный код модуля. Этот модуль содержит все упомянутые выше элементы (за исключением проекта, поскольку модули содержатся в проектах, а не наоборот). После текста модуля идет обсуждение составляющих его элементов.

Думаю, сначала нужно объяснить, что делают в этом примере программы. Сначала создается совокупность (.массив) из шести целых величин, которым приписываются случайные значения от 1 до 1000. Затем после подсчета числа значений, превышающих определенное пороговое значение, а именно значение 500, полученный результат отображается в небольшом диалоговом окне.


Option Explicit
Const Maximum As Integer = 500
Const HowMany As Integer = 5
Dim ListOfNumbers() As Integer
Sub MAIN()
_ Dim ItemsInList, n, x As Integer
_ ReDim ListOfNumbers(HowMany)
_ Randomize
_ For x = 0 To HowMany
        ListOfNumbers(x) = int( ( 1000 * Rnd) + 1)
    
        
            
                
                    
                        
                            
                            
                            
                        
                    
                
            
            
	    

_ Next x
_ n = CountBigNumbers()
_ MsgBox (There were   n   values greater than   _
_ Maximum)
End Sub
Function CountBigNumbers()
_ Dim Counter As Integer, y As Integer
_ Counter = 0
    

_ For = 0 To HowMany
    If ListOfNumbers(y)  Maximum Then
            Counter = Counter + 1
    End If
_ Next у
_ CountBigNumbers = Counter
End Function

Весь этот блок программного кода в своей совокупности представляет собой модуль. Он состоит из ряда операторов, организованных в три раздела. Это раздел объявлений, начинающийся оператором Option Explicit, процедура типа Sub, начинающаяся оператором Sub

MAIN(). и процедура типа Function, начинающаяся оператором Function CountBigNumbers ( ). Большинство операторов этого модуля занимают по одной строке, но оператор в строке, начинающийся с выражения MsgBox, заканчивается в следующей строке.

Оглавление книги

Оглавление статьи/книги

Похожие страницы