Нужно написать программу на Visual Basic

@flower88 · Регистрация: 09.03.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте, неожиданно столкнулась с такой проблемой:

нужно написать программу.
1. Число С1 составляет 3% от С2, которое составляет 21,2% от С3=1079. Найти С1 и С2.
2. Найти числа в интервале от N и M, которые являются квадратами четных чисел.

Первую задачу я решила так, только не знаю, правильно ли.

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Dim x As Single, y As Single, c As Single
x = Val(Text1.Text)
y = x * (21.2 / 100)
Text2.Text = Str(y)
z = y * (3 / 100)
Text3.Text = Str(z)
End Sub

А вторую задачу не смогла ни как решить. Помогите, пожалуйста. Буду благодарна за любую помощь!

@ааАлёна · 18.04.2010, 17:45

Здравствуйте помогите пожалуйста с задачей..я запуталась(((((((

@Alex77755 · 18.04.2010, 18:00

А это точно VB?
Что имеется в виду "ячейка"?
Из Ёксела?

@YuraAAA · 18.04.2010, 18:06

Первая - правильно
вторая-вот:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Dim m As Single, n As Single, i As Single, r As Single
Dim answer
n = InputBox("N")
m = InputBox("M")
For i = n To m
If (Fix(Sqr(i)) = Sqr(i)) And (Sqr(i) Mod 2 = 0) Then answer = answer & i & "  "
Next i
MsgBox answer
End Sub

Добавлено через 1 минуту
Третья

Visual Basic
1
2
3
4
5
6
Public Sub proc1()
Dim y As Single, x As Single
x = Cells(1, 1)
y = Log(Sqr(Abs(x - 2)) + 1.2) / (2 ^ x + Exp(x)) + (2 / x) ^ (2 / 3)
MsgBox y
End Sub

@Alex77755 · 18.04.2010, 18:09

YuraAAA,
Просвети, будь ласка, что есть ячейка в VB?

18.04.2010, 18:19

Помогите пожалуйста!
Разработать подпрограмму вычисления произведения тех элементов массива, значения которых больше среднего арифметического всех элементов выделенного диапазона рабочей таблицы. Элементы массива задать через функцию Input-box. (среда Excel)

@YuraAAA · 18.04.2010, 18:20

Alex77755, ну понятно что на VBA нужно )

@Alex77755 · 18.04.2010, 18:29

YuraAAA,
Так научи заказчика читать вначале.
А потом просить что бы за него всё сделали

Добавлено через 6 минут
flower88 создала топик с нарушениеем. Не в том разделе
А
ааАлёна
stas01
Вообще правил не читают!!!

@ааАлёна · 18.04.2010, 20:04

извини пожалуйста...я читала может что то упустила..((((( вывести в ячейку это когда мы делаем через эксель а там в саму ячейку вывести надо когда сохранили вижуал бейсике...

@Alex77755 · 18.04.2010, 20:43

ааАлёна,
Определись вначале со средой: VB или VBA

@ааАлёна · 18.04.2010, 20:53

...... VB)

@Alex77755 · 18.04.2010, 21:26

YuraAAA

см.выше

Alex77755, ну понятно что на VBA нужно

Тут всё так запутано, чтот надо уточнять

Добавлено через 16 минут

вывести в ячейку это когда мы делаем через эксель а там в саму ячейку вывести надо когда сохранили вижуал бейсике

Наверное я много выпил! Не вдуплюсь!
Давай завтра

@ааАлёна · 18.04.2010, 21:28

можно без ячейки...без вывода..просто в VB написать

@Alex77755 · 18.04.2010, 21:32

ааАлёна,
Я до се не понял задачи!
Поясни, будь ласка, шо треба
Ну типа что надо сделать?

Добавлено через 1 минуту
Тебе надо поиметь доступ к ячейкев Ёкселе?

@ааАлёна · 18.04.2010, 21:33

да.да

@Alex77755 · 18.04.2010, 22:10

Тогда так.
Сначала надо в проекте подключить в ссылках объект Ёксел
Сделала?

Добавлено через 2 минуты
Потом вопрос: Создать новый документ или открыть имеющийся?

Добавлено через 31 минуту
ааАлёна АУ
чЁ замолчала

@ааАлёна · 18.04.2010, 22:23

я не чё не умею..пипец..((((

@Alex77755 · 18.04.2010, 22:45

Ну так озвучь условие задания!
трудно быть екстрасексем

@Alex77755 · 18.04.2010, 22:59

Дело в том, что у меня установлен русский VB. И трудно будет подсказать.
Надо в ссылках поставить галку

@Alex77755 · 18.04.2010, 23:00

А дальше подскажу

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 18:00
	А это точно VB? Что имеется в виду "ячейка"? Из Ёксела? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 18:09
	YuraAAA, Просвети, будь ласка, что есть ячейка в VB? 0

stas01
	18.04.2010, 18:19
	Помогите пожалуйста! Разработать подпрограмму вычисления произведения тех элементов массива, значения которых больше среднего арифметического всех элементов выделенного диапазона рабочей таблицы. Элементы массива задать через функцию Input-box. (среда Excel)

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	18.04.2010, 18:20
	Alex77755, ну понятно что на VBA нужно ) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 18:29
	YuraAAA, Так научи заказчика читать вначале. А потом просить что бы за него всё сделали Добавлено через 6 минут flower88 создала топик с нарушениеем. Не в том разделе А ааАлёна stas01 Вообще правил не читают!!! 0

@ааАлёна 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6
	18.04.2010, 20:04
	извини пожалуйста...я читала может что то упустила..((((( вывести в ячейку это когда мы делаем через эксель а там в саму ячейку вывести надо когда сохранили вижуал бейсике... 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 20:43
	ааАлёна, Определись вначале со средой: VB или VBA 0

@ааАлёна 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6
	18.04.2010, 20:53
	...... VB) 0

@ааАлёна 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6
	18.04.2010, 21:28
	можно без ячейки...без вывода..просто в VB написать 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 21:32
	ааАлёна, Я до се не понял задачи! Поясни, будь ласка, шо треба Ну типа что надо сделать? Добавлено через 1 минуту Тебе надо поиметь доступ к ячейкев Ёкселе? 0

@ааАлёна 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6
	18.04.2010, 21:33
	да.да 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 22:10
	Тогда так. Сначала надо в проекте подключить в ссылках объект Ёксел Сделала? Добавлено через 2 минуты Потом вопрос: Создать новый документ или открыть имеющийся? Добавлено через 31 минуту ааАлёна АУ чЁ замолчала 0

@ааАлёна 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6
	18.04.2010, 22:23
	я не чё не умею..пипец..(((( 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 22:45
	Ну так озвучь условие задания! трудно быть екстрасексем 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 22:59
	Дело в том, что у меня установлен русский VB. И трудно будет подсказать. Надо в ссылках поставить галку Миниатюры 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.04.2010, 23:00
	А дальше подскажу 0