Определить элемент массива, равный заданному числу - VB
Формулировка задачи:
Есть ли в массиве A( N), (N<=15) число 15, если есть, на каком месте оно стоит (известно, что оно может встретиться только однажды).
Нужно составить программу в Visual Basic
Решение задачи: «Определить элемент массива, равный заданному числу»
textual
Листинг программы
- dim A() as long
- dim N as integer, I as Integer
- NAX:
- N=CInt(Val(InputBox("BBEDITE N")))
- if N>15 or N<1 then GOTO NAX
- Redim A(N)
- for I=1 to N
- A(I)=Val(InputBox("BBEDITE EL-T A(" & I & ")"))
- next I
- For I=1 to N
- if A(I)=15
- msgbox I
- exit for
- end if
- next I
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
