Задача в VBA какие-то неполадки - Форум
Пятница, 09.12.2016, 16:30
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача в VBA какие-то неполадки (Срочно надо до 22.04.2011 ПОЖАЛУЙСТА ПОМОГИТЕ)
Задача в VBA какие-то неполадки
tanyavoitДата: Четверг, 21.04.2011, 18:09 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Я что-то не могу понять я нажимаю для запуска F5 ввожу данные a, b и h и все пропадает и результата нет!!!
Что это может быть??????????????
Помогите пожалуйста!!!! wacko wacko wacko wacko cry

Sub funksiya()
'F(x) = ?(1-x^2)
'интервале (а,b) с заданным шагом h и вывести результат вычислений в список
azan: a = InputBox("Введите а")
If IsNumeric(a) = False Then MsgBox ("Значение должно быть числовым!"): GoTo azan
bzan: b = InputBox("Введите b")
If IsNumeric(b) = False Then MsgBox ("Значение должно быть числовым!"): GoTo bzan
hzan: h = InputBox("Введите h")
If IsNumeric(h) = False Then MsgBox ("Значение должно быть числовым!"): GoTo hzan
k = 10: a = a + h
For i = a To b Step h
k1 = Trim(Str(k))
If i = b Then GoTo sled
If 1 - i ^ 2 > 0 Then f = Sqr(1 - i ^ 2) Else f = "функция не имеет значений"
Range("a" + k1) = "При x=" + Str(i)
If IsNumeric(f) = True Then Range("b" + k1) = "F(x)=" + Str(f) Else Range("b" + k1) = "F(x)" + f
k = k + 1
sled:
Next
End Sub

 
boboДата: Четверг, 21.04.2011, 19:16 | Сообщение # 2
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
всё что угодно, макрос у меня работает, могу рабочий файл на мыло скинуть. пиши babamurad2010yandex.ru
p.s. а зачем новую тему создавать?
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача в VBA какие-то неполадки (Срочно надо до 22.04.2011 ПОЖАЛУЙСТА ПОМОГИТЕ)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016