ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с задачкой
10 сообщений из 10, страница 1 из 1
Помогите с задачкой
    #36032173
WnF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WnF
Гость
Здравствуйте.
необходимо решить задачку, помогите пожалуйста

задача:

Вычислить сумму квадратов всех элементов заданного массива x(N); за исключением элементов кратных пяти, все данный вводятся в ручную через форму.
...
Рейтинг: 0 / 0
09.06.2009, 01:02
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36032253
EmilRegis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EmilRegis
Участник
получаешь список элементов...например это массив...
в цикле перебираешь его элементы и проверЯешь
Код: plaintext
1.
2.
3.
if a[i] mod  5  =  0  then
sum = sum + a[i]*a[i]
end if
...
Рейтинг: 0 / 0
09.06.2009, 06:48
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36034214
WnF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WnF
Гость
а разве не if a[i] mod 5 <> 0 then,
этот момент я вроде понял, я не могу полностью написать задачу, у меня все время что то не так:(

если не сложно можеш код полностью написать?
...
Рейтинг: 0 / 0
09.06.2009, 19:53
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36034335
Апострофф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апострофф
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Option Explicit

Function mSum(X As Variant)
Dim I As Long
For I = LBound(X) To UBound(X)
  If (X(I) Mod  5 ) <>  0  Then
    mSum = mSum + X(I) * X(I)
  End If
Next I
End Function

Sub mSum_Example()
Dim X
X = Array( 0 ,  1 ,  2 ,  3 ,  4 ,  5 ,  6 ,  7 ,  8 ,  9 )
Debug.Print mSum(X)
End Sub
...
Рейтинг: 0 / 0
09.06.2009, 21:59
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36034429
WnF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WnF
Гость
А ты уверен что это Вижуал Басик?:)
...
Рейтинг: 0 / 0
09.06.2009, 23:42
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36034594
Апострофф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апострофф
Гость
WnF , вообще-то я проверяю (на всякий случай) темы форумов, которые решил отметить своим участием.
При этом не стал заострять на предложенный Вами урезанный вариант ответа на Паскале (Делфи?).
До модератора мне еще расти и расти!
...
Рейтинг: 0 / 0
10.06.2009, 07:45
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36034605
Апострофф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апострофф
Гость
Прошу прощения, перепутал автора темы с первым откликнувшимся,
а как отредактировать или удалить свой пост - ещё не разобрался.

Да, это VB6. Если Вы программируете в стандартной форме, то добавьте на форму Command1 (или какое там она имяномер получит).
Двойным щелчком по ней попадете в стандартный обработчик события нажатия кнопки и вставьте туда вызов mSum_Example
Код: plaintext
1.
2.
private sub Command1_Click
  call mSum_Example
end sub
PS: Если откроете окно Immediate (Ctrl + G), то после запуска формы
и нажатия на Command1 получите результат в указанном окне.
...
Рейтинг: 0 / 0
10.06.2009, 08:03
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36045309
JuLiA55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JuLiA55
Гость
помогите с задачей!
В excel с помощью Visual basic надо решить!!!
В матрице 5х5 найти наибольший элемент, расположенный выше главной диагонали и наименьший ниже нее.
очень нужна помощь!!!заранее спасибо.
...
Рейтинг: 0 / 0
17.06.2009, 10:49
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36427623
Зеленка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеленка
Гость
составте фрагмент программы,которая в выделенном фрагменте текста(например,включающем 10 символов),буквам "а" задает начертание полужирным,а всем остальным символам - начертание курсив.

помогите тугодуму пожалуйста..
...
Рейтинг: 0 / 0
24.01.2010, 17:58
| Ответить | Цитировать | Написать  
Помогите с задачкой
    #36428323
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Зеленка
> составте фрагмент программы,которая в выделенном фрагменте текста(например,включающем 10 символов),буквам "а"
> задает начертание полужирным,а всем остальным символам - начертание курсив.

Берёш RichTextBox и показываеш в нем правильно отворматированный RTF-текст. Или создаеш HTML с нужными красотами и
показываеш его или в контроле WebBrowser или прямо в IE открываеш

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
25.01.2010, 10:38
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с задачкой
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]