{"id":618,"date":"2015-03-25T12:31:30","date_gmt":"2015-03-25T09:31:30","guid":{"rendered":"http:\/\/bsu.name\/news\/?p=618"},"modified":"2023-11-14T15:34:00","modified_gmt":"2023-11-14T12:34:00","slug":"kontrolnaya-rabota-po-vba","status":"publish","type":"post","link":"http:\/\/bsu.name\/news\/kontrolnaya-rabota-po-vba\/","title":{"rendered":"\u041a\u0430\u043a \u043f\u043e\u0434\u0433\u043e\u0442\u0432\u0438\u0442\u044c\u0441\u044f \u043a \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044c\u043d\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u0435 \u043f\u043e VBA"},"content":{"rendered":"<p><strong>VBA<\/strong> &#8212; \u043d\u0435 \u0441\u0430\u043c\u044b\u0439 \u0441\u043b\u043e\u0436\u043d\u044b\u0439 \u044f\u0437\u044b\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u0442\u0435\u043c \u043d\u0435 \u043c\u0435\u043d\u0435\u0435, \u0443\u0441\u043f\u0435\u0448\u043d\u043e\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044c\u043d\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u044b \u0442\u0440\u0435\u0431\u0443\u0435\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0439 \u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u043a\u0438.<br \/>\n<!--more--><\/p>\n<p>\u0420\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0431\u0430\u0437\u043e\u0432\u044b\u0445 \u0432\u043e\u043f\u0440\u043e\u0441\u043e\u0432, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u043e\u0433\u0443\u0442 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u0432 \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044c\u043d\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u0435 \u043f\u043e \u044f\u0437\u044b\u043a\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f VBA.<\/p>\n<p style=\"text-align: center;\">* * *<\/p>\n<p><strong>\u041f\u0435\u0440\u0432\u043e\u0435. <\/strong> \u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432 VBA. \u0412\u043e\u043f\u0440\u043e\u0441 \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u043a\u0430\u043a \u0432 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u0435 &#8212; \u043e\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f, \u0442\u0430\u043a \u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f.<\/p>\n<p>\u0422\u0435\u043c \u043d\u0435 \u043c\u0435\u043d\u0435\u0435, \u0438 \u0432 \u043e\u0434\u043d\u043e\u043c \u0438 \u0432 \u0434\u0440\u0443\u0433\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u0435\u0442\u0441\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, &#8212; \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0434\u0430\u0436\u0435 \u043a\u0430\u0436\u0443\u0449\u0435\u0433\u043e\u0441\u044f \u043f\u0440\u043e\u0441\u0442\u044b\u043c \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u043b\u0443\u0447\u0448\u0435 \u0434\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435, &#8212; \u043e\u043d\u0430 \u043d\u0430\u0439\u0434\u0435\u0442 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0433\u043e\u0440\u0430\u0437\u0434\u043e \u0431\u044b\u0441\u0442\u0440\u0435\u0435, \u0438, \u0433\u043b\u0430\u0432\u043d\u043e\u0435, \u043d\u0435 \u043e\u0448\u0438\u0431\u0451\u0442\u0441\u044f.<\/p>\n<p>\u0418\u0442\u0430\u043a, \u0435\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0432 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0438 \u043d\u0430 VBA \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, <strong>24 \\ 4 ^ 2 + 18 mod 4<\/strong>, \u0442\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e:<\/p>\n<p>1. \u0412\u043e\u0439\u0442\u0438 \u0432 \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440 VBA (<strong>\u0421\u0435\u0440\u0432\u0438\u0441\/\u041c\u0430\u043a\u0440\u043e\u0441\/\u0420\u0435\u0434\u0430\u043a\u0442\u043e\u0440 Visual Basic<\/strong> \u0438\u043b\u0438 \u0441\u043e\u0447\u0435\u0442\u0430\u043d\u0438\u0435 \u043a\u043b\u0430\u0432\u0438\u0448 <strong>Alt F11<\/strong>)<br \/>\n2. \u041f\u0440\u0438 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 &#8212; \u0432\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u041c\u043e\u0434\u0443\u043b\u044c VBA (<strong>Insert\/Module<\/strong>) \u0438\u043b\u0438 \u0432\u043e\u0439\u0434\u0438\u0442\u0435 \u0432 \u0443\u0436\u0435 \u0438\u043c\u0435\u044e\u0449\u0438\u0439\u0441\u044f.<br \/>\n3. \u0412\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u0432 \u043c\u043e\u0434\u0443\u043b\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e VBA &#8212; \u0435\u0435 \u043b\u0443\u0447\u0448\u0435 \u043d\u0430\u0437\u0432\u0430\u0442\u044c <strong>test<\/strong> (<strong>Insert\/Procedure<\/strong> \u0434\u0430\u043b\u0435\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u043f\u0435\u0440\u0435\u043a\u043b\u044e\u0447\u0430\u0442\u0435\u043b\u044c \u0432 \u043e\u043a\u043d\u0435 <strong>Type<\/strong> \u0432 \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435 <strong>Function<\/strong> \u0438 \u0432 \u043e\u043a\u043d\u043e <strong>Name<\/strong> \u0432\u0432\u0435\u0441\u0442\u0438<strong> test<\/strong>, \u0438, \u043d\u0430\u043a\u043e\u043d\u0435\u0446 \u043d\u0430\u0436\u0430\u0442\u044c <strong>OK<\/strong>), \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0432 \u043c\u043e\u0434\u0443\u043b\u0435 \u0431\u0443\u0434\u0435\u0442 \u0432\u0432\u0435\u0434\u0435\u043d\u043e:<\/p>\n<p><strong>Public Function test()<\/strong><\/p>\n<p><strong>End Function<\/strong><\/p>\n<p>4. \u0417\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0432 \u0442\u0435\u043b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0442\u043e \u0435\u0441\u0442\u044c \u043f\u043e\u0441\u043b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 <strong>Public Function test()<\/strong> \u043d\u043e \u0434\u043e \u0441\u0442\u0440\u043e\u043a\u0438 <strong>End Function<\/strong> \u0441\u0442\u0440\u043e\u043a\u0443, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0443\u0442\u043e\u0440\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 (\u0442.\u0435. <strong>test<\/strong>) \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0443\u043f\u043e\u043c\u044f\u043d\u0443\u0442\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f, \u0442\u043e \u0435\u0441\u0442\u044c \u0441\u0442\u0440\u043e\u043a\u0443 <strong>test = 24 \\ 4 ^ 2 + 18 mod 4<\/strong>, \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442\u044c \u0442\u0430\u043a:<\/p>\n<p><strong>Public Function test()<br \/>\n&nbsp;&nbsp;&nbsp;test = 24 \\ 4 ^ 2 + 18 Mod 4<br \/>\nEnd Function<\/strong><\/p>\n<p>5. \u041f\u0440\u043e\u0432\u0435\u0441\u0442\u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 (<strong>Debug\/Compile VBAProject<\/strong>)<br \/>\n6. \u041f\u0435\u0440\u0435\u0439\u0442\u0438 \u0432 \u041b\u0438\u0441\u0442 Excel \u0438 \u0432\u0432\u0435\u0441\u0442\u0438 \u0432 \u044f\u0447\u0435\u0439\u043a\u0443 (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, <strong>A1<\/strong>), \u043d\u0430\u0436\u0430\u0442\u044c \u043a\u043d\u043e\u043f\u043a\u0443 <strong>f(x)<\/strong> \u0434\u043b\u044f \u0432\u0441\u0442\u0430\u0432\u043a\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0432 \u043e\u043a\u043d\u0435 <strong>\u041a\u0430\u0442\u0435\u0433\u043e\u0440\u0438\u044f<\/strong> <strong>\u041c\u0430\u0441\u0442\u0435\u0440\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0439<\/strong> \u0432\u044b\u0431\u0440\u0430\u0442\u044c <strong>\u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u044b\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u043c <\/strong>(\u044d\u0442\u0430 \u043a\u0430\u0442\u0435\u0433\u043e\u0440\u0438\u044f \u0432 \u0441\u0430\u043c\u043e\u043c \u043a\u043e\u043d\u0446\u0435 \u0441\u043f\u0438\u0441\u043a\u0430), \u0437\u0430\u0442\u0435\u043c \u0432 \u043e\u043a\u043d\u0435 <strong>\u0412\u044b\u0431\u0435\u0440\u0438\u0442\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044e<\/strong> &#8212; \u0432\u044b\u0431\u0440\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e <strong>test<\/strong>, \u043d\u0430\u0436\u0430\u0442\u044c <strong>OK<\/strong>, \u0430 \u043f\u043e\u0441\u043b\u0435 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043e\u043a\u043d\u0430 <strong>\u0410\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438<\/strong> &#8212; \u043d\u0430\u0436\u0430\u0442\u044c <strong>OK<\/strong> \u0435\u0449\u0435 \u0440\u0430\u0437.<br \/>\n7. \u0412 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0432 \u044f\u0447\u0435\u0439\u043a\u0435 Excel \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0432\u0435\u0434\u0435\u043d\u043e \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0438\u0440\u0443\u044e\u0449\u0435\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u0432 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 <strong>3<\/strong>.<\/p>\n<p style=\"text-align: center;\">* * *<\/p>\n<p>\u0415\u0441\u043b\u0438 \u0436\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u0441\u043e\u0441\u0442\u043e\u0438\u0442 \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e\u0431\u044b \u043f\u0440\u043e\u0441\u0442\u043e \u0432\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043d\u0443\u0436\u043d\u044b\u0435 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u044b (\u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0438 \u0441\u0442\u0440\u043e\u043a\u0430 \u043e\u043a\u043e\u043d\u0447\u0430\u043d\u0438\u044f \u0443\u0436\u0435 \u0432\u0432\u0435\u0434\u0435\u043d\u044b) &#8212; \u0437\u0430\u0434\u0430\u0447\u0430 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0443\u043f\u0440\u043e\u0449\u0430\u0435\u0442\u0441\u044f (\u0442.\u0435. \u043f. 3 \u0443\u0436\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d), \u043d\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e, \u0442.\u0435. \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u0438 \u0441 \u043f\u0440\u0430\u0432\u0438\u043b\u0430\u043c\u0438 \u043f\u0440\u0438\u043e\u0440\u0438\u0442\u0435\u0442\u043e\u0432 VBA, \u0432\u0432\u0435\u0441\u0442\u0438 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0435.<\/p>\n<p>\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0435\u0441\u043b\u0438 \u0440\u0435\u0447\u044c \u0438\u0434\u0435\u0442 \u043e \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f:<\/p>\n<p><img decoding=\"async\" class=\"aligncenter\" src=\"http:\/\/bsu.name\/news\/img\/VBA_1.jpg\" alt=\"\" \/><\/p>\n<p>\u0442\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u043a\u043e\u0434:<\/p>\n<p><strong>Public Function funct1(x)<br \/>\n&nbsp;&nbsp;&nbsp;  funct1 = (1-x^2)\/(2-3*x)<br \/>\nEnd Function<\/strong><\/p>\n<p>\u0442\u043e \u0435\u0441\u0442\u044c \u0447\u0438\u0441\u043b\u0438\u0442\u0435\u043b\u044c \u0438 \u0437\u043d\u0430\u043c\u0435\u043d\u0430\u0442\u0435\u043b\u044c \u0431\u0435\u0440\u0443\u0442\u0441\u044f \u0432 \u0441\u043a\u043e\u0431\u043a\u0438, \u0438 \u0442\u0430\u043a\u0436\u0435 \u043d\u0435 \u0441\u043b\u0443\u0434\u0443\u0435\u0442 \u0437\u0430\u0431\u044b\u0432\u0430\u0442\u044c \u043f\u0440\u043e \u0437\u043d\u0430\u043a \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u044f (<strong>*<\/strong>).<\/p>\n<p>\u0415\u0441\u043b\u0438 \u0436\u0435 \u0432 \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u0438\u0434\u0435\u0442 \u0440\u0435\u0447\u044c \u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0438 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f, \u0437\u0430\u0432\u0438\u0441\u044f\u0449\u0435\u043c \u043e\u0442 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 x, \u043d\u0430\u0440\u0438\u043c\u0435\u0440, \u0435\u0441\u043b\u0438 \u0435\u0441\u043b\u0438 x \u0431\u043e\u043b\u044c\u0448\u0435 3, \u0442\u043e <strong>fun\u0441t2=(1-2x)\/(2+x)<\/strong>, \u0438\u043d\u0430\u0447\u0435 <strong>funct2=Sin(3x)-1<\/strong>, \u0442\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u0435 \u0443\u0441\u043b\u043e\u0432\u0438\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u0432 VBA <strong>If &#8230; Then &#8230; Else<\/strong>. \u0412 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442 \u0442\u0430\u043a:<\/p>\n<p><strong>Public Function funct2(x)<br \/>\n&nbsp;&nbsp;&nbsp;   If x &gt; 3 Then funct2 = (1-2*x) \/ (2+x) Else funct2 = Sin(3*x)-1<br \/>\nEnd Function<\/strong><\/p>\n<p>\u041f\u043e\u0441\u043b\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u0432\u0435\u0441\u0442\u0438 \u043e\u0442\u043b\u0430\u0434\u043a\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0438 \u0443\u0431\u0435\u0434\u0438\u0442\u044c\u0441\u044f, \u0447\u0442\u043e \u043f\u0440\u0438 \u0437\u0430\u0434\u0430\u043d\u0438\u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 5 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0432\u0435\u0434\u0435\u043d\u043e <strong>-1,28571<\/strong>.<\/p>\n<p style=\"text-align: center;\">* * *<\/p>\n<p><strong>\u0412\u0442\u043e\u0440\u043e\u0435.<\/strong> \u0411\u043e\u043b\u0435\u0435 \u0441\u043b\u043e\u0436\u043d\u044b\u0435 \u0437\u0430\u0434\u0430\u043d\u0438\u044f, \u0441 \u043a\u043e\u0442\u043e\u0440\u044b\u043c\u0438 \u0442\u0435\u043c, \u043d\u0435 \u043c\u0435\u043d\u0435\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u0442\u044c\u0441\u044f \u0434\u043b\u044f \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u043e\u0446\u0435\u043d\u043a\u0438, \u0442\u0430\u043a\u0436\u0435 \u043e\u0442\u043d\u043e\u0441\u044f\u0442\u0441\u044f \u043a \u0443\u0441\u043b\u043e\u0432\u043d\u043e\u0439 \u043a\u0430\u0442\u0435\u0433\u043e\u0440\u0438\u0438 &#171;\u0432\u0435\u0442\u0432\u043b\u0435\u043d\u0438\u0435&#187; \u0438 \u043c\u043e\u0433\u0443\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0442\u044c\u0441\u044f \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u0432 VBA <strong>If &#8230; Then &#8230; Else<\/strong> \u0438\u043b\u0438, \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0441\u043b\u0443\u0447\u0430\u044f\u0445, \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u0430 <strong>Case<\/strong>.<\/p>\n<p>\u0412 \u043a\u0430\u0447\u0435\u0442\u0441\u0432\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u0442\u0430\u043a\u043e\u0433\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u044f \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u0432\u044b\u0431\u043e\u0440 <strong>\u0438\u0437 \u0442\u0440\u0435\u0445<\/strong> \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u043b\u044c\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b \u043c\u0438\u043d\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0433\u043e (\u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0433\u043e), \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u044f \u043c\u0438\u043d\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0433\u043e (\u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0433\u043e) \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u0434\u0432\u0443\u0445 \u0447\u0438\u0441\u0435\u043b \u043f\u0440\u0438 \u0442\u0440\u0435\u0445 \u0437\u0430\u0434\u0430\u043d\u043d\u044b\u0445, \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u044f \u0442\u0440\u0435\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a\u0430 \u043f\u0440\u0438 \u0442\u0440\u0435\u0445 \u0437\u0430\u0434\u0430\u043d\u043d\u044b\u0445 \u0434\u043b\u0438\u043d\u043d\u0430\u0445 \u0435\u0433\u043e \u0441\u0442\u043e\u0440\u043e\u043d \u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u044f \u0435\u0433\u043e \u043f\u043b\u043e\u0449\u0430\u0434\u0438, \u0430 \u0442\u0430\u043a\u0436\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u044f \u0442\u0440\u0435\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a\u0430 \u043f\u0440\u0438 \u0442\u0440\u0435\u0445 \u0437\u0430\u0434\u0430\u043d\u043d\u044b\u0445 \u0434\u043b\u0438\u043d\u043d\u0430\u0445 \u0435\u0433\u043e \u0441\u0442\u043e\u0440\u043e\u043d \u0438 \u0432\u044b\u0432\u043e\u0434\u0430 \u0434\u043b\u0438\u043d\u044b \u0441\u0430\u043c\u043e\u0439 \u043a\u043e\u0440\u043e\u0442\u043a\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b.<\/p>\n<p><strong>Public Function fun3(a, b, c)<br \/>\nIf (a + b &gt; c) And (a + c &gt; b) And (b + c &gt; a) Then<br \/>\n&nbsp;&nbsp;&nbsp;    If a &gt; b And a &gt; c Then<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   fun3 = a<br \/>\n&nbsp;&nbsp;&nbsp;    ElseIf b &gt; a And b &gt; c Then fun3 = b<br \/>\n&nbsp;&nbsp;&nbsp;    Else<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   fun3 = c<br \/>\n&nbsp;&nbsp;&nbsp;    End If<br \/>\nElse<br \/>\n&nbsp;&nbsp;&nbsp;   fun3 = &quot;\u0442\u0440\u0435\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a \u043d\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442&quot;<br \/>\nEnd If<br \/>\nEnd Function<\/strong><\/p>\n<p>\u041d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u0439 \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u0430\u0433\u0430\u044e\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 <strong>\u0446\u0438\u043a\u043b\u043e\u0432 VBA<\/strong> (\u043f\u0440\u043e \u0444\u043e\u0440\u043c\u0430\u0442 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 &#8212; \u043f\u043e <a href=\"http:\/\/bsu.name\/vba\/5_2.html\" title=\"\u0444\u043e\u0440\u043c\u0430\u0442 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 \u0432 VBA\">\u0441\u0441\u044b\u043b\u043a\u0435<\/a>), \u0432 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439 \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e \u0437\u0430\u0440\u0430\u043d\u0435\u0435, \u0442.\u0435. \u0446\u0438\u043a\u043b\u043e\u0432 <strong>For&#8230; Next<\/strong>. \u0427\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439, \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438, \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u044f\u0432\u043d\u043e \u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u044c \u0438\u0437 \u0443\u0441\u043b\u043e\u0432\u0438\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0441\u0443\u043c\u043c\u044b <strong>S=1+2^2+3^2+&#8230;+25^2<\/strong> \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u0430\u0433\u0430\u0435\u0442 <strong>25<\/strong> \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439, \u0441\u0443\u043c\u043c\u044b <strong>S=1-2^3+3^3-&#8230;-20^3<\/strong> \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u0430\u0433\u0430\u0435\u0442 <strong>20<\/strong> \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0432\u0445\u043e\u0434\u043d\u044b\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u0440\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0441\u0443\u043c\u043c\u044b <strong>S=2\/(1*3)-4\/(3*5)+6\/(5*7)+&#8230;+(2*n)\/((2*n-1)*(2*n+1))<\/strong>.<\/p>\n<p>\u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0432 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u043c, \u043a\u0430\u043a \u0438 \u0432 \u043f\u0440\u0435\u0434\u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0434\u043b\u044f \u0441\u043b\u0430\u0433\u0430\u0435\u043c\u044b\u0445 \u0438\u043c\u0435\u0435\u0442 \u043c\u0435\u0441\u0442\u043e \u0447\u0435\u0440\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0435 \u0437\u043d\u0430\u043a\u043e\u0432, \u0442.\u0435. \u043e\u0434\u043d\u043e \u0438\u0437 \u043d\u0438\u0445 \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0435, \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435 &#8212; \u043e\u0442\u0440\u0438\u0446\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0435 \u0438 \u0442.\u0434.<\/p>\n<p>\u0414\u0430\u0436\u0435 \u0432 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u0430:<\/p>\n<p><strong>Public Function fun5(n)<br \/>\nfun5 = 0<br \/>\nDim i As Single<\/p>\n<p>For i = 1 To n<br \/>\n&nbsp;&nbsp;&nbsp;     fun5 = fun5 + <span style=\"color: blue\">(-1) ^ (i+1)<\/span> * ((2*i) \/ ((2*i-1) * (2*i+1)))<br \/>\nNext i<br \/>\nEnd Function<\/strong><\/p>\n<p><strong>\u0417\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435<\/strong>. \u0421\u0438\u043d\u0438\u043c \u0446\u0432\u0435\u0442\u043e\u043c \u0432\u044b\u0434\u0435\u043b\u0435\u043d \u043c\u043d\u043e\u0436\u0438\u0442\u0435\u043b\u044c <span style=\"color: blue\"><strong>(-1) ^ (i+1)<\/strong><\/span>, \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0438\u0432\u0430\u044e\u0449\u0438\u0439 \u0437\u043d\u0430\u043a\u043e\u0447\u0435\u0440\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0435, \u0442.\u0435. \u0434\u043b\u044f \u0447\u0435\u0442\u043d\u044b\u0445 \u0437\u0430\u0447\u0435\u043d\u0438\u0439 <strong>i<\/strong> \u0441\u043b\u0430\u0433\u0430\u0435\u043c\u043e\u0435 \u0431\u0443\u0434\u0435\u0442 \u0438\u043c\u0435\u0442\u044c \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0437\u043d\u0430\u043a, \u0434\u043b\u044f \u043d\u0435\u0447\u0435\u0442\u043d\u044b\u0445 &#8212; \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0439, \u043a\u0430\u043a \u0438 \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0432 \u0443\u0441\u043b\u043e\u0432\u0438\u0438. <\/p>\n<p style=\"text-align: center;\">* * *<\/p>\n<p>\u041d\u0435 \u0431\u043e\u043b\u0435\u0435 \u0441\u043b\u043e\u0436\u043d\u044b \u0438 \u0437\u0430\u0434\u0430\u0447\u0438 \u043d\u0430 \u0446\u0438\u043a\u043b\u044b, \u0432 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439 \u0437\u0430\u0440\u0430\u043d\u0435\u0435 \u043d\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e \u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442\u0441\u044f \u0432 \u0445\u043e\u0434\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0430. \u0422\u0430\u043a\u043e\u0432\u044b\u0445, \u0432\u043e\u043e\u0431\u0449\u0435 \u0433\u043e\u0432\u043e\u0440\u044f, \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442 2 \u0432\u0438\u0434\u0430 (\u043f\u0440\u043e \u0444\u043e\u0440\u043c\u0430\u0442 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 &#8212; \u043f\u043e <a href=\"http:\/\/bsu.name\/vba\/5_2.html\" title=\"\u0444\u043e\u0440\u043c\u0430\u0442 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 \u0432 VBA\">\u0441\u0441\u044b\u043b\u043a\u0435<\/a>) &#8212; \u0441 \u043f\u0440\u0435\u0434\u0443\u0441\u043b\u043e\u0432\u0438\u0435\u043c \u0438 \u0441 \u043f\u043e\u0441\u0442\u0443\u0441\u043b\u043e\u0432\u0438\u0435\u043c (\u0446\u0438\u043a\u043b \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0432\u0438\u0434\u0430 \u0432 \u043b\u044e\u0431\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d, \u043a\u0430\u043a \u043c\u0438\u043d\u0438\u043c\u0443\u043c, \u043e\u0434\u0438\u043d \u0440\u0430\u0437).<\/p>\n<p>\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0435\u0441\u043b\u0438 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u044b\u0447\u0438\u0441\u043b\u0438\u0442\u044c <strong>\u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u0435 \u0447\u0435\u0442\u043d\u044b\u0445 \u0446\u0438\u0444\u0440 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 n<\/strong>, \u0442\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0437\u0430\u0434\u0430\u043d\u0438\u044f \u043d\u0430 VBA \u0442\u0430\u043a\u043e\u0432\u0430:<\/p>\n<p><strong>Public Function pr_ch_cifr(n)<br \/>\n<span style=\"color: #00ff00;\">&apos;\u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u0435 \u0447\u0435\u0442\u043d\u044b\u0445 \u0446\u0438\u0444\u0440 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430 n<\/span><br \/>\npr_ch_cifr\u00a0= 1<br \/>\nWhile n &gt; 0<br \/>\n&nbsp;&nbsp;&nbsp;  cifra = n-(n \\ 10) * 10<br \/>\n&nbsp;&nbsp;&nbsp;  n = n \\ 10<br \/>\n&nbsp;&nbsp;&nbsp;  If cifra \\ 2 = cifra \/ 2 Then pr_ch_cifr= pr_ch_cifr* cifra<br \/>\nWend<br \/>\nEnd Function<\/strong><\/p>\n<p>&nbsp;<\/p>\n<p>\u041d\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0442\u0440\u0443\u0434\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0435 \u0434\u0430\u043d\u043d\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043b\u044f \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u044f \u0441\u0443\u043c\u043c\u044b (\u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u044f) (\u043a\u0432\u0430\u0434\u0440\u0430\u0442\u043e\u0432) \u0447\u0435\u0442\u043d\u044b\u0445 (\u043d\u0435\u0447\u0435\u0442\u043d\u044b\u0445) \u0446\u0438\u0444\u0440 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430. \u041e\u0434\u043d\u0430\u043a\u043e \u043d\u0430\u0434\u043e \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u043f\u0440\u0438 \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u0438 \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u0435\u0433\u043e \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u0443 \u0434\u043e \u0446\u0438\u043a\u043b\u0430 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 1 (\u0432 \u043f\u0440\u0438\u043c\u0435\u0440\u0435 &#8212; <strong>pr_ch_cifr = 1<\/strong>, \u0432 \u0446\u0438\u043a\u043b\u0435, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u0435), \u0442\u043e\u0433\u0434\u0430 \u043a\u0430\u043a \u043f\u0440\u0438 \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u0438 \u0441\u0443\u043c\u043c\u044b \u0435\u0435 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440 \u0434\u043e\u043b\u0436\u0435\u043d \u0434\u043e \u0446\u0438\u043a\u043b\u0430 \u0431\u044b\u0442\u044c \u0440\u0430\u0432\u043d\u044b\u043c 0.<\/p>\n<p>\u0415c\u043b\u0438 \u0436\u0435 \u0440\u0435\u0447\u044c \u0438\u0434\u0435\u0442 \u043e \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u0438 \u0441\u0443\u043c\u043c\u044b \u043f\u0435\u0440\u0432\u044b\u0445 <strong>n<\/strong> \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0447\u0438\u0441\u0435\u043b, \u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438:<\/p>\n<p><strong>Public Function prostoe(nn) As Boolean<br \/>\n<span style=\"color: #00ff00;\">&apos;\u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442, \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u0447\u0438\u0441\u043b\u043e \u043f\u0440\u043e\u0441\u0442\u044b\u043c \u0438 \u0432\u044b\u0434\u0430\u0435\u0442 \u0432 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 True (\u0418\u0441\u0442\u0438\u043d\u0430), \u0438\u043d\u0430\u0447\u0435 False (\u041b\u043e\u0436\u044c)<\/span><br \/>\nDim i As Integer<br \/>\nprostoe = False<br \/>\nFor i = 2 To Sqr(nn)<br \/>\n&nbsp;&nbsp;&nbsp;  If nn Mod i = 0 Then<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  Exit Function<br \/>\n&nbsp;&nbsp;&nbsp;  End If<br \/>\nNext i<br \/>\nprostoe = True<br \/>\nEnd Function<\/strong><\/p>\n<p>\u0442.\u0435. \u0432\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u0432\u044b\u0448\u0435\u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0449\u0443\u044e, \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u0447\u0438\u0441\u043b\u043e \u043f\u0440\u043e\u0441\u0442\u044b\u043c (\u0438\u043b\u0438 \u0434\u0430\u0436\u0435 \u0435\u0435 \u0431\u043e\u043b\u0435\u0435 \u0440\u0430\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0439 <a href=\"http:\/\/bsu.name\/vba\/5_3_help.html\" title=\"\u0440\u0430\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f, \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u0447\u0438\u0441\u043b\u043e \u043f\u0440\u043e\u0441\u0442\u044b\u043c \u0447\u0438\u0441\u043b\u043e\u043c\">\u0432\u0430\u0440\u0438\u0430\u043d\u0442<\/a> \u0431\u0435\u0437 \u043b\u0438\u0448\u043d\u0438\u0445 \u043f\u043e\u0432\u0442\u043e\u0440\u0435\u043d\u0438\u0439 \u0446\u0438\u043a\u043b\u0430), \u0430 \u0432\u043e-\u0432\u0442\u043e\u0440\u044b\u0445, \u0444\u0443\u043d\u043a\u0446\u0438\u044e<\/p>\n<p><strong>Public Function fun6_2(n)<br \/>\n<span style=\"color: #00ff00;\">&apos;\u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u044b\u0447\u0441\u043b\u044f\u0435\u0442 \u0441\u0443\u043c\u043c\u0443 n \u043f\u0435\u0440\u0432\u044b\u0445 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0447\u0438\u0441\u0435\u043b<\/span><br \/>\nfun6_2 = 0<br \/>\ni = 1: iii = 0<br \/>\nWhile iii &lt; n<br \/>\n&nbsp;&nbsp;&nbsp;  If prostoe(i) Then<br \/>\n&nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp;  fun6_2 = fun6_2 + i<br \/>\n&nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp;  iii = iii + 1<br \/>\n&nbsp;&nbsp;&nbsp;  End If<br \/>\n&nbsp;&nbsp;&nbsp;  i = i + 1<br \/>\nWend<\/p>\n<p>End Function<\/strong><\/p>\n<p>\u042d\u0442\u0443 \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u043c\u043e\u0436\u043d\u043e \u043b\u0435\u0433\u043a\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0442\u044c \u0434\u043b\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f <strong>n-\u0433\u043e \u043f\u0440\u043e\u0441\u0442o\u0433\u043e \u0447\u0438\u0441\u043b\u0430<\/strong>.<\/p>\n<p>\u0421\u0443\u043c\u043c\u0443 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0447\u0438\u0441\u0435\u043b \u0438\u0437 \u043e\u0442pe\u0437\u043aa <strong>[1;n]<\/strong> \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u0439\u0442\u0438 \u0442\u0430\u043a:<\/p>\n<p><strong>Public Function fun6_1(n)<br \/>\nfun6_1 = 0<br \/>\nDim i As Single<\/p>\n<p>For i = 1 To n Step 1<br \/>\n&nbsp;&nbsp;&nbsp; If prostoe(i) Then fun6_1 = fun6_1 + i<br \/>\nNext i<br \/>\nEnd Function<\/strong><\/p>\n<p>\u0410\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u0439\u0442\u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0447\u0438\u0441\u0435\u043b \u0438\u0437 \u043e\u0442pe\u0437\u043aa &#8212; \u043f\u0440\u043e\u0441\u0442\u043e \u0437\u0430\u043c\u0435\u043d\u0438\u0432 <strong>fun6_1 + i<\/strong> \u043d\u0430 <strong>fun6_1 + 1<\/strong>.<\/p>\n<p>\u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u0442 \u0441\u0443\u043c\u043c\u0443 <strong>\u043f\u0435\u0440\u0432\u044b\u0445 n \u0447\u0438\u0441\u0435\u043b \u0424\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438<\/strong> (\u0447\u0438\u0441\u043b\u0430 \u0424\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438 \u2014 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438 <strong>0, 1, 1, 2, 3, 5 &#8230;<\/strong> \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043a\u0430\u0436\u0434\u043e\u0435 \u043f\u043e\u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435 \u0447\u0438\u0441\u043b\u043e \u0440\u0430\u0432\u043d\u043e \u0441\u0443\u043c\u043c\u0435 \u0434\u0432\u0443\u0445 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0445 \u0447\u0438\u0441\u0435\u043b.)<\/p>\n<p><strong>Public Function fn(n As Integer) As Variant<br \/>\n<span style=\"color: #00ff00;\">&apos;\u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u0442 \u0441\u0443\u043c\u043c\u0443 \u043f\u0435\u0440\u0432\u044b\u0445 n \u0447\u0438\u0441\u0435\u043b \u0424\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438<\/span><\/p>\n<p>Dim \u043f\u0440\u0435\u04341 As Double, \u043f\u0440\u0435\u04342 As Double, \u043f\u043e\u0441\u043b As Double, i As Integer<br \/>\nDim \u0444\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438<br \/>\n\u043f\u0440\u0435\u04341 = 1<br \/>\n\u043f\u0440\u0435\u04342 = 1<br \/>\n\u0444\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438 = \u043f\u0440\u0435\u04341<br \/>\nFor i = 1 To (n &#8212; 1)<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    \u0444\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438 = \u0444\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438 + \u043f\u0440\u0435\u04342<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    \u043f\u043e\u0441\u043b = \u043f\u0440\u0435\u04341 + \u043f\u0440\u0435\u04342<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    \u043f\u0440\u0435\u04341 = \u043f\u0440\u0435\u04342<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    \u043f\u0440\u0435\u04342 = \u043f\u043e\u0441\u043b<br \/>\nNext i<br \/>\nfn = \u0444\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438<br \/>\nEnd Function<\/strong><\/p>\n<p>\u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043b\u0435\u0433\u043a\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0434\u043b\u044f \u043d\u0430\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u044f <strong>n-\u0433\u043e \u0447\u0438\u0441\u043b\u0430 \u0424\u0438\u0431\u043e\u043d\u0430\u0447\u0447\u0438<\/strong>.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBA &#8212; \u043d\u0435 \u0441\u0430\u043c\u044b\u0439 \u0441\u043b\u043e\u0436\u043d\u044b\u0439 \u044f\u0437\u044b\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u0442\u0435\u043c \u043d\u0435 \u043c\u0435\u043d\u0435\u0435, \u0443\u0441\u043f\u0435\u0448\u043d\u043e\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044c\u043d\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u044b \u0442\u0440\u0435\u0431\u0443\u0435\u0442 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0439 \u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u043a\u0438.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,1],"tags":[],"_links":{"self":[{"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/posts\/618"}],"collection":[{"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/comments?post=618"}],"version-history":[{"count":6,"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/posts\/618\/revisions"}],"predecessor-version":[{"id":664,"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/posts\/618\/revisions\/664"}],"wp:attachment":[{"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/media?parent=618"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/categories?post=618"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/bsu.name\/news\/wp-json\/wp\/v2\/tags?post=618"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}