' **********************************************************
' на форме:  
'    два комбобокса comboStartYear, comboEndYear (выбор номеров годов)
'    надцать текстбоксов Text1, Text2, ..., TextN (для хранения параметров, имена критичны!)
'    две кнопки btnSaveBounder, btnWriteToFile
'    опционально: текстбокс textFileName (для хранения имени файла, имя не критично)
'         использование textFileName см.в Private Sub btnWriteToFile_Click()        


' **********************************************************
' В модуле формы
Option Base  0 

Private Type Bounders
	startyear As Integer
	endyear As Integer
	paramstr As String
End Type

Const iParamCount%= 11  'количество параметров

Dim arrBound() As  Bounders

' **********************************************************
' обработчик OnLoad формы
Private Sub Form_Load()
	Me.btnWriteToFile.Enabled = False
	ReDim arrBound( 0 )
End Sub

' **********************************************************
' обработчик OnClick кнопки btnSaveBounder
Private Sub btnSaveBounder_Click()
	Dim i%, s$
	
	If comboStartYear.Value > comboEndYear.Value Then 
	' коррекность задания периода
		MsgBox "Неверно задан период"
		Exit Sub
	
	ElseIf
	' проверка на наличие незаполненных параметров, формирование строки параметров
		s = ""
		For i =  1  To iParamCount
			If Me("Text" & i).Text = "" Then
				Me("Text" & i).SetFocus
				MsgBox "Не заполнен параметр '" & CStr(i) & "'"
				Exit Sub
			Else
				s = vbTab & CSng(Me("Text" & i).Text) & s
			End If
		Next i
		
	End If
	
	i = UBound(arrBound)
	With arrBound(i)
		.startyear = CInt(Me.comboStartYear.Value)
		.endyear = CInt(Me.comboEndYear.Value)
		.paramstr = s
	End With

	If i =  0  Then 
		Me.comboStartYear.Enabled = False
		Me.btnWriteToFile.Enabled = True
	End If
	Me.comboStartYear.Value = CInt(Me.EndStartYear.Value) +  1 
	
	ReDim Preserve arrBound(i +  1 )
End Sub


' **********************************************************
' обработчик OnClick кнопки btnWriteToFile
Private Sub btnWriteToFile_Click()
	Dim mo%,  i%, ii%
	
	mo = FreeFile()
	
	' (!) нет проверки на корректность имени файла
	' (!) нет запроса на перезапись существующего файла
	Open Me.textFileName.Text For Output As #mo 
	
	For i =  0  To UBound(arrBound)
		With arrBound(i)
			For ii = .startyear To .endyear
				Print #mo, ii & .paramstr
			Next ii
		End With
	Next i
	
	Close #mo
	ReDim arrBound( 0 )
	Me.btnWriteToFile.Enabled = False
	Me.comboStartYear.Enabled = True
End Sub