Произведения элементов двух массивов, удовлетворяющие условию - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5
Похожие ответы