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


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

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

Слайды и текст этой презентации

Слайд 1РЕШЕНИЕ ЗАДАЧИ
Решение показано в Visual Basic,
VBA (Word),
VBA

(Excel)

РЕШЕНИЕ ЗАДАЧИ Решение показано в Visual Basic, VBA (Word), VBA (Excel)

Слайд 2Запустить Visual Basic

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

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

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

Двойным щелчком зайти в программный код, в окне событий выбрать Activate, ввести программу.Private Sub Form_Activate()Dim A(1 To

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

Программа, в которой вывод идет в файл C:\out.txt Private Sub Form_Activate()Dim A(1 To 100) As IntegerDim i

Слайд 5РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


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

указанную последовательность команд

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

Слайд 6РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


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

указанную последовательность команд

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

Слайд 7РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


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

программного кода
3.Ввести программу

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

Слайд 8Sub последовательность()
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 название_макроса()
писать нужно самому.

Sub последовательность() Dim A(1 To 100) As IntegerDim i As ByteDim k As Integerk = 2A(1) =

Слайд 9РЕШЕНИЕ ЗАДАЧИ в VBA (Word)


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

в виде треугольника,
как на магнитофоне «Плэй» или

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

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

РЕШЕНИЕ ЗАДАЧИ в VBA (Excel) 1.Запустить Microsoft Excel 20072.Ввести в ячейку А1 число 1,  в ячейку

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

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

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика