Private Sub Form_Load()
Dim s( 1  To  8 ) As Single, b As Single, n As Integer
Show
For i =  1  To  8 
 s(i) = Rnd *  10 
    If s(i) >=  0  And s(i) <=  1  Then b = b + s(i): n = n +  1 
    Print s(i)
Next
If Not n =  0  Then b = b / n
MsgBox b
End Sub

Private Sub Command1_Click()
perepis
End Sub
Private Sub perepis()
Call Vvod
Call Vibor
End Sub
Private Sub Vibor()
For i =  1  To  5 
If a(i).fam = god >  1990  Then

Picture2.Print a(i).fam; a(i).god
End If
Next i
End Sub

Private Sub Vvod()
fam As String
god As Integer
Dim fam( 1  To  5 ) As String
Dim god( 1  To  5 ) As Integer
Show
Dim a( 1  To  5 ) As Integer
Dim fam As String, god As Integer
For i =  1  To  5 
a(i).fam = InputBox("Èâàíîâ Èâàí", "Ïåòðîâ Ïåòÿ", "Ñèäîðîâà Ëàðèñà", "Ñèíèöûí Ñåíÿ", "Ïàê Êàòÿ")
a(i).god = InputBox("1990", "1991", "1992", "1993", "1989")
Picture1.Print a(i).fam; a(i).god;
Picture1.Print
Next i
End Sub

a(i).god = InputBox("1990", "1991", "1992", "1993", "1989")

fam As String
Dim fam( 1  To  5 ) As String
Dim fam As String

Private Sub Command1_Click()
perepis
End Sub
Private Sub perepis()
Call Vvod
Call Vibor
End Sub