lapulechka

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Народ! У меня тут такая заморочка </P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <B><FONT face="Times New Roman" color=#000000 size=3>Обработка файлов данных.</B></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Исходные данные о предприятиях: код, название, год начала реконструкции (не ранее 1995г., число лет реконструкции не более пяти), год окончания реконструкции (не позже <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-comffice:smarttags" /><st1:metricconverter w:st="on" ProductID="2005 г 2005 г</st1:metricconverter>.), планируемые затраты на каждый год реконструкции. Число предприятий не определено. Записать данные в файл. Используя данные в файле, найти общие планируемые затраты на реконструкцию за заданный год.</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o><FONT face="Times New Roman" color=#000000 size=3> </o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o><FONT face="Times New Roman" color=#000000 size=3> </o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman «найти общие планируемые затраты на реконструкцию за заданный год.» - вот что меня напрягает. Мне надо, чтобы это действовало так:<SPAN lang=EN-US style="mso-ansi-language: EN-US <o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Командная кнопка решить</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt <FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-list: Ignore <FONT size=3>1)<SPAN style="FONT: 7pt 'Times New Roman' </SPAN></SPAN><FONT size=3>через <SPAN lang=EN-US style="mso-ansi-language: EN-US Text</SPAN>1 <SPAN style="mso-spacerun: yes </SPAN><FONT size=3>вводится год (от 1995 до 2005)</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt <FONT face="Times New Roman <SPAN style="mso-list: Ignore <FONT color=#000000><FONT size=3>2)<SPAN style="FONT: 7pt 'Times New Roman' </SPAN></SPAN><FONT color=#000000 size=3>Командная кнопка «решить»</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt <FONT face="Times New Roman <SPAN style="mso-list: Ignore <FONT color=#000000><FONT size=3>3)<SPAN style="FONT: 7pt 'Times New Roman' </SPAN></SPAN><FONT color=#000000 size=3>выдаётся таблица <SPAN style="mso-spacerun: yes </SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US MSFlexGird</SPAN>, где появляются: шапки колонок – года (1995 до 2005), содержание колонок – планируемые затраты за данный год по всем предприятиям.</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt <FONT face="Times New Roman <SPAN style="mso-list: Ignore <FONT color=#000000><FONT size=3>4)<SPAN style="FONT: 7pt 'Times New Roman' </SPAN></SPAN><FONT color=#000000 size=3>В <SPAN lang=EN-US style="mso-ansi-language: EN-US Text</SPAN>2 появляются общие планируемые затраты на реконструкцию за заданный год.</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Вот, что у меня уже есть: o-spacerun: yes </SPAN>pr.kod = InputBox("Введите код предприятия")<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pr.name = InputBox("Введите название предприятия")<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pr.nachalo = InputBox("Введите год начала реконструкции (не ранее 1995г., число лет реконструкции не более пяти)")<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pr.konec = InputBox("Введите год окончания реконструкции (не позже <st1:metricconverter w:st="on" ProductID="2005 г 2005 г</st1:metricconverter>.)")<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>For i = 1 To 5<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>pr.pl(i) = InputBox("Введите планируемые затраты на каждый год реконструкции " & i & " год")<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US Next i<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Put #1, , pr<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN>Loop Until MsgBox("</SPAN>Продолжить<SPAN style="mso-ansi-language: EN-US </SPAN>ввод<SPAN style="mso-ansi-language: EN-US </SPAN>данных<SPAN lang=EN-US style="mso-ansi-language: EN-US ?", 36) = vbNo<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN lang=EN-US style="mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN>Close #1<o></o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>End Sub</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <o><FONT face="Times New Roman" color=#000000 size=3> </o></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman Private Sub prosmotr_Click()<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Dim i%, j%<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN- Normal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>fg.TextMatrix(i, 1) = pr.kod<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>fg.TextMatrix(i, 2) = pr.name<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>For j = 1 To 5<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>fg.TextMatrix(i, j + 2) = pr.pl(j)<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>fg.TextMatrix(i, j + 5) = pr.nachalo<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>fg.TextMatrix(i, j + 7) = pr.konec<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Next j<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Next i<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN><o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <FONT size=3><FONT color=#000000><FONT face="Times New Roman <SPAN style="mso-spacerun: yes </SPAN>Close #1<o></o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <SPAN lang=EN-US style="mso-ansi-language: EN-US <o><FONT face="Times New Roman" color=#000000 size=3> </o></SPAN></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>End Sub

aleksmir

Привет!
Вышли весь проект посмотреть или в форум или на mailto:korenovsk@rambler.ru korenovsk@rambler.ru
Напиши, в чём заключается проблема?