подпрограммы

Private Sub Command1_Click()
razpechatat
End Sub
 
Private Sub razpechatat()
Call Vvod
Call Vibor
End Sub
Private Sub Vibor()
Dim c as Byte
c=a(i).fam
For i = 1 To 5
If c= "С" Or c = "А" Then
Picture2.Print a(i).fam; a(i).god
End If
Next i
End Sub
 
Private Sub Vvod()
fam As String
zar As Integer
Dim fam(1 To 5) As String
Dim zar(1 To 5) As Integer
Show
Dim a(1 To 5) As inteder
Dim fam As String, zar As Integer
For i = 1 To 5
a(i).fam = InputBox("Фамилия")
a(i).zar = InputBox("Зарплата", a(i).fam)
Picture1.Print a(i).fam; a(i).zar;
Picture1.Print
Next i
End Sub

Private Sub Command1_Click()
razpechatat
End Sub
 
Private Sub razpechatat()
Call Vvod
Call Vibor
End Sub
Private Sub Vibor()
Dim c As Byte
c = a(i).fam   'не описана и неинициализирована переменная i
'массив a описан в другой функции - в этой его "не видно"
'обращение к полю fam, которого у массива a - нет, так как a - массив целых
'возможно была попытка обращения к массиву fam
'но массива fam здесь тоже "не видно", его область видимости - функция ввод, где он описан
For i = 1 To 5
If c = "С" Or c = "А" Then
Picture2.Print a(i).fam; a(i).god
End If
Next i
End Sub
 
Private Sub Vvod()
fam As String  'описание переменной надо начинать со слова Dim
zar As Integer  'аналогично
Dim fam(1 To 5) As String 'повторное описание переменной fam
Dim zar(1 To 5) As Integer 'аналогично
Show
Dim a(1 To 5) As inteder 'должно быть Integer
Dim fam As String, zar As Integer
For i = 1 To 5
a(i).fam = InputBox("Фамилия") 'обращение к полю fam, которого у массива a - нет, так как a - массив целых
a(i).zar = InputBox("Зарплата", a(i).fam) 'аналогично
Picture1.Print a(i).fam; a(i).zar;
Picture1.Print
Next i
End Sub

Dim fam(1 To 5) As String
Dim zar(1 To 5) As Integer
Dim god(1 To 5) As Integer
Dim I As Integer
 
Private Sub Command1_Click()
Call Vvod
Call Vibor
End Sub
 
Private Sub Vibor()
Dim c As String
For I = 1 To 5
    c = Left(fam(I), 1)
    If c = "С" Or c = "А" Then
    Picture2.Print fam(I); god(I)
End If
Next I
End Sub
 
Private Sub Vvod()
Show
For I = 1 To 5
    fam(I) = InputBox("Фамилия")
    zar(I) = InputBox("Зарплата " & fam(I))
    Picture1.Print fam(I); zar(I)
    Picture1.Print
Next I
End Sub