Option Base 1
Dim a(20) As Integer, b(20) As Integer
Private Sub Cmd1_Click()
  Text1.Text = "": Text2.Text = "": Text3.Text = ""
  For i = 1 To 20
'    a(i) = Fix(Rnd *  ?  + 1)
    b(i) = 1
    Text1.Text = Text1.Text + Str(a(i)) + Space(2)
  Next i
End Sub
Private Sub Cmd2_Click()
  fmax = 0
  For i = 1 To 20
'    For j = 1 To  ?
        If a(i) = a(j) Then
          b(i) = b(i) + 1
        End If
    Next j
'    If b(i) >  ?  Then fmax = b(i)
  Next i
  For i = 1 To 20
'    If b(i) =  ?  Then
        Text2.Text = Text2.Text + Str(a(i)) + Space(2)
    End If
  Next i
  Text3.Text = fmax
End Sub
Private Sub Cmd3_Click()
'  ?
End Sub