Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке 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 ...