Помогите начинающему!

[mavrados]

Добрый день!

Помогите начинающему!

Есть форма на которой находятся 10 элементов "TextBox" и пользователь заполняет часть из них цифрами. Какие из 10 полей будут заполнены заранее не известно...
И есть элемент Label в котором будет выводиться округленное до одного десятичного разряда среднее арифметическое всех значений (TextBox1.text+TextBox3.text+....и т.д.)
отличных от 0 Т.е. если пользователь заполнил 5 полей то находим сумму 5 значений и делим на 5

Как это реализовать по эффективнее?
Заранее благодарен.

[alibek]

Код: Выделить всё

Dim N As Long, C As Long, S As String
For I = 1 To 10
  S = Controls("TextBox" & I).Text
  If IsNumeric(S) Then
    N = N + 1
    C = C + Val(S)
  End If
Next I
MsgBox C / N

[mavrados]

Спасибо

А что означают строки:

S = Controls("TextBox" & I).Text
If IsNumeric(S) Then

И где можно посмотреть/скачать справочник по синтаксису VB6.0?

[Viper]

тут или ищи диск с MSDN, а по идее справка по VB должна быть вместе с дистрибутивом.

Код: Выделить всё

S = Controls("TextBox" & I).Text

Это означает, что переменной S присваивается содержимое текстбокса с именем "TextBoxI", а сам текстбокс возвращается из коллекции контролов формы по имени.

Код: Выделить всё

If IsNumeric(S) Then

Это означает проверку, является ли строка S числом.

[tyomitch]

А ещё поэффективнее было бы сделать из TextBox1 ... TextBox10 массив.

[mavrados]

Поясни плз.

[tyomitch]

Назови все текстбоксы на форме одинаково. Среда предложит создать массив. Согласись.

[mavrados]

А чем массив лучше?

и еще один вопросик:

Пользователь вводит данные и эти данные необходимо как-то сохранить... Каким способом это лучше реализовать?

[tyomitch]

Массив лучше тем, что вместо S = Controls("TextBox" & I).Text будет S = TextBox(I).Text : короче и яснее.