VBA Массив и запись

[Denton72]

Здрасте форум нужна помощь
сделал программу на VBA для урока
суть программы :
вожу массив расстояние от и до
и просто должен показать все числа которые в массиве могут находится

Option Compare Database


Function biomin(i As Integer, j As Double)
Dim n() As Double
ReDim n(i To j)
'MsgBox LBound(n)
'MsgBox UBound(n)
End Function
Sub arr()
Dim count As Integer
Dim result As String


 i = InputBox("write value array range from")
 j = InputBox("and value array range to")
 result = ""
 count = i
 result = count
 If count < j Then
 count = count + 1
 result = result + " " & count
 End If
 
MsgBox ("array range of :" & i & ";" & j & " ...")
MsgBox ("Numbers :  " & " " & result & " " & j)

End Sub

выводит мне i , "первое число после i", j (4 5 8(6 7 нету))
а как дальше уже незнаю всё что в гугле нашол и на майкрасофте помощь не помогает может кто то знает
нужно чтобы из
MsgBox ("Numbers : " & " " & result & " " & j)
в
MsgBox ("Numbers : " & result ) (чтобы переменая result записывала все эти числа )(либо что то получше предложить и покороче)

[AleksandrH]

Для вопросов по уроках есть свой раздел.

Function biomin(i As Integer, j As Double)
Dim n() As Double
ReDim n(i To j)
'MsgBox LBound(n)
'MsgBox UBound(n)
End Function

Sub arr()
    Dim count As Integer
    Dim result As String

    i = InputBox("write value array range from")
    j = InputBox("and value array range to")

    result = ""
    'count = i
    If j < i Then
        Exit Sub
    Else
    For count = i To j
        result = result & " " & count
    Next
    End If

MsgBox ("array range of :" & i & " ; " & j & " ...")
MsgBox ("Numbers : " & result)

End Sub

[Denton72]

спасибо большое и извините за точто не туда кинул

If j < i Then выкинул
        Exit Sub выкинул
    Else выкинул
    For count = i To j
        result = result & " " & count
    Next
    End If выкинул

ну тут опять загвозку дали
прогрмма хорошая получилась но как сделать теперь что бы выводил и обратно
типо не от 7 до 10 а от 10 до 7 я попитался в if then кинуть два действия

If i > j Then
 For count = j To i
result = result & " " & count
Next
else
  For count = i To j
        result = result & " " & count
next
end if

но result пустой
получается (ещё раз заране спасибо)

[AleksandrH]

Function biomin(i As Integer, j As Double)
Dim n() As Double
ReDim n(i To j)
'MsgBox LBound(n)
'MsgBox UBound(n)
End Function

Sub arr()
    Dim count As Integer
    Dim result As String

    i = InputBox("write value array range from")
    j = InputBox("and value array range to")

    result = ""
    'count = i
    If j < i Then
        For count = i To j Step -1
        result = result & " " & count
    Next
    
    Else
    For count = i To j
        result = result & " " & count
    Next
    End If

MsgBox ("array range of :" & i & " ; " & j & " ...")
MsgBox ("Numbers : " & result)

End Sub