2014-02-17
387
Титульный лист
| МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ ОДЕССКАЯ НАЦИОНАЛЬНАЯ МОРСКАЯ АКАДЕМИЯ Кафедра теории автоматического управления и вычислительной техники ЛАЬОРАТОРНАЯ РАБОТА №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
|
