Тест на долголетие

Option Explicit
 
Private Type TestItem
    Question    As String
    Answers     As String
    Result      As Integer
End Type
Private Const TEST_COUNT& = 5
Private Test(0 To TEST_COUNT - 1) As TestItem
Private ItemIndex&
 
Private Sub ShowItem()
    Dim arr$(), i&
    
    If ItemIndex < 0 Then ItemIndex = 0
    If ItemIndex >= TEST_COUNT Then ItemIndex = TEST_COUNT
    Label1.Caption = "[" & ItemIndex & "] " & Test(ItemIndex).Question
    arr = Split(Test(ItemIndex).Answers, "|", 3)
    For i = 0 To 2
        Option1(i).Caption = arr(i)
        Option1(i).Value = False
    Next
    If Test(ItemIndex).Result <> -1 Then Option1(Test(ItemIndex).Result).Value = True
    Option1(0).Tag = Test(ItemIndex).Result
End Sub
 
Private Sub SaveItem()
    Test(ItemIndex).Result = Option1(0).Tag
End Sub
 
Private Sub Command1_Click()
    If ItemIndex > 0 Then
        SaveItem
        ItemIndex = ItemIndex - 1
        ShowItem
    End If
End Sub
 
Private Sub Command2_Click()
    If ItemIndex < TEST_COUNT - 1 Then
        SaveItem
        ItemIndex = ItemIndex + 1
        ShowItem
    End If
End Sub
 
Private Sub Command3_Click()
    Dim i&, s$
    For i = 0 To TEST_COUNT - 1
        s = s & "[" & i & "]=" & Test(i).Result & vbCrLf
    Next
    MsgBox s
End Sub
 
Private Sub Form_Load()
    Dim i&
    For i = 0 To TEST_COUNT - 1
        With Test(i)
            .Question = "Question " & i
            .Answers = "Abort|Retry|Ignore"
            .Result = -1
        End With
    Next
    ItemIndex = 0
    ShowItem
End Sub
 
Private Sub Option1_Click(Index As Integer)
    Option1(0).Tag = Index
    SaveItem
End Sub