[gannet]

Чего тут непонятного В ячейку вводится Х, чуть ниже расположена кнопка "Рассчитать", к которой подвешена функция рассчета Y: в цикле от 1 до 18 возводишь Х в степень итерационной переменной (i), делишь на i в квадрате и вычитаешь i в квадрате, полученное число прибавляешь к созданной до цикла Y (перед циклом ее в 0), а после завершения цикла применяешь все богатство своей фантазии для того, чтобы вывести полученное число Y на экран
P.S. Хотя нет, знаю чего непонятного: помню, как на пересдаче 1 контрольной 1 курса всего за час (!) наваял похожую программу на С (с подсказкой учителя, которая считала, что все студенты делятся на две категории: талантливые и усидчивые), но мне-то простительно, я до 10 класса думал, что программисты - это те, кто пишет программу телепередач на неделю, и не понимал, чего все так стремятся ими стать

[vova-09]

Мне нужно написать программу в Visual Basic, чтобы она делала это действие

Именно эту программу е меня не выходит написать правильно

[gannet]

Именно эту программу е меня не выходит написать правильно »

Ну так выкладывайте свой вариант, посмотрим)
С чем, собственно, проблема то: с чтением из ячейки - Worksheets("Лист1").Range("a1").Value, с проверкой значения - вам поможет isnumeric(), а Y, кстати, надо не 0, а 0.0 перед циклом (там же типизация не строгая). Если речь действительно о VBA, конечно, а то вы меня запутали

Visual Basic »

.

[Iska]

я до 10 класса думал, что программисты - это те, кто пишет программу телепередач на неделю »

А теперь Вы в этом уверены, да ?!

Я вообще не вижу в задании упоминания Excel, Рабочих книг, Листов и ячеек. Скорее, обычный InputBox, цикл, MsgBox.

[gannet]

Iska, a

vba

[lxa85]

gannet, ИМХО тоже Visual Basic, от vba он для них пока не отличим - синоним.

[gannet]

Да какая разница, и там, и там всего два секрета успешного решения: валидация введенного значения и использование не целочисленных переменных, а float (инициализировать не в 0, а в 0.0f, насчет функций не помню).

[Iska]

gannet, это не C, там нет float (и нет 0.0f), есть только Single и Double .

[Delirium]

PHP код:

X = 10 ' (или Cells(1,1))



For i = 1 To 18

tmp = ((X ^ i) / (i ^ 2)) - (i ^ 2)

Sum = Sum + tmp

Next i

MsgBox "Sum = " & Sum 

Адски сложно )