vba в word. нахождение произведения чисел из массива, которые < В / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba в word. нахождение произведения чисел из массива, которые < В

18 сообщений из 18, страница 1 из 1

vba в word. нахождение произведения чисел из массива, которые < В

#37780262

ТыртырыЧ

Гость

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

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Option Base 1
Private Sub cmb_click()
Dim a As Variant
Dim stra As String
Dim i, n As Integer
Dim p As Integer
Dim b As Integer
a = Array(-1, 4, -8, -5, 13, -18, 20, 0)
n = UBound(a)
p = 0
b = Val(txtB.Value)
For i = 1 To n
If a(i) < b Then p = p * a(i)
Next i
Txtp.Value = p
End Sub

Модератор: учимся использовать тэги оформления кода

...

Рейтинг:

0 / 0

03.05.2012, 12:40

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780347

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

- а что такое txtB, Txtp
- у ошибки тескт имеется?
- в какой строке она возникает? (у меня не возникла)

...

Рейтинг:

0 / 0

03.05.2012, 13:06

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780364

ТыртырыЧ

Гость

Shocker.Pro- а что такое txtB, Txtp
- у ошибки тескт имеется?
- в какой строке она возникает? (у меня не возникла)
1) как я понял из методички, это вывод на экран. к примеру, им нужно вывести min значение они и пишут txtmin.value = min

...

Рейтинг:

0 / 0

03.05.2012, 13:11

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780367

jhonkuk

Гость

Может так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub cmb_click()
Dim a As Variant
Dim stra As String
Dim i, n As Integer
Dim p As Integer
Dim b As Integer
a = Array(-1, 4, -8, -5, 13, -18, 20, 0)
n = UBound(a)
p = 1
b = Val(txtB.Text)
For i = 1 To n
If a(i) < b Then p = p * a(i)
Next i
Txtp.Text = p
End Sub

...

Рейтинг:

0 / 0

03.05.2012, 13:12

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780368

ТыртырыЧ

Гость

ошибка: Run-time error '424': Object required. строку не выделяет. я почему-то скрин не могу выложить

...

Рейтинг:

0 / 0

03.05.2012, 13:13

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780372

ТыртырыЧ

Гость

jhonkukМожет так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub cmb_click()
Dim a As Variant
Dim stra As String
Dim i, n As Integer
Dim p As Integer
Dim b As Integer
a = Array(-1, 4, -8, -5, 13, -18, 20, 0)
n = UBound(a)
p = 1
b = Val(txtB.Text)
For i = 1 To n
If a(i) < b Then p = p * a(i)
Next i
Txtp.Text = p
End Sub

снова эта ошибка.. она всё время появляется..

...

Рейтинг:

0 / 0

03.05.2012, 13:14

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780382

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

ТыртырыЧкак я понял из методички, это вывод на экран. к примеру, им нужно вывести min значение они и пишут txtmin.value = minТак в методичке наверное пишут, что надо создать текстовые поля с такими именами?

...

Рейтинг:

0 / 0

03.05.2012, 13:18

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780385

jhonkuk

Гость

Странно, в VB text, в аксе Value. и там и там работает

...

Рейтинг:

0 / 0

03.05.2012, 13:20

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780388

ТыртырыЧ

Гость

jhonkukСтранно, в VB text, в аксе Value. и там и там работает
ну я в ворде 2007 alt+F11 нажимаю, пишу текст, нажимаю F5 и эта ошибка

...

Рейтинг:

0 / 0

03.05.2012, 13:22

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780392

jhonkuk

Гость

может вы действительно пытаетесь выполнить код без элементов. должно быть два тектовых поля (txtB, Txtp) и одна кнопка (cmb)

...

Рейтинг:

0 / 0

03.05.2012, 13:25

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780396

ТыртырыЧ

Гость

Shocker.Pro,
не знаю... там в методе просто решенная задача и задача тебею вот я по аналогии деллал. там написано:
присвоение результата переменной y
TxtY.value=y

...

Рейтинг:

0 / 0

03.05.2012, 13:27

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780398

ТыртырыЧ

Гость

jhonkuk,
мм.. возможно и так. Не подскажешь, как их тогда сделать?

...

Рейтинг:

0 / 0

03.05.2012, 13:29

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780418

jhonkuk

Гость

http://www.askit.ru/custom/vba_office/m5/05_01_forms_basics.htm

...

Рейтинг:

0 / 0

03.05.2012, 13:42

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780425

ТыртырыЧ

Гость

jhonkuk,

спасибо, ща почитаю

...

Рейтинг:

0 / 0

03.05.2012, 13:47

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780426

jhonkuk

Гость

и не забудьте обозвать элементы так как у вас в коде ;-)

...

Рейтинг:

0 / 0

03.05.2012, 13:48

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780440

ТыртырыЧ

Гость

jhonkuk,

ага, спасибо :)

...

Рейтинг:

0 / 0

03.05.2012, 13:54

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780581

TpaBka

Участник

Сообщения: 564

Рейтинг: 0 / 0

ТыртырыЧ,
Вообще можно и без элементов управления

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Dim a As Variant
Dim stra As String
Dim i, n As Integer
Dim p As Integer
Dim b As Integer
a = Array(-1, 4, -8, -5, 13, -18, 20, 0)
n = UBound(a)
p = 1
b = Val(InputBox("Введите число B:", , 0))

For i = 0 To n
    If a(i) < b Then p = p * a(i)
Next i
MsgBox p

индекс 1-го элемента массива по умолчанию = 0

...

Рейтинг:

0 / 0

03.05.2012, 14:50

| Ответить | Цитировать | Написать

vba в word. нахождение произведения чисел из массива, которые < В

#37780613

QValD

Участник

Сообщения: 174

Рейтинг: 0 / 0

ТыртырыЧя работал в паскале, в бейсике, но в vba никогда.
Этот код и для vb6 и для vb.net подойдет

...

Рейтинг:

0 / 0

03.05.2012, 15:08

| Ответить | Цитировать | Написать

18 сообщений из 18, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=79&tid=2157825]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	29ms
get topic data:	12ms
get forum data:	3ms
get page messages:	62ms
get tp. blocked users:	2ms
others:	313ms

total:	453ms