Задачки на VBA!!!

[Аксинья]

Может найдется хороший человечек, который помог бы решить 2 задачки на языке VBA???!!! Пожалуйста???!!!1) Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.
2) Найти все трёхзначные числа, средняя цифра которых равна сумме двух крайних.
Пожалуйста

[IgorGO]

задача 2)
таких чисел 45 штук.

Sub s3()
  r = 1
  For i = 100 To 999
    s = Str(i)
    If (Val(Mid(s, 2, 1)) + Val(Mid(s, 4, 1))) = Val(Mid(s, 3, 1)) Then
      Cells(r, 1) = r & " =" & s
      r = r + 1
    End If
  Next
End Sub

задача 1)
акстись, Аксинья!
насколько мне известно натуральных чисел бесконечное множество, если составить таблицу умножения каждого натурального числа на каждое натуральное число получим бесконечность в квадрате элементов таблицы, если еще и суммы собрать каждого с каждым, то получаем 2 умножить на бесконечность в квадрате - это очеень много значений я не рискну такое распечатывать. я слышал, что до этого только Чаку Норису удалось досчитать до бесконечности (дважды)

[С.М.С]

или вот так:

For n = 1 To 9
For m = 0 To 9
For x = 0 To 9
If x = n + m Then
MsgBox n & x & m
End If
Next x
Next m
Next n

[EducatedFool]

Эта программа выведет Вам всю таблицу умножения натуральных чисел:

Sub ТаблицаУмножения()
    'Составить программу,    которая печатает таблицу умножения  натуральных чисел
    'в десятичной системе счисления.
    i = 2: Application.EnableCancelKey = xlDisabled: On Error Resume Next
    Do
        Cells(i, 1) = i: Cells(1, i) = i: For j = 2 To i: Cells(i, j) = i * j: Cells(j, i) = i * j: Next j
        MsgBox i: i = i + 1
    Loop
End Sub

Не забудьте распечатать таблицу, когда программа завершит свою работу.

[mchip]

Не забудьте распечатать таблицу, когда программа завершит свою работу.

Оригинально!

[kzld]

Сообщение от mchip

Оригинально!

А как её остановить ?
Пришлось жать Ctrl+Alt+Del

[EducatedFool]

Пришлось жать Ctrl+Alt+Del

Ну я уж не стал отключать возможность остановки макроса через диспетчер задач. Хотя можно было...

А как её остановить ?

Есть ещё и волшебная кнопочка Reset, которая помогает во всех случаях...

PS: А зачем останавливать?
Где Вам ещё представится возможность увидеть таблицу умножения ВСЕХ натуральных чисел?