Const N = 100

Private Sub CommandButton1_Click()
'N = Val(TextBox1.Text)
TextBox1.Text = Str(N)
ListBox1.Clear
ListBox2.Clear
TextBox2.Text = ""
Dim b As String
Dim MasP(N) As Double
Dim NMax As Integer
Dim MasK(N) As Integer
'N = Val(TextBox1.Text)

'Заполнение массива значений принцев )))
For i = 1 To N
   MasK(i) = Int(Rnd * 99 + 1)
   ListBox1.AddItem MasK(i)
Next


'CommandButton1.Enabled = False
'N = Val(TextBox1.Text)



For K = 1 To N
   p = (K / N * SUMM(K, N)) * 100
   MasP(K) = p
   b = "Просматривая " + Str(K) + " принца(ев) вероятность равна " + Str(p)
   ListBox2.AddItem b
Next K
   
'Поиск максимальной вероятности...
Max = MasP(1)
For i = 1 To N
   If Max < MasP(i) Then
      Max = MasP(i)
      NMax = i
   End If
Next i

'Поис максимального среди не просмотренных...
Maxx = MasK(1)
For i = 1 To NMax
   If Maxx < MasK(i) Then
      Maxx = MasK(i)
   End If
Next i

For i = NMax To N
   If Maxx <= MasK(i) Then
   'MsgBox MasK(i)
   TextBox2.Text = "Для наилучшего выбора необходимо просмотреть " + Str(NMax) + " кандидатов " + vbCrLf + "Лучший кандидат с рейтингом " + Str(MasK(i))
   GoTo 1
   End If
Next i
1:
If TextBox2.Text = "" Then TextBox2.Text = "Некому принцесску ебать, дура потамушта!"
End Sub


Function SUMM(ByVal K As Integer, ByVal N As Integer)
Dim Rez As Double
Rez = 0

For i = K To N - 1
   Rez = Rez + 1 / i
Next i

SUMM = Rez
End Function