Произведения элементов двух массивов, удовлетворяющие условию - VB
Формулировка задачи:
Здравствуйте...помогите решить данную задачу на форме.....ВБ новый для меня язык-испытываю трудности....
Для заданной величины А и заданных значениях элементов векторов X1,
X2, ..., Xn и Y1, Y2, ... , Yn, определить число произведений Xi*Yi, удовлетворяющих
условию Xi*Yi<=А, и сумму таких произведений.
Наформе 2 кнопки и 1 листбокс в который выводиться результат
оооо да,прошу прощения,что-то задумался)))
Решение задачи: «Произведения элементов двух массивов, удовлетворяющие условию»
textual
Листинг программы
Private Sub Command1_Click() Dim x() Dim y() Dim k As Integer Dim A As Double Dim summ As Double k = 0 summ = 0 A = InputBox("Введите значение A") x = Array(1, 2, 5, -6, 4) y = Array(1.25, 25, 6, -1.36, 100) For I = 0 To UBound(x) If CDbl(x(I)) * CDbl(y(I)) <= A Then k = k + 1 summ = summ + CDbl(x(I)) * CDbl(y(I)) End If Next MsgBox "Массив X{" & Join(x, ", ") & "}" & vbNewLine & "Массив Y{" & Join(y, ", ") & "}" & vbNewLine & "A=" & A & vbNewLine & "Число произведений:" & k & vbNewLine & "Сумма:" & summ, vbInformation End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д