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

Презентация: Решение задачи в VB, VBA(Word),VBA(Excel)
1 из 13
Ваша оценка презентации
Оцените презентацию по шкале от 1 до 5 баллов
  • 1
  • 2
  • 3
  • 4
  • 5
3.0
1 оценка

Комментарии

Нет комментариев для данной презентации

Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.


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

Аннотация к презентации

Посмотреть презентацию на тему "Решение задачи в VB, VBA(Word),VBA(Excel)" для 11 класса в режиме онлайн. Содержит 13 слайдов. Самый большой каталог качественных презентаций по информатике в рунете. Если не понравится материал, просто поставьте плохую оценку.

Содержание

  • Презентация: Решение задачи в VB, VBA(Word),VBA(Excel)
    Слайд 1

    РЕШЕНИЕ ЗАДАЧИ

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

  • Слайд 2

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

  • Слайд 3

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

    Двойным щелчком зайти в программный код, в окне событий выбрать 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

  • Слайд 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

  • Слайд 5

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить Microsoft Word 2003 2.Выполнить указанную последовательность команд

  • Слайд 6

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Запустить Microsoft Word 2007 2.Выполнить указанную последовательность команд

  • Слайд 7

    РЕШЕНИЕ ЗАДАЧИ в VBA (Word) 1.Нажать команду создать 2.Откроется окно программного кода 3.Ввести программу

  • Слайд 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 слова PrivateSub и End Sub пишутся автоматически при двойном щелчке по форме. В VBA слова Sub название_макроса() писать нужно самому.

  • Слайд 9

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

  • Слайд 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
  • Слайд 13

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

Посмотреть все слайды

Сообщить об ошибке