Программирование логической игры на visual basic
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая
... k = 1 Then Label8.Caption = Label56.Caption If k = 1 Then Label8.BackColor = Label56.BackColor If k = 1 Then Label8.ForeColor = Label56.ForeColor If k ...
... Then Label23.ForeColor = Label56.ForeColor If k = 17 Then Label24.Caption = Label56.Caption If k = 17 Then Label24.BackColor = Label56.BackColor If k ...
Програмирование на Visual Basic
[нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат
... 13) + Chr$(10) Check2.Enabled = False End If End Sub Private Sub Check3_Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else Listi.Columns = 2 End ...
... Elself Combo2.Text = "черный" Then LabelS.BackColor = &HO Elself Combo2.Text = "Синий" Then LabelS.BackColor = &HFFOOOO Elself Combo2.Text = "Зеленый" ...
Решение экономических задач с помощью VBA
[нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая
... For p = 2 To 6 If p = 2 Then For j = 1 To k + 1 A(j) = Cells(j + 3, 2).Value Next j End If If p > 2 Then For j = 1 To k + 1 A(j) = Cells(j + 3, p + 5) ...
... For n = 1 To k + 1 m = -1 For j = 1 To n If m < A(j) + r(n + 1 - j, p) Then m = A(j) + r(n + 1 - j, p) End If Next j Cells(n + 3, 6 + p).Value = m l ...
Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов
[нестрогое соответствие]
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая
... Init() Cng_List (False) n = 0 For i = 1 To m For j = 1 To m A(i, j) = 0 Next j Next i Sheet2.Visible = xlSheetHidden Sheet3.Visible = xlSheetHidden ...
... Введите матрицу А из файла") Else If Sheet3.Cells(i + 3, j) = "" Then A(i, j) = 0 ' заполнение матрицы с клавиатуры Else A(i, j) = Sheet3.Cells(i + 3, ...
Индексированные элементы управления
[нестрогое соответствие]
Программирование и комп-ры, Индексированные элементы управления , Лекции
... End If Command1.Caption < Command3.Caption Then End If Command1.Caption < Command4.Caption Then End If Command1.Caption < Command5.Caption Then End If ...
... End If Command2.Caption < Command3.Caption Then End If Command2.Caption < Command4.Caption Then End If Command2.Caption < Command5.Caption Then End If ...
Программа на Delphi
[нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад
... End; {конец описания процедуры MatrMult} Procedure Prim; {заголовок процедуры Prim} Var i, j: Integer; Begin For i:= 1 to n do {блок задания элементов ...
... что Warn1, но в 4 строки} var i,j: byte; begin i:=Length(s1); j:=i; i:=Length(s2); if (i>j) then j:=i; i:=Length(s3); if (i>j) then j:=i; i:=Length(s4 ...
VBA Платежка
[нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая
... отнимает 1 день от даты If IsDate(Дата) = True Then Дата = CDate(Дата) - 1 Else End If End Sub Private Sub Плюс_Click() ' прибавляет один день к дате ...
... ByVal KeyAscii As MSForms.ReturnInteger) If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0 End Sub Private Sub УНН_KeyPress(ByVal KeyAscii As ...
Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов
[нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом
... begin BtnNext.Font.Color:=clWindowText; BtnNext.Caption:='finished'; LabelInput.Font.Color:=clRed; LabelInput.Visible:=True; end else begin BtnNext. ...
... begin BtnNext.Font.Color:=clWindowText; BtnNext.Caption:='finished'; LabelInput.Font.Color:=clRed; LabelInput.Visible:=True; end else begin BtnNext
Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей
[нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним
... For i:=1 to 7 do begin {---- deltaA-deltaB > d(AB) then change mark} {} if (vertexArr[j].marked) AND (not(vertexArr[i].marked)) then begin vertexArr[i ...
... vertexArr[sender].mark.prevPtr; push(k); While k<>target do begin push(vertexArr[k].mark.PrevPtr); k:=vertexArr[k].mark.PrevPtr; End; End; Procedure
Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
[нестрогое соответствие]
Программирование и комп-ры, Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic ...
... Label19.Caption = "" Label20.Caption = "" Label21.Caption = "" Label22.Caption = "" Fotd = 0 Oos = 0 Oobakt = 0 Ozap = 0 Odz = 0 Oba = 0 Oksk = 0 a ...
... s510 = 0 If s730 = "" Then s730 = 0 If s740 = "" Then s740 = 0 If s735 = "" Then s735 = 0 tekpassiv = c - s500 - s510 - s730 - s735 - s740 Label15. ...