Студенты-Программеры

sub pifagor()
dim i,j as integer
for i=1 to 10
for j=1 to 10
workscheets(’Лист1′) cells(i,j)
value=i*j
next
exit
end sub

sub podchet()
dim i,j as integer
dim temp as string
j=0
temp=inputBox(”введите слово“) for i=1 to ActiveDocument._words.count
if ActiveDocument._words(i)._text=temp then j=j+1
end if
msgBox(j)
end sub

sub Cursiv()
dim i as integer
for i=1 to ActiveDocument._Paragraphs.count
ActiveDocument.Paragraphs(i)._range.words(1).italic=true
next i
end sub