VBNet - Форум - Проблема с задачкой

Вопрос: Проблема с задачкой Добавлено: 08.02.11 14:28

Автор вопроса: Джиган

Ребята вот такая вот задачка, совершенно не понимаю почему получается тот или иной ответ при вводе k. Пожалуйста, помогите разобраться, прокомментируйте каждую строчку и переменную, что и за чем!? Заранее благодарен)))

Sub p8()
Dim x As Integer, i As Integer, k As Integer, p As Long
k = InputBox("Введи k")
x = 2
p = 1
For i = 1 To k
p = p * k
x = x + 2
Next i
MsgBox ("произведение=" & p)
End Sub
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Захарка Вопросов: 0 Ответов: 42	Профиль \| \| #1	Добавлено: 08.02.11 17:05
	А нафига тут нужен X??? ты вводиш к и умножаеш к раз число р на к. Ответить

Номер ответа: 2 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #2	Добавлено: 08.02.11 19:45
	В данном случае вычисляется k^k Ответить

Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #3	Добавлено: 08.02.11 20:05
	k=InputBox("Введи k") MsgBox ("произведение=" & (k^k)) чтоль? Ответить

Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #4	Добавлено: 08.02.11 21:10
	Sub p8() 'Начало подпрограммы с именем p8. Dim x As Integer, i As Integer, k As Integer, p As Long 'Объявляем четыре переменные типа число. Integer - от -32 768 до +32 767, Long большой +-два с лишним миллиарда. k = InputBox("Введи k") 'Приравниваем k к результату работы функции InputBox. В качестве параметра этой функции передается строка "Введи k". Функция отображает пользователю окно с текстовым полем, в которое он может ввести число. x = 2 'Приравниваем x к двум p = 1 'Приравниваем p к одному For i = 1 To k 'Повторяем все, что находится между For и Next k раз. p = p * k 'Умножаем p на k и приравниваем p к результату этого умножения x = x + 2 'Увеличиваем x на 2. Next i MsgBox ("произведение=" & p) 'Показываем окно сообщение, в котором к тексту "произведение=" присоединяется значение переменной p End Sub 'Конец подпрограммы К чему все это не знаю. Ответить

Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #5	Добавлено: 09.02.11 12:40
	Нах ты все енто прокомментил? Ответить

Номер ответа: 6 Автор ответа: Захарка Вопросов: 0 Ответов: 42	Профиль \| \| #6	Добавлено: 09.02.11 17:57
	Ну так просили же комментариев))) И всётаки я в упор не понимаю зачем там X( Ответить

Страница: 1 |