Vba excel создание макросов 1. создать макрос с именем макрос_f, доступный во всей рабочей книге, в процессе активизации которого отображаются все формулы активного рабочего листа. для активизации использовать комбинацию клавиш ctrl+f. 2. создать макрос с именем макрос_nf, доступный во всей рабочей книге, в процессе активизации которого отключается режим отображения формул рабочего листа. для активизации использовать комбинацию клавиш ctrl+n. 3. разработать процедуру для автоматического подсчета количества переходов к рабочему листу таблица. 1.макрос_f 'макрос включения режима просмотра формул sub formulaviewon() activewindow.newwindow activeworkbook.windows.arrange arrangestyle: =xlhorizontal activewindow.displayformulas = true end sub 2.макрос_ 'макрос выключения режима просмотра формул sub formulaviewoff() if activewindow.windownumber = 2 then activewindow.close activewindow.windowstate = xlmaximized activewindow.displayformulas = false end if end sub 3.таблица dim res as long private sub workbook_beforeclose(cancel as boolean) msgbox res end sub private sub workbook_sheetactivate(byval sh as object) res = res - (sh.name = "таблица") end sub
Ответы
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько ячеек входят в блок ячеек
Автор: Bella Sergei
Как зайти в папку c: \ windows\ sistem 32|
Автор: buhh20104519
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.