Страница №2
Титульный лист
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ
ОДЕССКАЯ НАЦИОНАЛЬНАЯ МОРСКАЯ АКАДЕМИЯ
Кафедра теории автоматического управления и вычислительной техники
ЛАЬОРАТОРНАЯ РАБОТА №1
Разработка интерфейса и решения линейных программ
в среде Visual Basic
Выполнил курсант 1-го курса
факультета морского судовождения
группа 1111
Иванов И.И.
Дата выполнения 05.09.13
Одесса 2013
|
Задание к лабораторной работе
; при x = 3456.78× 10-6; d = - 0.81;
i = 0.333
Текст программы
Option Explicit
Private Sub Command1_Click()
On Error GoTo errorh
Me.CommonDialog1.Filter = "*(*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico)|*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico"
Me.CommonDialog1.FilterIndex = 0
Me.CommonDialog1.ShowOpen
Command2.SetFocus
Exit Sub
errorh:
If Err.Number = 32755 Then Exit Sub
End Sub
Private Sub Command3_Click()
End
End Sub
|