Содержание
- 2. Типы Integer Double String Boolean Date Variant Type Point x as Double y as Double End
- 3. Переменные Dim x Dim y as Integer Dim z as New Collection Dim a(1 to 10)
- 4. Объекты Пример 1 Dim r As Range Set r = Range("A1") r.Value = 5 r.AddComment ("Test")
- 5. Процедуры Sub ( [Parameters] ) … End Sub Процедура не возвращает значений Пример Sub PrintLog (text
- 6. Функции Function ( [Parameters] ) as … = End Function Пример Function axpy (a as Double,
- 7. Операторы
- 8. Условный оператор If Then … [ Else | ElseIf Then … ] End If Пример If
- 9. Цикл For For = To [ Step ] … Next [ ] Пример For i=1 To
- 10. Цикл For Each For Each [ As ] In … Next Пример Dim a() As Variant
- 11. Цикл Do Do [ While ] … [ Exit Do ] … Loop Пример i =
- 12. Пример1 : поиск корней ax2+bx+c=0
- 13. Чтение программ Function ToString(value) If IsArray(value) Then For Each x In value ToString = ToString &
- 14. Сортировка выбором Массив A(1..N) Массив A(1..N) Для i=1 до N-1 Элементы A(1)..A(i) отсортированы Найти минимальный элемент
- 15. Чтение программ: сортировка выбором Function ToString(value) … End Function Sub SelectionSort(A) For I = LBound(A) To
- 16. Поиск корней: F(x)=0 L,R DO x=(L+R)/2 F(x)=0? x Sign(F(x)) = Sign(F(L)) L=x R=x да да нет
- 17. Пример2 : поиск корней ax2+bx+c=0
- 19. Скачать презентацию