Похожие работы на «Создание программных продуктов для решения задач»

Создание программных продуктов для решения задач
Кибернетика, Создание программных продуктов для решения задач, Курсовая ... Sub Комманда3_Click() For I = 1 To 7 MSFlexGrid1.TextMatrix(I, 3) = Текст3.Text * MSFlexGrid1.TextMatrix(I, 2) Next I End Sub "ПОГРЕШНОСТЬ Private Sub ...
... End Begin VB.Menu mnuФайл Caption = "Файл" Begin VB.Menu mnuОткрыть Caption = "Открыть" End Begin VB.Menu mnuВыход Caption = "Выход" End End Begin VB. ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... Chr$(10) Labell.Enabled = False Combo2.Enabled = True Label2.Enabled = True End Sub Private Sub Combo2_Click() Combo2.Enabled = False Label2.Enabled ...
... Variant If KeyAscil = 13 Then Poisk = Text4.Text FindCriteriy = "Name =" ... & Poisk & """ Datal.Recordset.FindFirst FindCriteriy If Datal.Recordset. ...


Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... As Long FileName As String CreateDateTime As String UsedProgramm As Long Discription As String ImageIcon As String ImageText As String X As Integer Y ...
... Single) If Button = 1 Then ImageIcon(Index).Drag End If End Sub Private Sub ImageIcon_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X ...


Расчет финансового левериджа [нестрогое соответствие]
Экономико-математическое моделирование, Расчет финансового левериджа , Работа Курсовая ... TextBox V_PR_AK Height = 375 Left = 3240 TabIndex = 4 Text = "0" Top = 1560 Width = 2295 End Begin TextBox V_obl Height = 375 Left = 3240 TabIndex = 1 ...
... Расчет #" + Str(kol + 1) v_pr_ak.Text = "0" v_obl.Text = "0" v_ob_ak.Text = "0" End Sub Sub EXT_Click () End End Sub Sub Form_Load () kol = 0 summa ...


Создание автоматизированной системы расчета трудоемкости разработки и сопровождения программных средств [нестрогое соответствие]
Программирование и комп-ры, Создание автоматизированной системы расчета трудоемкости разработки и сопровождения программных средств , Рефераты ... добавлена стадия или нет Public Function checkStage(ByVal index As Integer) As Boolean If Stage(index) = -1# Then checkStage = False Else checkStage ...
... добавлено Ksli или нет Public Function checkKsli(ByVal index As Integer) As Boolean If KsliPr(index) = 0# Then checkKsli = False Else checkKsli = True ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... 300,300,i); delay(10); end; Вывод на экран окружности, уменьшающей свой радиус. for i:=399 downto 0 do begin setcolor(i); сircle(322,250,i); delay(10) ...
... delay(1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; ...


Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ [нестрогое соответствие]
Программирование и комп-ры, Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ , Рефераты ... Dim t(10) As Single Dim p As Integer Dim per As Integer Dim i, j As Integer Dim a1(50) As Single Dim a2(10) As Single Dim a3(10) As Single Dim a4(10) ...
... Single Dim maw(40) As Single Dim buf1 As Single Dim buf2 As Single Dim buf3 As Single Dim buf4 As Single Dim buf5 As Single Dim buf6 As Single Dim buf ...


Разработка приложений на языке 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 ...
... xlSheetVisible Call InitS Sheet1.Activate Call Init End Sub Sub Button5_Click() Call InitS Sheet3.Visible = xlSheetVisible Sheet1.Activate Call Init ...


Решение экономических задач с помощью VBA [нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая ... Integer Dim Mas_I1(3) As Integer B = Worksheets("Задание1").Range("B11").Value c = Worksheets("Задание1").Range("C11").Value D = Worksheets("Задание1" ...
... покупки) - (buy(i) - buy(j)) * (Цена_покупки - Цена_возврата) Next j Next i CALC = Result End Function Sub Begin() Worksheets("Содержание").Activate ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция ... в массив 1. Определяем тип пользователя Type StudentRecord Name As String Adress As String End Type 2. Объявляем массив записей типа Student как ...
... для каждой из 3-х таблиц Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field " объект Field "для каждого поля каждой таблицы Dim AuIdx ...