помогите пожалуйста написать программу в Visual Basic 6

компьютеры программирование программы visual basic

В массиве А определить минимальное и макси-мальное значения и их порядковые номера. А=( -7; 5; 0; 5; -7; 8; 5; 9; 1; 5) Вывести исходный массив А в строку, а результаты в столбец.

по примеру:

Private Sub Form_Load()
REM ПРИМЕР ПРОГРАММЫ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ
Dim A()as double
Dim B() as double
Dim c() as double
Dim N as integer
N= val(INPUTBOX( "ВВЕДИТЕ РАЗМЕРНОСТЬ ОДНОМЕРНОГО МАССИВА "))
REM ОБЪЯВЛЕНИЕ МАССИВА И ВВОД ИСХОДНЫХ ДАННЫХ
Redim A(N)
Redim B(N)
Redim c(N)
Rem Ввод значений элементов массива B()
FOR I = 1 TO N
B(I)= val(INPUTBOX("ВВЕДИТЕ значения элементов массива B()"))
NEXT I
Rem Ввод значений элементов массива С()
FOR I = 1 TO N
С(I)= val(INPUTBOX("ВВЕДИТЕ значения элементов массива С()"))
NEXT I
REM РАСЧЕТ ЗНАЧЕНИЙ МАССИВА А
FOR I = 1 TO N
IF B(I) >= 0 AND B(I) <= 2 OR B(I) >= 6 THEN
A(I) = ABS(B(I) + c(I))
ELSE
A(I) = (B(I) + c(I)) ^ 2
END IF
NEXT I
REM ВЫВОД ИСХОДНЫХ ДАННЫХ И РЕЗУЛЬТАТОВ РАСЧЕТОВ
PRINT
PRINT "ЗАДАНИЕ ВЫПОЛНИЛ СТ-Т ИВАНОВ И.И., ГР.БГТУ , ВАРИАНТ 1"
PRINT
PRINT "ИСХОДНЫЕ ДАННЫЕ: значения элементов массива В С"
FOR I = 1 TO N
PRINT TAB(10); B(I); TAB(20); c(I)
NEXT I
PRINT
PRINT "РЕЗУЛЬТАТЫ РАСЧЕТОВ"
FOR I = 1 TO N
PRINT A(I);
NEXT I
END Sub


Ответы:
какой все-таки ужасный язык этот Басик ( сорри за оффтоп - не удержался)
На форме делаешь 2 поля Label1 и Label2 для вывода результатов. У Label2 ставишь свойство WordWrap = True.
Dim A(10) As Integer, i As Integer, Max As Integer, Min As Integer, nMin As Integer, nMax As Integer, Mes As String
Mes = ""
For i = 1 To 10
A(i)= val(InputBox("ВВЕДИТЕ  значения  элементов массива A()"))
Mes = Mes & A(i) & "; "
Next i
Label1.Caption = Mes
Max = A(1) : Min = A(1) : nMax = 1 : nMin = 1
For i = 2 To 10
 If A(i) > Max Then Max = A(i) : nMax = i
 If A(i) < Min Then Min = A(i) : nMin = i
Next i
Mes = "Минимальный A(" & nMin & ") = " & Min & Chr(13) & Chr(10) & "Максимальный A(" & nMax & ") = " & Max
Label2.Caption = Mes
End


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.