Рабочие листы
к вашим урокам
Скачать
1 слайд
РЕШЕНИЕ ЗАДАЧИ
Вводится последовательность чисел до тех пор, пока не будет введено два равных числа подряд.
Вывести элементы последова-тельности и посчитать их
количество.
Решение показано в Visual Basic,
VBA (Word),
VBA (Excel)
2 слайд
Запустить 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
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
слова Private Sub и 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
Желаю УДАЧИ !
Рабочие листы
к вашим урокам
Скачать
6 626 985 материалов в базе
Настоящий материал опубликован пользователем Егорова Юлия Вячеславовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
600 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
6 ч.
Мини-курс
6 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.