Помогите решить задачу на Visual Basic - есть ответ

P55, 115 просмотров

-3

Числа последовательно вводят с клавиатуры. После ввода каждого числа необходимо вычислить и вывести на экран среднее значение всех введенных чисел (все числа хранить в памяти нет необходимо-сти).

Нужен текст набранной программы

Примечание:
Rentier не работает

Ответы:

Rentier

Dim i As Integer
Dim S As Integer

Odin_lin

бейсик не нужен.

Без имени

А куда числа вводятся ? И куда выведется результат ??!!!!
Допустим вводить будем в текстовые поля и выводить результат в текстовом поле. у тебя должно быть 4 текстовых поля. Допустим 3 для ввода и 1 для вывода . Вот программа :
Dim a(1 To 4) As Integer
Private Sub Text1_Change()
a(1) = Text1.Text
a(2) = Text2.Text
a(3) = Text3.Text
Text4.Text = a(1) + a(2) + a(3)
End Sub

Без имени

И вот программа если ты будешь вводить числа из inputboxa. Тут создай 1 кнопку и 1 лэйбел.
Dim a As Integer
Private Sub Command1_Click()
For b = 1 To 3
a = InputBox("Введите число", , "Ввод")
Label1.Caption = Label1.Caption + a
Next b
End Sub

14 лет назад

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

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

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