Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: среднее арифметическое Добавлено: 30.05.03 23:33  

Автор вопроса:  JONick | Web-сайт: eminemrap.h1.ru

hi pplz!

как найти среднее арифметическое чисел из текстбокса,такого вида "5 4 5 1 5 3 2 3 5 5" ?

(p.s.: разделение - пробел)

bye pplz!

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Padre



ICQ: 346632205 

Вопросов: 25
Ответов: 215
  Web-сайт: localhost
 Профиль | | #1 		Добавлено: 31.05.03 01:56

Можно так:

Сплитом загонешь цифры в массив, а потом этот массив суммируешь.

Ответить

Номер ответа: 2
Автор ответа:
 shuffle



Администратор

ICQ: 201502381 

Вопросов: 15
Ответов: 737
  Профиль | | #2 Добавлено: 31.05.03 02:15

Private Sub Command1_Click()
   On Error Resume Next
   Dim Average() As String
   Dim rc As Long, i&

   Average() = Split(Text1.Text, " ")
   For i& = LBound(Average) To UBound(Average)
      rc = rc + Average(i&;)
   Next

   MsgBox rc / UBound(Average)
End Sub

Ответить

Номер ответа: 3
Автор ответа:
 JONick



Вопросов: 10
Ответов: 88
  Web-сайт: eminemrap.h1.ru
 Профиль | | #3 		Добавлено: 31.05.03 11:34

big thnx to all

помогло,разработка проги перешла на новый уровень

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам