Похожие работы на «Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ »

Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\
Программирование и комп-ры, Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ , Рефераты End If Command1.Enabled = False "Делает недоступной кнопку нахождения ВВП Command2.Enabled = False 'Делает недоступной кнопку рассчета max прироста ...
... прироста ВВП Drive1.Enabled = False "Делает недоступным DribeListBox Dir1.Enabled = False "Делает недоступным DirListBox End Sub Private Sub Form_Load ...


Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов [нестрогое соответствие]
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая ... For i = 1 To m For j = 1 To m A(i, j) = 0 Next j Next i Sheet2.Visible = xlSheetHidden Sheet3.Visible = xlSheetHidden End Sub Sub InitS() For i = 1 To ...
... xlSheetHidden Then MsgBox ("Введите матрицу А из файла") Else If Sheet3.Cells(i + 3, j) = "" Then A(i, j) = 0 ' заполнение матрицы с клавиатуры Else A ...


VBA Платежка [нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая ... True Then Дата = CDate(Дата) - 1 Else End If End Sub Private Sub Плюс_Click() ' прибавляет один день к дате If IsDate(Дата) = True Then Дата = CDate( ...
... KeyAscii) Like "[0-9]")) Then KeyAscii = 0 End Sub Private Sub УНН_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (Not (Chr(KeyAscii) Like "[0-9 ...


Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... pro1.prj" End End Sub Private Sub ImageIcon_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 ...
... False Combo1.Enabled = False Rename.Enabled = False Path.Enabled = False Discrip.Enabled = False ListExt.Enabled = False Path.Text = "" Discrip.Text ...


Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic [нестрогое соответствие]
Программирование и комп-ры, Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic ... ... Средняя стоимость имущества", "Фондоотдача") If Text1.Text = "" Then GoTo M If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text Fotd = (a / b ...
... Оборачиваемость запасов") If Text1.Text = "" Then GoTo M If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text Ozap = (a / b) Label19.Caption ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... End End Sub Private Sub Command5_Click() Check2.Enabled = False Check4.Enabled = False Frame2.Enabled = False HScroill.Enabled = False Label4.Enabled ...
... False Command4.Enabled = False Check3.Enabled = False Commandl.Enabled = False Command6.Enabled = False Commands.Enabled = False End If End Sub Textl. ...


Игра на ловкость Змейка [нестрогое соответствие]
Программирование и комп-ры, Игра на ловкость Змейка, Курсовая ... Click() XDir = 1 YDir = 0 End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Форма_Змейка.Enabled = True Форма_Змейка.Form_ ...
... Exit_Click() КнопкаВыход_Click End Sub Private Sub NewGame_Click() КнопкаПовторить_Click End Sub Private Sub КнопкаВыход_Click() Unload Форма_Змейка ...


Модель файловой системы FAT [нестрогое соответствие]
Программирование и комп-ры, Модель файловой системы FAT, ... входа в FAT Name As String Size As Integer First As Integer End Type Sub PressAddFile() 'Макрос, вызываемый кнопкой "Добавить Файл" DialogSheets("Add" ...
... With DialogSheets("Add") NewFile.Name = .EditBoxes("Name").Text NewFile.Size = .EditBoxes("Size").Text End With Call AddFile(NewFile) 'Вызов процедуры ...


Записная книжка на Delphi 7 [нестрогое соответствие]
Программирование и комп-ры, Записная книжка на Delphi 7 , Работа Самостоятельная ... OnTimer нужно вставить следующий код: timer4.Enabled:=false; // выключить таймер 3 timer1.Enabled:=false;// выключить таймер 1 BitBtn4.Click;//нажать ...
... нужно вставить следующий код: if opendialog1.Execute then // открыть окно выбора файла mediaplayer1.FileName:=opendialog1.FileName; //записать путь к ...


Программирование логической игры на visual basic [нестрогое соответствие]
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая ... field(i, j) = 14 Then Label56.Caption = "End" If field(i, j) = 14 Then Label56.BackColor = &HFF& If field(i, j) = 14 Then Label56.ForeColor = &HFFFFFF ...
... field(i, j) = 0 Then Label56.BackColor = &HBBECF4 If field(i, j) = 0 Then Label56.ForeColor = &H80000008 If field(i, j) = 1 Then Label56.Caption = "-1 ...