Dim a(1 To 255) As Boolean
Dim b As Integer
Dim summa

Private Sub Command1_Click()

For j = 1 To Len(Text1.Text)
b = Asc(UCase(Right(Text1.Text, Len(Text1.Text) - j + 1)))
If a(B ) Then summa = summa + 1
Next

MsgBox summa
summa = 0
End Sub

Private Sub Form_Load()
summa = 0

'инициализация массива а
'записываем ИСТИНУ для больших согласных русских букв
a(201) = True
a(214) = True
a(202) = True
a(205) = True
a(195) = True
a(216) = True
a(217) = True
a(199) = True
a(213) = True
a(212) = True
a(194) = True
a(207) = True
a(208) = True
a(203) = True
a(196) = True
a(198) = True
a(215) = True
a(209) = True
a(204) = True
a(210) = True
a(193) = True

End Sub

Private Sub Form_Load()
Data1.DatabaseName = CurDir$ & "\prod.mdb"
Data1.RecordsetType = 0
Data1.RecordSource = "Таблица1"
End Sub

Private Sub mnuView_Click()
Dim i%, kz%, kp%

kz = Data1.Recordset.RecordCount
kp = Data1.Recordset.Fields.Count
fg.Rows = kz + 1: fg.Cols = kp
fg.FormatString = "^ Код |< Название предприятия |< Название продукции |^ Год начала " & _
"|^ Затр. на 1-ый год |> Затр. на 2-ой год |> Затр. на 3-ий год"
With Data1.Recordset
.MoveFirst
For i = 1 To kz
fg.TextMatrix(i, 0) = .Fields(0)
fg.TextMatrix(i, 1) = .Fields(1)
fg.TextMatrix(i, 2) = .Fields(2)
fg.TextMatrix(i, 3) = .Fields(3)
fg.TextMatrix(i, 4) = .Fields(4)
fg.TextMatrix(i, 5) = .Fields(5)
fg.TextMatrix(i, 6) = .Fields(6)
.MoveNext
Next i
End With
End Sub

Private Sub mnuSpravka_1_Click()
Dim kz%, sumzatr@, i%
Label1 = "Справка о суммарных затратах предприятий:"
With Data1.Recordset
kz = .RecordCount
fg1.Rows = kz + 1: fg1.Cols = 4
fg1.FormatString = "^ Код |< Название предприятия |^ Год начала реконструкции |> Сум. затраты "
.MoveFirst
For i = 1 To kz
fg1.TextMatrix(i, 0) = .Fields(0)
fg1.TextMatrix(i, 1) = .Fields(1)
fg1.TextMatrix(i, 2) = .Fields(3)

sumzatr = .Fields(4) + .Fields(5) + .Fields(6)
fg1.TextMatrix(i, 3) = sumzatr
.MoveNext
Next i
End With
End Sub

Private Sub mnuSpravka_2_Click()
Dim kz%, srz@, znach@, i%, j%
Label1 = "Справка о предприятиях со среднегодовыми затратами меньше заданного зпачения:"

kz = Data1.Recordset.RecordCount
fg1.Rows = 1: fg1.Cols = 4
fg1.FormatString = "^ Код |< Название предприятия |^ Год начала реконстр.|> Среднегод. затраты "
znach = InputBox("Введите заданное значение среднегодовых затрат", , 40000)
j = 0
With Data1.Recordset
.MoveFirst
For i = 1 To kz
srz = (.Fields(4) + .Fields(5) + .Fields(6)) / 3
If srz < znach Then
j = j + 1
fg1.Rows = fg1.Rows + 1
fg1.TextMatrix(j, 0) = .Fields(0)
fg1.TextMatrix(j, 1) = .Fields(1)
fg1.TextMatrix(j, 2) = .Fields(3)
fg1.TextMatrix(j, 3) = Round(srz, 2)
End If
.MoveNext
Next i
End With
End Sub

Private Sub mnuExport_Click()
Dim kod%, naimpred As String * 20, naimprod As String * 15
Dim god%, zatr1@, zatr2@, zatr3@, nf%, namf As String * 12, kz%, i%
Label1 = "Справка о предприятии по экспортированным в текстовый файл данным:"
kz = Data1.Recordset.RecordCount
fg1.Rows = kz + 1: fg1.Cols = 3
fg1.FormatString = "^ Код |< Название предприятия |< Название продукции "
nf = FreeFile
namf = "Таблица1.txt"
Open CurDir$ & "\" & namf For Input As #nf
i = 0
Do Until EOF(nf)
i = i + 1
Input #nf, kod, naimpred, naimprod, god, zatr1, zatr2, zatr3
fg1.TextMatrix(i, 0) = kod
fg1.TextMatrix(i, 1) = naimpred
fg1.TextMatrix(i, 2) = naimprod
Loop
Close #nf
End Sub

Private Sub mnuExit_Click()
frmZ7.Hide
frmTitul.Show
End Sub