Задача: При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное трехзначное число) целых положительных случайных четырехзначных чисел. Получить подпоследовательность {bi}, куда включить только те элементы, в которых сумма первой и второй цифры равны сумме третьей и четвертой цифр. Обе последовательности вывести в соседние столбцы рабочего листа.
То что я пытался сделать, но так и не довел до ума:
Sub случайные числа()
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:B1000").C lear
Dim a() As Integer, n As Integer, i As Integer
Randomize Timer
n = 899 * Rnd + 100
ReDim a(n)
For i = 1 To n
a(i) = 8999 * Rnd + 1000
Next i
For i = 1 To n
Cells(i, 1) = a(i)
Next i
For i = 1 To n
If (i1 + i2) = (i3 + i4) Then Cells(i, 2) = ((a(i) Mod 1000) Mod 100) & Int((a(i) Mod 1000) / 100) & Int(a(i) / 1000)
Next i
End Sub
Если можно будет исправьте ошибку. Спасибо огромное!!! За ранее!