Похожие работы на «Считывание данных из гостевой книги в таблицу»
Считывание данных из гостевой книги в таблицу
Программирование и комп-ры, Считывание данных из гостевой книги в таблицу, Курсовая
... End Sub Sub ProcessContact() On Error GoTo MyErrorTrap Dim strFname As String Dim strLname As String Dim strCname As String Dim strSt1 As String Dim ...
As String Dim strCity As String Dim strRegion As String Dim strPostalCode As String Dim strCountry As String Dim strEmailAddr As String Dim intFirst ...
Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов
[нестрогое соответствие]
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая
... и столбцам 3. Минимальные значения по строкам и столбцам Option Explicit Const m = 15 Dim i, j, k As Integer Public Obr As Byte Dim n, A(m, m), L(m) ...
... метку End If End If End If If Sheet1.OptionButton2.Value = True Then ' Ввод матрицы из файла Open "C: ile1" For Input As #2 - открывает файл для ...
Обработка экономической информации средствами языка Pascal
[нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая
... используйте клавишу '); write(' Для продолжения -'); c:=readkey; delline; if c=#32 then ww:=ww-1 else break; end; end; Вывод данных в таблицу пока не ...
... begin textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n) ...
Модули, записи и файлы
[нестрогое соответствие]
Программирование и комп-ры, Модули, записи и файлы, Курсовая
WITH <переменная> DO <оператор> Здесь WITH, DO - ключевые слова (с, делать); <переменная> - имя переменной типа запись, за которым, возможно, следует ...
... Erase ( var f ); Основным параметром этих процедур является файловая переменная (она может идентифицировать файл любого типа, и к ней должна была быть ...
Курс лекций по V B 5.0
[нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция
... If выражение Then | |несколько операторов |оператор | |Else |Else If выражение Then | |необяза- |оператор | |несколько операторов тельно |. | |End If ...
... объект "TableDef для каждой из 3-х таблиц Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field " объект Field "для каждого поля каждой ...
Касса аэропорта
[нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая
... file of airport; i,i1,f:integer; buf:airport; k:char; name:string[30]; begin clrscr; writeln(' Поиск информации о пассажире:'); writeln(' Введите Ф.И. ...
... ch:=ReadKey; case ch of chr(80): стрелка вниз if punkt1) then begin gotoxy(x,y+punkt-1); write(menu[punkt]); punkt:=punkt-1; textattr:=sel; gotoxy(x,y ...
Турбо Паскаль 7.0
[нестрогое соответствие]
Программирование и комп-ры, Турбо Паскаль 7.0, Реферат
... приветствия} WriteLn('How old are you?'); {Вопрос о возрасте} ReadLn(Age); {Ввод возраста} if 12 < Age then WriteLn(Reply1 ); if (12 <= Age) and (Age ...
... это с помощью так называемых "программных скобок" - операторов begin и end. begin <оператор1>; < оператор 2>; < оператор М> end; Любая группа ...
Из опыта создания универсальных тестовых редакторов
[нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты
... правильных ответов} Writeln('количество правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 Then Begin Writeln('5') Writeln(b1, ...
... установка времени} z1:=z; Window(10,10,40,12); {окно пароля} TextBackGround(magenta); clrscr; Readln(u,a); If length(a)>2 Then Begin{проверка наличия ...
Программатор ПЗУ (программный интерфейс)
[нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс),
... begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; goto RePaint; end; $51: begin inc(l1, ...
... Key=chr(13))or(Key=chr(27)); Color(7,1); If Key=chr(13) Then Begin FindFirst(filx^[curp+curps-1],00,i); If DOSERROR<>0 Then Begin chdir(filx^[curp
Автоматическое рабочее место для работника склада
[нестрогое соответствие]
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая
... Bas.kol>List[j].kol then begin Bas:=List[j]; k:=j end; 3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end; 5: if Bas.kol_p>List[j].kol_p ...
... begin Bas:=List[j]; k:=j end; end; end; List[k]:=List[i]; List[i]:=Bas; end; end; procedure Vivlist(var seek,curs:integer); var c,k:char; i:integer; ...
