Help! - VB

Формулировка задачи:

Добрый день. Получила задания по информатике, но в ней не сильна.Не могу понять что от меня хотят, но без этой работы, не видать мне зачета. Уверена для большинства посетителей сайта не составит проблемы и не займет много времени на решения этих заданий.
Войдите в положение, все же были студентами, помогите.[img=[IMG]http://i011.radikal.ru/1311/5c/dff0a97700b0.jpg[/IMG]]

Решение задачи: «Help!»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim a(20) As Date
Dim i As Long
For i = 1 To 20
a(i) = CDate(Str(Int(28 * Rnd() + 1)) & " " & Str(Int(12 * Rnd() + 1)) & " " & Str(Int(26 * Rnd() + 1987)))
Text1.Text = Text1.Text & a(i) & vbCrLf
Text2.Text = Text2.Text & DateAdd("d", 16, a(i)) & vbCrLf
Next i
End Sub

                        