» Задачи на Visual Basic (VB).

Помогите, пожалуйста.
Такая задача:
Вычислить куб суммой всех чисел от x до n, которые не превышают 100.

Здраствуйте, дорогие программисты) помогите пожалуйста решить несколько программ по vbs) http://www.7image.ru/v.php?id=216371 это первая)
вот вторая... http://www.7image.ru/v.php?id=216372
и третья... http://www.7image.ru/v.php?id=216373
За ранее благодарю=)

плиз подскажите как запретит открытие той или иной папки
regwrite"HKCRfoldershellopencommand","rundll32.exe" <----- сам выдумал может я тут и не прав
примерно таким способом через регистр ,если есть другие варианты плиз подскажите

Здравствуйте!!! мне прям очень срочно нужно решить две задачи, а я что-то совсем никак не могу сообразить как это сделать. в первой вообще ничего, но мне говорили она легче. Во-второй вывод данных....

вот они:
1) для числа n , вводимого с клавиатуры (с помощью функции InputBox()) вычислить все значения х, если
х1=0,3,
х2=-0,3,
хi=i+cos(xi-2), i=3,4,..n
Вывести в столбцах Excel значения xi. подписать выделенные элементы.

2) для числа n , вводимого с клавиатуры (с помощью функции InputBox()) найти все элементы квадратного массива а(i,j) размерностью n x n, если
а(i,j) = (i,j)/cos(i)
Найти все значения числа m<2n вводимого с клавиатуры (с помощью функции InputBox()) те элементы массива а(i,j) , сумма индексов которых равна m.
вывести в excel массив а(i,j) и все найденные элементы с помощью функции Cells. Подписать введенные данные.

заранее ВАМ ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО, УМНЫЕ ЛЮДИ!!!

помогите пожалуйста, глупая студентка-первокурсница накопила хвостов, а в вижуале не разбирается абсолютно


a = -100, b = 107
1) Дана последовательность действительных чисел А1, …, А50. Получить последовательность B1, …, В50, которая отличается от исходной тем, что все нечетные элементы удвоены.
2) Даны натуральное число n, последовательность действительных чисел а1, …, аn. Получить удвоенную сумму всех по-ложительных элементов последовательности а1, …, аn.

Указания. Элементы массива генерируются случайным образом в заданном диапазоне [a, b] и располагаются в первом столбце рабочего листа электронной таблицы. Результат выводится во второй столбец соответствующего листа электронной таблицы.

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ, ОЧЕНЬ СРОЧНО НАДО РЕШИТЬ
1.  В каждом столбце и каждой строке матрицы P(n, n) содержится строго по одному нулевому элементу. Перестановкой строк добиться расположения всех нулей по главной диагонали матрицы.
2.     Из массива A(n) выбрать случайным образом m различных элементов и поместить их в массив B(m) .

Подскажите новичку!
На всех доступных мне документах DriveListBox изображен в виде списка дисков, а у меня он открывается только с одним!
В чем тут дело?

У вас только один диск

В системе два диска SATA, на них пять разделов, но в DriveListBox иден только тот раздел, в котором пытаюсь открыть проект, и маленький треугольник выбора не работает!
Опишу конкретную задачу, которую пытаюсь решить.
Папка DICOM содержит только подпапки с цифровыми именами (т.н. STUDY), каждая study также содержит цифровые подпапки (SERIES), в каждой series имеется от нуля до тысяч цифровых файлов.
Задача - в каждой study из первого находящегося в ней файла извлечь несколько параметров (тэгов). Задачу я решил в MSACCESS и в QBASIC, но длинно и неприемлемо для юзеров (врачей), а вот в VB6 решение не могу начать!
Так что же может происходить с DriveListBox?
Спасибо!

Всем привет помогите пожалуйста студенту первого курса с задачей по информатике.)))
Даны три целых числа: А, В, С. Проверить, верно ли утверждение: «Хотя
бы одно из чисел А, В, С положительное». Надо написать программу с помощью visual basiс.
Помогите плиз))))

sportvanino

Код:
Public Function IsPositive(ByVal A As Long, ByVal B As Long, ByVal C As Long) As Boolean
IsPositive = (A > 0) Or (B > 0) Or (C > 0)
End Function

