![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 18.12.2012
Сообщений: 12
|
![]()
Помогите пжлста))
|
![]() |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 18.12.2012
Сообщений: 12
|
![]()
по аналогии делал, но что-то не так, утром сдавать 2 задачи и зачет мой...
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 10.04.2012
Сообщений: 12
|
![]() Код:
|
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 18.12.2012
Сообщений: 12
|
![]()
спасибо но я думал, будет что-то типа Private Sub command click...dim там всякие. Ваш код на бейсике?
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 10.04.2012
Сообщений: 12
|
![]()
на паскале
|
![]() |
![]() |
![]() |
#6 |
Новичок
Джуниор
Регистрация: 18.12.2012
Сообщений: 12
|
![]()
Блин извините, не указал, что на бейсике надо
а на визуал бейсике могёте? Форум - это не чат! Не надо плодить подряд несколько коротких сообщений! Это нарушение правил... для того, чтобы через минуту/другую дописать сообщение, не надо создавать ещё один новый пост. нажимайте на предыдущем кнопку "Редактировать" ("Правка") и дописывайте в своё сообщение, что Вы хотели добавить! Последний раз редактировалось Serge_Bliznykov; 18.12.2012 в 20:23. |
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 18.12.2012
Сообщений: 12
|
![]()
вот мой код, если есть ошибки исправьте пожалуйста
Private Sub Command1_Click() Dim a(10) As Single Dim i, n, k As Integer n = Val(InputBox("vvedite razmernost massiva")) For i = o To 10 a(i) = InputBox("element massiva") Next i For i = 0 To 10 If a(i) / 7 = a(i) \ 7 And a(i) < 0 Then k = k + 1 End If Next i Print k End Sub |
![]() |
![]() |
![]() |
#8 |
Улыбаемся :)
Пользователь
Регистрация: 18.12.2012
Сообщений: 74
|
![]()
Вот набросал. Массив Генирируется автоматически из 10 эл-ов в диапазоне -9 до +9. На вывод идут только отрицательные числа и 7.
Код:
Не забываем про весы.
![]() Последний раз редактировалось KooKish; 18.12.2012 в 21:13. |
![]() |
![]() |
![]() |
#9 |
Новичок
Джуниор
Регистрация: 18.12.2012
Сообщений: 12
|
![]()
сейчас попробую спс, а на форме что создать?
compile error, подчеркивает первую строчку желтым и dim синим Последний раз редактировалось Герман Греф; 18.12.2012 в 21:17. |
![]() |
![]() |
![]() |
#10 |
Улыбаемся :)
Пользователь
Регистрация: 18.12.2012
Сообщений: 74
|
![]()
Ты не на форму пихай, а на макрос страницы, выводит через MsgBox !!!
(т.е. слева активный макрос должен быть "Страница 1" "Страница 2" или "Страница 3" а не UserForm1. Вот туда и копируй) На форму сам переделай, делов по сути 0.
Не забываем про весы.
![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В С++ определить количество цифр в числе, являющихся квадратами некоторого числа | mmf_Valya | Помощь студентам | 1 | 20.10.2012 19:13 |
С++ Задача(Определить количество отрицательных элементов, количество элементов в интервале от 1 до 5) | grosssmile | Помощь студентам | 0 | 29.09.2012 18:25 |
В массиве из n элементов подсчитать количество четырёд идущих подряд одинаковых элементов ( Delphi7 ) | Анастасья | Помощь студентам | 1 | 31.03.2011 19:23 |
В массиве из п элементов много совпадающих элементов. Найти количество различных элементов | Strax | Фриланс | 11 | 12.06.2010 20:13 |