Print "ЛІНІЯ "; і
Next i
End Sub
Приклад. Протабулювати функцію y = Sin(x) + 1
Для Text1.Text встановити наступні властивості
ScroollBars-Both
MultiLine-True
Введіть назви команд головного меню форми, для цього виконайте команду Tools=>Menu Editor
| Caption | Name |
| Обчислення | mnuCalc |
| Табулювання | mnuTabul |
| Очистити | mnuClear |
| Кінець | mnuFinish |
| Про програму | mnuAbout |
| Кінець | mnuEnd |
Запрограмуйте команди 
Private Sub mnuabort_Click()
MsgBox (" tsesliv")
End Sub
Private Sub mnuclear_Click()
Text1.Text = " "
End Sub
Private Sub mnuend_Click()
End
End Sub
Private Sub mnutab_Click()
Dim space, newline As String
Dim x, y As Double
newline = Chr(13) + Chr(10)
space = Chr(9)
Text1.Text = "X" + space + "Y" + newline
For x = Val(Text2.Text) To Val(Text3.Text) Step Val(Text4.Text)
y = Sin(x) + 1
If Check1.Value = Checked Then
Text1.Text = Text1.Text + Str(x) + space + Str(Format$(y, "0.000")) + newline
End If
Next x
End Sub
Знайти максимальне значення функції y = 3 * Sin(x + 2.6)
Private Sub Command1_Click()
x = 0
xmax = 0
Max = 3 * Sin(x + 2.6)
For n = 0 To 10
x = 0.1 * n
y = 3 * Sin(x + 2.6)
If Max < y Then Max = y: xmax = x
Next n
Print x; y
End Sub
Контрольні запитання
1.Як створити меню форми?
2.Як знайти максимальне значення функції?
Завдання для самостійного розв’язку.
1. Протабулювати функцію y=tg(x) на відрізку [0,π] з кроком h=0.1 і визначити середнє значення функції
2. Протабулювати функцію y=cos(x) на відрізку [0,π] з кроком h=0.1 і визначити мінімальне значення функції на цьому проміжку.
ПРАКТИЧНА РОБОТА 8
Використання таймерів
1. МЕТА РОБОТИ
Вивчення методики програмування обчислювальних процесів з. використанням таймерів.
2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ
2.1. Ознайомитися з теоретичним матеріалом.
2.2. Виконати задачі, для самостійної роботи.
Теоретичний матеріал
Створимо програму. Цифровий годинник
1. У меню File (Файл) вибрати команду New Project (Створити проект), потім клацнути на кнопці ОК.
2. Зменшити розмір вікна форми. Годинник не повинен займати занадто багато місця на екрані.
3. Клацнути на кнопці керування Timer (Таймер) на панелі керування.
4. Створити у лівій частині форми невеликий об'єкт типу таймер. При створенні таймера Visual Basic приводить його до стандартного розміру.
5. Клацнути на кнопці керування Label (Підписи) на панелі інструментів.
6. Створити поле в середині форми, щоб воно заповнило майже всю форму.
Ви будете використовувати поле Label для відображення часу. Ваша форма повинна виглядати так, як показано на малюнку.
Властивість Caption (Напис) формі, визначає ім'я, що відображується в заголовку вікна. 
7. Відкрити вікно Properties (Властивості) і надати наступне значення властивостям.
Об'єкт Властивість_____Установлене значення____
Labell Caption (Порожньо)
Font (Шрифт) Times New Roman, Bold, 24пункту
Alignment 2 – Center (По центру)
(Вирівнювання)
Timer1 Interval 1000
(Інтервал)
Enabled True (Істина)
(Включений)
Form1 Caption (Напис) Цифровий годинник
8. Двічі клацнути на об'єкті «таймер» у формі. У вікні Code з'явиться текст процедури Timer1 - Timer.
9. Ввести наступний оператор:
Private Sub Form_Load()
Label1.Caption = Time
End Sub
Цей оператор здійснює зчитування системного часу і присвоює його значення властивості Caption об'єкта Label1. У програмі потрібний тільки один оператор, оскільки значення властивості Interval (Інтервал) ми встановили у вікні Properties (Властивості). Всім іншим буде керувати таймер.
10. Закрити вікно Code, потім клацнути на кнопці Start (Пуск) на панелі інструментів для запуску годинника.
На екрані з'явиться годинник, як показано на рисунку.
11. Постежте якийсь час за показами годин-ника. Visual Basic поновлює покази годинника щосекунди. 
12. Клацнути на кнопці Close (Закрити) у заголовку, щоб завершити роботу годинника.
13. Клацнути на кнопці Save Project (Зберегти проект) і зберегти форму і проект під ім'ям MyDigClock.
Дана програма є дуже зручної, тому ви можете відкомпілювати програму MyDigClock у файл, що виконується, щоб запускати її надалі при роботі на вашому комп'ютері. При бажанні доповніть її власними художніми ефектами, текстом і кольором.
Створити програму
Private Sub Command1_Click() 
If Text1.Text = "секрет" Then
Timer1.Enabled = False
MsgBox ("ЛАСКАВО ПРОСИМО В
СИСТЕМУ ")
End
Else
MsgBox ("ВИБАЧТЕ Я ВАС НЕ ЗНАЮ ")
End If
End Sub
Контрольні запитання.
1. На якій закладці розташований компонент Timer ?
2. Властивості компонента Timer?
Завдання для самостійного розв’язку. Створити програму Персональний будильник.
ПРАКТИЧНА РОБОТА 9