Задана последовательность - VB

Узнай цену своей работы

Формулировка задачи:

Задана последовательность чисел A = {A1, A2, ..., A6}. Выбрать из них числа, принадлежащие отрезку [x, y]. Из выбранных чисел образовать массив. Проверку на принадлежность отрезку оформить в виде подпрограммы. Исход- ные данные: A = {-4.1,-1,1.2,3,5,0.75}, x = -2,5; y = 1,2. модуль:
код:
Помогите исправить, выдает не правильно ответ.

Решение задачи: «Задана последовательность»

textual
Листинг программы
Option Explicit
 
Dim x, y
 
Function BetweenXY(z) As Boolean
BetweenXY = z >= x And z <= y
End Function
 
Private Sub Command2_Click()
Dim S
Dim A(), B()
Dim k&, m&
S = ""
x = -2.5
y = 1.2
A = Array(-4.1, -1, 1.2, 3, 5, 0.75)
ReDim B(0 To UBound(A))
For k = 0 To UBound(A)
  If BetweenXY(A(k)) Then
    B(m) = A(k)
    m = m + 1
  End If
Next
ReDim Preserve B(0 To m - 1)
MsgBox Join(B)
End Sub

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


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

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

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