Посмотрите что не так в программе

[lalalalala]

Помогите написать программу в VB МS Excel,дано задание:
Заполнить n- строк (n<50) столбца А случайными числами из диапазона [1..100] в порядке их возрастания.
Вот я сделала,что знаю,но она не работает,что нужно добавить??

sub pr()
Dim a,n,i,s as Integer
n=100
for i= 1 to n
a=InputBox("Введите не больше 50 чисел")
if a>50 then MsgBox ("Нужно указать меньше 50 чисел")
s=100 * Rnd() + 1
Next
End sub
Зараннее спасибо

[Казанский]

Sub pr()
Const N& = 100
Dim a&, s$
a = InputBox("Введите число не больше 50")
If a > 50 Then MsgBox "Ниасилили :(": Exit Sub
s = Str$(N / a)
Range("A1").Formula = "=INT(1+RAND()*" & s & ")"
Range("A2:A" & a).Formula = "=INT(A1+RAND()*(" & s & "*ROW()-A1))"
With Range("A1:A" & a): .Value = .Value: End With
End Sub

Чтобы числа не повторялись, третью строку с конца надо изменить:

Range("A2:A" & a).Formula = "=INT(A1+1+RAND()*(" & s & "*ROW()-A1-1))"

[alex77755]

a=InputBox("Введите не больше 50 чисел")
if a>50 then MsgBox ("Нужно указать меньше 50 чисел")

Где-то это я уже видел...
Предлагается ввести не больше 50 чисел... А разрядность чисел? А как их разделять? Пробелами? Запятыми? ...
И вообще if a>50 По своему определению InputBox это текстовой формат.
Как можно сравнивать текст с числом...