Написать программу, печатающуюю таблицу умножения от 1 до введеного числа...Помогите решить, буду благодарен
Помогите решить задачу(( - Составить таблицу умножения.
|
16.12.2010 21:02:47
|
|
|
|
|
|
16.12.2010 21:31:27
{quote}{login=R Dmitry}{date=16.12.2010 09:23}{thema=Re: Помогите решить задачу((}{post}{quote}{login=FlashTRU}{date=16.12.2010 09:02}{thema=Помогите решить задачу((}{post}Написать программу, печатающуюю таблицу умножения от 1 до введеного числа...Помогите решить, буду благодарен{/post}{/quote}
Sub умнож() x = [a1] ReDim arr(1 To x, 1 To x) For i = 1 To x For j = 1 To x arr(i, j) = i * j Next: Next [a2].Resize(x, x) = arr End Sub{/post}{/quote} Спасибо тебе большое вот только в этой строке выдает ошибку ReDim arr(1 To x, 1 To x) |
|
|
|
|
|
16.12.2010 22:06:39
{quote}{login=FlashTRU}{date=16.12.2010 09:31}{thema=Re: Re: Помогите решить задачу((}{post}{quote}{login=R Dmitry}{date=16.12.2010 09:23}{thema=Re: Помогите решить задачу((}{post}{quote}{login=FlashTRU}{date=16.12.2010 09:02}{thema=Помогите решить задачу((}{post}Написать программу, печатающуюю таблицу умножения от 1 до введеного числа...Помогите решить, буду благодарен{/post}{/quote}
Sub умнож() x = [a1] ReDim arr(1 To x, 1 To x) For i = 1 To x For j = 1 To x arr(i, j) = i * j Next: Next [a2].Resize(x, x) = arr End Sub{/post}{/quote} Спасибо тебе большое вот только в этой строке выдает ошибку ReDim arr(1 To x, 1 To x){/post}{/quote} а Вы почитайте книжку про Vba , а то препод спросит что такое Х , а Вы и не ответите.......... да и......попытайтесь понять что оно вообще делает..пардон если невежливо
|
|||
|
|
|
|
17.12.2010 11:41:49
{quote}{login=R Dmitry}{date=16.12.2010 10:06}{thema=Re: Re: Re: Помогите решить задачу((}{post}{quote}{login=FlashTRU}{date=16.12.2010 09:31}{thema=Re: Re: Помогите решить задачу((}{post}{quote}{login=R Dmitry}{date=16.12.2010 09:23}{thema=Re: Помогите решить задачу((}{post}{quote}{login=FlashTRU}{date=16.12.2010 09:02}{thema=Помогите решить задачу((}{post}Написать программу, печатающуюю таблицу умножения от 1 до введеного числа...Помогите решить, буду благодарен{/post}{/quote}
Sub умнож() x = [a1] ReDim arr(1 To x, 1 To x) For i = 1 To x For j = 1 To x arr(i, j) = i * j Next: Next [a2].Resize(x, x) = arr End Sub{/post}{/quote} Спасибо тебе большое вот только в этой строке выдает ошибку ReDim arr(1 To x, 1 To x){/post}{/quote} а Вы почитайте книжку про Vba , а то препод спросит что такое Х , а Вы и не ответите.......... да и......попытайтесь понять что оно вообще делает..пардон если невежливо{/post}{/quote} Я знаю что такое x, мне непонятно что такое ReDim Arr....и вобще это больше на макрос похоже, чем на программу |
|
|
|
|
|
17.12.2010 11:48:12
А чем по вашему отличается макрос от программы :)
|
||||
|
|
|
|||
Читают тему
