поVBA в Word(решаем лёгкие задачки для студенточки;)

[P.Si]

1).сделать форму где вписываешь фамилию больного, возраст диагноз и это должно отобразиться в табличке (фамилия возраст диагноз
на 8 больных,расположить их по алфавиту)
2). с помощью MsgBox отобразить на экране таблицу.содержащую заголовки колонка х колонка у. Под заголовком дб 15 пустых строк для данных.Толщина должна иметь 17 горизотальных линий, отделяющих строки друг от друга и 3 вертикальных линии, отделяющие колонки.
3).с помощью формы запросить 5 фамилий и отобразить их в алфавитном порядке.
4).запросить послед-ть произвол чисел,признаком конца ввода явл-ся 0 и с помощью MsgBox отобразить их на экране в виде таблице из 3 колонок.в первой все числа, во второй отрицательные, а в 3 только положительные.

[P.Si]

Отзовитесь, люди, увлечённые решением задач!пожалуйста, осчастливьте меня!!!

[Mad_Cat]

решаем лёгкие задачки для студенточки;

Отзовитесь, люди, увлечённые решением задач!пожалуйста, осчастливьте меня!!!

[off]Вчера отозвались -осчастливили и на 50$ пролетели([/off]
если они

лёгкие задачки

то чего же сами не сделаете?

[P.Si]

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

[off]Вчера отозвались -осчастливили и на 50$ пролетели([/off]
если они то чего же сами не сделаете?

Ибо они для Вас лёгкие

[P.Si]

Вот, что у меня получилось ко втрой задаче! Нужно 15 строк, а выдаёт только 10.Как это изменить??
Собственно текст проги:
Sub chisla()
Dim a, b, c, d, z As String
c = "|" + String(10, " ") + "x" + String(10, " ") + "|" + String(10, " ") + "y" + String(10, " ") + "|"
d = String(36, "-")
z = String(36, "-") + Chr(13) + c + Chr(13) + String(36, "-")
b = "|" + String(22, " ") + "|" + String(22, " ") + "|"
For a = 1 To 20
z = z + Chr(13) + b + Chr(13) + d
Next
MsgBox (z)
End Sub