Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 29
1

Где ошибка?

27.05.2016, 10:28. Просмотров 268. Ответов 1
Метки нет (Все метки)

Вот задание:
1. Mult передается массив и количество элементов, для которых нужно найти произведение.
Составить программу вычисления значения функции z=произведение X(1 to 12) + произведение Y(1 to 11) + произведение Z(1 to 10) где Xi, Yi, Vi – элементы массивов, состоящих из 15 элементов. Вычисления пpоизведения осуществить в подпpогpамме. В качестве параметров процедуре Mult передается массив и количество элементов, для которых нужно найти произведение.

вот код:
Function Произведение(ByVal Mas, N As Integer) As Single
Dim p As Integer, i As Integer
p = 1
For i = 1 To N
p = p * Mas(i)
Next i
Произведение = p

End Function

Private Sub CommandButton1_Click()
Dim X(1 To 12) As Integer, Y(1 To 11) As Integer, Z(1 To 10) As Integer, i As Integer, S As Integer, d As Integer

Randomize
For i = 1 To 12
X(i) = Int(15 * Rnd())
S = S + " " + Str(X(i))
Next i

Randomize
For i = 1 To 11
Y(i) = Int(15 * Rnd())
S = S + " " + Str(Y(i))
Next i

Randomize
For i = 1 To 10
Z(i) = Int(15 * Rnd())
S = S + " " + Str(Z(i))
Next i

ListBox1.List = X
ListBox2.List = Y
ListBox3.List = Z

d = Произведение(X, 12)
MsgBox d
d = Произведение(Y, 11)
MsgBox d
d = Произведение(Z, 10)
MsgBox d

End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2016, 10:28
Ответы с готовыми решениями:

Где ошибка?
Sub SUM() Dim c, i, n Dim k As Integer Dim a(6) As Double n = 6 Cells(1, 1).Value = "Введите...

Где ошибка в макросе?
Macros: Sub ExcelReport() Dim ExcelSheet As Object Set ExcelSheet =...

Где ошибка в коде?
Почему, когда генератор случайных чисел заполняет таблицу, получается так, что строки между собой...

Где ошибка в циклах?
Всем привет! Есть такой код: Sub Dim k For k = 3 To 5 Dim e For e = 7 To 9

1
es geht mir gut
11179 / 4656 / 1170
Регистрация: 27.07.2011
Сообщений: 11,371
27.05.2016, 11:04 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Option Explicit
Function Произведение(ByRef Mas() As Double, ByVal n As Integer) As Double
    Dim p As Double, i As Integer
    p = 1
    For i = 1 To n
         p = p * Mas(i)
    Next i
    Произведение = p
End Function
 
Private Sub CommandButton1_Click()
    Dim X() As Double, Y() As Double, Z() As Double
    Dim i As Integer, S As String, n As Integer
    n = 15
    ReDim X(1 To n), Y(1 To n), Z(1 To n)
    Randomize
    For i = 1 To n
       X(i) = Int(10 * Rnd + 1)
       Y(i) = Int(10 * Rnd + 1)
       Z(i) = Int(10 * Rnd + 1)
    Next i
    ListBox1.List = X
    ListBox2.List = Y
    ListBox3.List = Z
    MsgBox S & "Сумма произведений " & (Произведение(X, 12) + Произведение(Y, 11) + Произведение(Z, 10))
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2016, 11:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Где может быть ошибка?
Уважаемые форумчане, столкнулся со следующей проблемой... Написал макрос, в котором в столбце AK...

Сравнение массивов - где ошибка
Есть два списка. Они должны быть одинаковые. В первом может не хватать записей. Нужно их найти во...

Где ошибка , циклы с условием
Задание Сумма Sub lab14() Dim a1 As Single, s As Single, k As Integer Const x = 0.2 Const...

Подскажите, в где у меня ошибка. VBA
Есть код: Dim temparray As Range Set temparray =Range("a1").CurrentRegion Range(Cells(1, 1),...

Допущена ошибка в коде программы, где конкретно?
VBA, Word. Программа работает правильно, ошибок не выдает, но результата нет (ничего не изменяет)....

Подскажите пожалуйста где может быть ошибка
Здравствуйте. В VBA я только 7 день, потому сам не могу разобраться( Все вы знаете про врачебный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.