В элемент TextBox записываются числовые значения. Числа разделены с помощью vbNewLine (програмная кнопка enter) Нужно вывести максимальное и минимальное число.
Заранее спасибо за помощь.
Примечание:
Владимир Тюотпанов, я к сожалению не очень вас понял=(
Вот код моей программы.
Private Sub Command1_Click()
Dim sInput As String
Dim n As Long 'Количество чисел
Dim TotalSum As Single 'Сумма чисел
Dim nAverage As Single 'Среднее арифметич
Do
sInput = InputBox("Введи числоî:", "Расчет", sInput)
'Если введено число
If IsNumeric(sInput) Then
n = n + 1
TotalSum = TotalSum + CSng(sInput)
nAverage = TotalSum / n
Label1.Caption = "Среднее арифметическое: " & nAverage
Label2.Caption = "Введено чисел: " & n
'Вывод значений в текстбокс
If n > 1 Then
Text1.Text = Text1.Text & sInput & vbNewLine
Text2.Text = Text2.Text & sInput
Else
Text1.Text = sInput & vbNewLine
Text2.Text = sInput
End If
End If
Loop While sInput <> ""
Dim a
a = Split(Text2.Text, " ")
For i = 0 To UBound(a)
If a(i) <> "" Then Label5.Caption = "Ââåäåííûõ çíàêîâ: " & Len(a(i))
Next i
End Sub
Примечание:
нужно в Text3 внести минимальное значение из Text1, а в Text4 максимальное. Спасибо
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.