этот язык Visual Besic??? Чето как то не похоже. Когда мы решали задачи мы начинали с
Private sub Command ....
Dim a as single и так далие.....

sportvanino
Ну, так и суй функцию в свою
Цитата:

Private sub Command

- обработчик нажатия кнопки, передавая параметрами в функцию, что там у тебя?, значения TextBox, приведя и к типу Long

Привет умникам! Где вы среди трех целых чисел: -1,0,-2 видите положительное?
И вопрос к администраторам - почему письма приходят на fel123@km.ru?
Феликс Четвертков.

Добавлено:
Ура!
Нашел почти готовое решение Александра Бельбакова: recursivesearch.
В нем только три строчки закомментировать, и это то, что мне было (и есть) нужно.

fel12

Цитата:

Привет умникам! Где вы среди трех целых чисел: -1,0,-2 видите положительное?

Написано же

Цитата:

Проверить, верно ли утверждение: «Хотя бы одно из чисел А, В, С положительное»

Здравствуйте, помогите решить задачу если не сложно! Буду очень благодарен!
Вот условие задачи:
В тексте вставить между словами вместо одного пробела запятую и пробел.
Текст (произвольный)
Спасибо! =)

Vegoss
Попробуй Replace Function (Visual Basic)

Код: Replace([в чем искать], " ", ", ")

dneprcomp
Спасибо огромное! ))

Спамботы какие-то понабежали...

Создать проект, в котором вычеслить часть пользователей ИНтернет в каждой стране в 2010. В отдельном списке вивести страны, в которыхз часть пользователей выше 50%.

Эсть таблица с даными, нужен код.

Очень Срочно, я на Екзамене. Vb 2008 Через DataGridView

Цитата:

что-то вроде такого:

Код:
for each чего-то in myMail.Body
if найдено Eq No then заменить его на Eq No C1
next

?

Добавлено:
Нашел. Вот так.


dim sTemp
А внутрь вышеуказанного цикла добавляем:

Код:
sTemp = "Eq No " + Equip(i)
myMail.HTMLBody = Replace(myMail.HTMLBody, "Eq No", sTemp)

PALbICH

Цитата:

Как сделать, чтобы все пробелы сохранялись?

С помощью Replace никак. Используйте Mid, Left, Right,Len, InStr в цикле.
Проверяйте, сколько пробелов между словами и стройте логику замены на If Then
http://msdn.microsoft.com/en-us/library/e3s99sd8(v=vs.80).aspx
Было бы неплохо показывать именно свой код, а не "что-то вроде такого:"
Приведенный код не заменяет пробелы. Поэтому непонятно, что собственно хочется сделать.

PALbICH
Сами по себе пробелы не удаляются. Так что поддерживаю dneprcomp'а, показывайте код, скорее всего у вас там где-то лишняя обработка текста происходит.

Legio PALbICH
Сами по себе нет. Но Replace заменяет все найденные стринги.
Т.е., если параметром поиска в Replace единичный спейс, то все найденные спейсы будут заменены на значение параметра замены. Даже если спейсы следуют подряд один за другим. Пример:

Код: sTemp = "Дата Время Значение"
sTemp = Replace(sTemp , " " , "-")
'Значение sTemp изменится на "Дата-------Время------Значение"

dneprcomp
Я ровно об этом написал -- где-то происходит лишняя обработка текста

Legio

Цитата:

где-то происходит лишняя обработка текста

Ну, можно и так сказать
Использование Replace - лишнее

Проблема оказалась не в VBA, а в HTML. Если HTMLBody содержит более одного пробела подряд, то при отображении в outlook или браузере все дополнительные пробелы убираются, остается только один. Можно полечить тэгом <PRE> или заменой пробелов на &nbsp.

PALbICH
Лучше &nbsp; -- и не забывайте его закрывать точкой с запятой, а то может вылезти всякое.

ПОЖАЛУЙСТА ПОМОГИТЕ НАПИСАТЬ ПРИЛОЖЕНИЕ НА VB. Нужно сделать приложение, которое рассчитывает и показывает анимацию колебательного движения. Связь ISQ 471142671. Skype - Moiseykaaa. Буду несказанно благодарен

Legio
и
dneprcomp

Спасибо!