» » » Решение задачи в VB, VBA(Word),VBA(Excel)

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

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

скачать презентацию

Слайды презентации

Слайд 1: Презентация Решение задачи в VB, VBA(Word),VBA(Excel)
Слайд 1
РЕШЕНИЕ ЗАДАЧИ

Вводится последовательность чисел до тех пор, пока не будет введено два равных числа подряд. Вывести элементы последова-тельности и посчитать их количество.

Решение показано в Visual Basic, VBA (Word), VBA (Excel)

Слайд 2: Презентация Решение задачи в VB, VBA(Word),VBA(Excel)
Слайд 2
Запустить Visual Basic

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

Слайд 3: Презентация Решение задачи в VB, VBA(Word),VBA(Excel)
Слайд 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

Слайд 4: Презентация Решение задачи в VB, VBA(Word),VBA(Excel)
Слайд 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

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

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

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

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

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

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

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

Слайд 8: Презентация Решение задачи в VB, VBA(Word),VBA(Excel)
Слайд 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

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

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

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

Слайд 10: Презентация Решение задачи в VB, VBA(Word),VBA(Excel)
Слайд 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

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

Пример ввода 1 2 3 5 5 Пример вывода 5

Желаю УДАЧИ !
  • Яндекс.Метрика
  • Рейтинг@Mail.ru