Инфоурок Другое ПрезентацииПрезентация на тему Решение задачи в VB, VBA(Word),VBA(Excel)

Презентация на тему Решение задачи в VB, VBA(Word),VBA(Excel)

Скачать материал
Скачать материал "Презентация на тему Решение задачи в VB, VBA(Word),VBA(Excel)"

Получите профессию

Менеджер по туризму

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Методические разработки к Вашему уроку:

Получите новую специальность за 3 месяца

Специалист по выставочной деятельности

Описание презентации по отдельным слайдам:

  • РЕШЕНИЕ ЗАДАЧИ Вводится последовательность чисел до тех пор, пока не будет вв...

    1 слайд

    РЕШЕНИЕ ЗАДАЧИ
    Вводится последовательность чисел до тех пор, пока не будет введено два равных числа подряд.
    Вывести элементы последова-тельности и посчитать их
    количество.
    Решение показано в Visual Basic,
    VBA (Word),
    VBA (Excel)

  • Запустить Visual Basic
РЕШЕНИЕ ЗАДАЧИ в Visual Basic

    2 слайд

    Запустить Visual Basic

    РЕШЕНИЕ ЗАДАЧИ в Visual Basic

  • Двойным щелчком зайти в программный код, в окне событий выбрать Activate, вве...

    3 слайд

    Двойным щелчком зайти в программный код, в окне событий выбрать Activate, ввести программу.
    Private Sub Form_Activate()
    Dim A(1 To 100) As Integer
    Dim i As Byte
    Dim k As Integer
    k = 2
    A(1) = Val(InputBox("", ""))
    A(2) = Val(InputBox("", ""))
    i = 1
    Do Until A(i + 1) = A(i)
    A(i + 2) = Val(InputBox("", ""))
    i = i + 1
    k = k + 1
    Loop
    For i = 1 To k
    Form1.Print A(i);
    Next i
    Form1.Print
    Form1.Print k
    End Sub

    Программа, в которой вывод идет на форму Form1

  • Программа, в которой вывод идет в файл C:\out.txt  Private Sub Form_Activate(...

    4 слайд

    Программа, в которой вывод идет в файл C:\out.txt
    Private Sub Form_Activate()
    Dim A(1 To 100) As Integer
    Dim i As Byte
    Dim k As Integer
    Open “c:\out.txt” For output as #1
    k = 2
    A(1) = Val(InputBox("", ""))
    A(2) = Val(InputBox("", ""))
    i = 1
    Do Until A(i + 1) = A(i)
    A(i + 2) = Val(InputBox("", ""))
    i = i + 1
    k = k + 1
    Loop
    For i = 1 To k
    Print #1, A(i);
    Next I
    Print #1,
    Print #1, k
    Close #1
    End Sub

    РЕШЕНИЕ ЗАДАЧИ в Visual Basic

  • РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 

 1.Запустить Microsoft Word 2003
2.Выполнить ук...

    5 слайд

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


    1.Запустить Microsoft Word 2003
    2.Выполнить указанную последовательность команд

  • РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 

 1.Запустить Microsoft Word 2007
2.Выполнить ук...

    6 слайд

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


    1.Запустить Microsoft Word 2007
    2.Выполнить указанную последовательность команд

  • РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 

 1.Нажать команду создать
2.Откроется окно прог...

    7 слайд

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


    1.Нажать команду создать
    2.Откроется окно программного кода
    3.Ввести программу

  • Sub последовательность() 
Dim A(1 To 100) As Integer
Dim i As Byte
Dim k As I...

    8 слайд

    Sub последовательность()
    Dim A(1 To 100) As Integer
    Dim i As Byte
    Dim k As Integer
    k = 2
    A(1) = Val(InputBox("", ""))
    A(2) = Val(InputBox("", ""))
    i = 1
    Do Until A(i + 1) = A(i)
    A(i + 2) = Val(InputBox("", ""))
    i = i + 1
    k = k + 1
    Loop
    For i = 1 To k
    Debug.Print A(i);
    Next i
    Debug.Print
    Debug.Print k
    End Sub

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


    Примечание .
    В Visual Basic
    слова Private Sub и End Sub пишутся
    автоматически при двойном щелчке
    по форме.
    В VBA
    слова Sub название_макроса()
    писать нужно самому.

  • РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 

 1.Запустить программу (нажать значок в виде тр...

    9 слайд

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


    1.Запустить программу (нажать значок в виде треугольника,
    как на магнитофоне «Плэй» или Run;
    2.Ответ отобразится в окне Immediate;
    3.Алгоритм появления данного окна:
    View – Toolbars – Debug – нажать на красный ! знак.

  • РЕШЕНИЕ ЗАДАЧИ в VBA (Excel) 

 1.Запустить Microsoft Excel 2007
2.Ввести в я...

    10 слайд

    РЕШЕНИЕ ЗАДАЧИ в VBA (Excel)


    1.Запустить Microsoft Excel 2007
    2.Ввести в ячейку А1 число 1,
    в ячейку А2 число 2.
    3.Нажать Вид – Макрос – ввести
    имя макроса – Создать –
    написать программу в открытом
    окне – запустить программу,
    нажатием на Run – ответ
    смотреть в окне Immediate.
    Sub последовательность()
    Dim A(1 To 100) As Integer
    Dim i As Byte
    Dim k As Integer
    k = 2
    A(1) = Range(“A1”)
    A(2) = Range(“A2”)
    i = 1
    Do Until A(i + 1) = A(i)
    A(i + 2) = Val(InputBox("", ""))
    i = i + 1
    k = k + 1
    Loop
    Debug.Print k
    End Sub

  • 11 слайд

  • 12 слайд

  • Пример ввода
1 2 3 5 5
Пример вывода
5Желаю  УДАЧИ !

    13 слайд

    Пример ввода
    1 2 3 5 5
    Пример вывода
    5
    Желаю УДАЧИ !

Получите профессию

Няня

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 626 985 материалов в базе

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 24.06.2020 319
    • PPTX 5.7 мбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Егорова Юлия Вячеславовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    Егорова Юлия Вячеславовна
    Егорова Юлия Вячеславовна
    • На сайте: 3 года и 3 месяца
    • Подписчики: 0
    • Всего просмотров: 98159
    • Всего материалов: 221

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой

Курс профессиональной переподготовки

Менеджер по туризму

Менеджер по туризму

500/1000 ч.

Подать заявку О курсе

Курс профессиональной переподготовки

Организация деятельности библиотекаря в профессиональном образовании

Библиотекарь

300/600 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 281 человек из 66 регионов

Курс профессиональной переподготовки

Руководство электронной службой архивов, библиотек и информационно-библиотечных центров

Начальник отдела (заведующий отделом) архива

600 ч.

9840 руб. 5900 руб.
Подать заявку О курсе

Курс профессиональной переподготовки

Библиотечно-библиографические и информационные знания в педагогическом процессе

Педагог-библиотекарь

300/600 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 457 человек из 66 регионов

Мини-курс

Методология и организация образовательного процесса по информатике

4 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Интегративный коучинг: от теории к практике

6 ч.

780 руб. 390 руб.
Подать заявку О курсе
  • Сейчас обучается 52 человека из 23 регионов

Мини-курс

Детская нейропсихология: особенности, диагностика, исследования

6 ч.

780 руб. 390 руб.
Подать заявку О курсе
  • Сейчас обучается 93 человека из 38 регионов