Sub макрос5() ' ' макрос5 макрос ' ' dim number as long dim names as string number = inputbox("введите номер курсанского") names = inputbox("введите фамилию имя отчество") dim sa as double dim step as long dim min_num as integer sa = number mod 10 step = 10 do dim this_num as integer this_num = ((number - number mod step) mod (step * 10)) / step sa = (sa + this_num) / 2 step = step * 10 loop while step < number first_space_index = instr(1, names, " ") last_space_index = instrrev(names, " ", len(names)) len_first_word = len(left(names, first_space_index - 1)) len_second_word = last_space_index - 1 - first_space_index len_third_word = len(names) - last_space_index if len_first_word < = len_second_word then if len_frist_word < = len_third_word then min_num = len_first_word else min_num = len_third_word end if elseif len_second_word < = len_third_word then min_num = len_second_word else min_num = len_third_word end if selection.wholestory dim words_count as integer words_count = selection.words.count selection.homekey unit: =wdstory for i = 1 to words_count selection.moveright unit: =wdword, count: =1, extend: =wdextend if len(selection.text) < = sa then selection.font.size = 18 selection.font.colorindex = wdred selection.font.spacing = 3 selection.font.bold = true end if if len(selection.text) > = min_num then selection.text = " okay " end if selection.moveright unit: =wdcharacter, count: =1 next i end sub разобраться в макросепоясните каждое действиезаранее огромное !
3*x-8 = x+6
3*x = 14 + x
2*x = 14
x = 14 / (2)
б) 7а-10=2-4а
7*a-10 = 2-4*a
7*a = 12 - 4*a
11*a = 12
a = 12 / (11)
в) 1/6y-1/2=3-1/2y
1/6*y-1/2 = 3-1/2*y
y/6 = 7/2 - y/2
2*y/3 = 7/2
y = 7/2 / (2/3)
y = 21/4
г) 2.6-0.2b=4.1-0.5b
(13/5)-(1/5)*b = (41/10)-(1/2)*b
13/5-1/5b = (41/10)-(1/2)*b
13/5-1/5b = 41/10-1/2b
-b/5 = 3/2 - b/2
3*b/10 = 3/2
3/10b = 3/2 / (3/10)
b = 5
д) p-1/4=3/8+1/2p
p-1/4 = 3/8+1/2*p
p = 5/8 + p/2
p/2 = 5/8
/2p = 5/8 / (1/2)
p = 5/4
е) 0.8-y=3.2+y
4/5)-y = (16/5)+y
4/5-y = (16/5)+y
4/5-y = 16/5+y
-y = 12/5 + y
-2*y = 12/5
-2y = 12/5 / (-2)
y = -6/5
ж) 2/7х=1/2
2/7*x = 1/2
x = 1/2 / (2/7)
x = 7/4
з) 2х-0,7=0
2*x-(7/10) = 0
2*x-7/10 = 0
2*x = 7/10
2x = 7/10 / (2)
x = 7/20