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



Програмирование на 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 ...
... Chr$(13) + Chr$(10) If Combo2.Text .= "Красный" Then LabelS.BackColor = &HFF& Elself Combo2.Text = "Белый" Then LabelS.BackColor = &HFFFFFF Elself ...



Индексированные элементы управления [нестрогое соответствие]
Программирование и комп-ры, Индексированные элементы управления , Лекции ... 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 ...



Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... X, .Y, .DocumentsAndFunctionsLink, _ .OutputFunPointCo, .OutputDocPointCo, .InputFunPointCo, _ .InputDocPointCo For b = 0 To .OutputFunPointCo Write ...
... 0 To .OutputDocPointCo Input #FileNumber, .OutputDocPoints(b) Next b End If If .InputFunPointCo <> -1 Then ReDim .InputFunPoints(.InputFunPointCo) For ...



Решение экономических задач с помощью VBA [нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая ... 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 = t For j = 1 To n If m = A(j) + r(n + 1 - j, p) ...
... БД").Cells(i, 12).Value = " M " If UserForm1.OptionButton6 = True Then Worksheets("БД").Cells(i, 12).Value = " Ж " Worksheets("БД").Cells(i, 3).Value ...



Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция ... Print "символ найден" Else Print "Не найден" End If = LСase, = UСase - преобразует все символы строки в нижний (верхний) регистр Вместо Lcase $ Ucase$ ...
... оператор Например, If N>=0 and N<=9 Then Print "Ok" Если в выражении If __ Then обрабатывается несколько операторов, тогда используется так называемый ...



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 ...



Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... OpCode[1], CharPos-k); SkipBT; if Stop then goto EndParseLine; (* at first operand *) k := CharPos; SkipUBTC; (* Operand1 := Copy(Line, k, CharPos-k) ...
... k, CharPos-k); *) Operand2[0] := Chr(CharPos-k); Move(Line[k], Operand2[1], CharPos-k); end; 'W': if Operand2 = 'WORD' then begin TypeOverride := W; ...



Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... else St2 else St3; эквивалентен оператор if L1 then begin if L2 then St1 else St2; end else St3; В этом операторе для повышения структурированности ...
... Inc(i); h:=InputStr('Введите пароль ...',St,1); if h then b:= (St=RealParol); if not b and h then Warn1('Ошибка'); Until b or (i=3) or (not h); Result ...



Нахождение опорного плана транспортной задачи [нестрогое соответствие]
Программирование и комп-ры, Нахождение опорного плана транспортной задачи, Курсовая ... imax,SubRow[imax,1]]:=min(a[imax],b[SubRow[imax,1]]); a[imax]:=a[imax]-d[imax,SubRow[imax,1]]; b[SubRow[imax,1]]:=b[SubRow[imax,1]]-d[imax,SubRow[imax ...
... 0; for j:= 0 to n-1 do sumb:=sumb+b[j]; lblCustomer.Caption:=IntToStr(sumb); if sumb<>suma then begin lblTypeTask.Caption:='Открытая'; If sumb>suma ...