Dim a(10) As Integer
Private Sub Command1_Click()
    x = a(1)
    y = a(1)
    For i = 1 To 10
        If Option1.Value = True Then
'            If a(i) ?  x Then
'                ?= a(i)
            End If
'        ElseIf a(i) ? Then
'            ?= a(i)
        End If
    Next
    If Option1.Value = True Then
        Label2.Caption = x
    Else
        Label2.Caption = y
    End If
End Sub
Private Sub Form_Load()
    For i = 1 To 10
        a(i) = Int(Rnd * 100)
    Next
End Sub