Составить простейший код на Visual Basic 6.0 - есть ответ

Mariya Boinro, 188 просмотров

Помогите пожалуйста составить парочку простых кодов для Visual Basic 6.0, сама я не понимаю, но очень надеюсь на вашу помощь.

- Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением.

- Дан массив размером N. Найти в нём минимальный и максимальный элементы, определить их индексы.

Примечание:
помогите составить код хотя бы для одной из них

Примечание:
спасибо большое!:))) остался лишь один вопрос, как тут выбрать лучший ответ? ;)

Ответы:

Алексей Мисягин

50$

Удачник

Sub Prog1
Dim A As Double, B As Double, S As Double, P As Double, Mes As String
A = InputBox("Vvedite chislo A")
B = InputBox("Vvedite chislo B")
S = (A + B) / 2 : P = 2 * A * B
If A > B Then
A = S : B = P
Else
A = P: B = S
End If
Mes = "A = " & A & "; B = " & B
MsgBox(Mes)
End Sub

11 лет назад

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

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

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