BASIC Очень нужно

[Марина92]

Пожалуйста помогите решить задачу!
Разработать блок-схему и записать программу на языке BASIC.
Дана числовая последовательность состоящая из М элементов и число А. Есть ли в числовой последовательности элемент равный числу А.?

P.S.если не решу мне капец....

[alex77755]

Какой бейсик? VB6 или VBA устроит?

[Марина92]

любой ответ устроит

[alex77755]

VBA:

Sub последовательность()
Dim S As String
Dim N
Dim A
Dim M() As String
Randomize
For N = 1 To Int(10 * Rnd + 15)
S = IIf(S = "", Int(30 * Rnd + 1), S & "," & Int(30 * Rnd))
Next N
S = InputBox("Введите числовую последовательность через   " & """,""", "Числа только целые!!", S)
A = InputBox("Введите искомое число", "Целое число", Int(30 * Rnd))
M = Split(S, ",")
For N = 0 To UBound(M)
    If Val(A) = Val(M(N)) Then
        MsgBox "Такое число имеется в последовательности" & vbCrLf & S, 64, A
    End If
Next N
End Sub

[Марина92]

огромное спасибо