| Вопрос: LIstBox | Добавлено: 04.12.07 23:04 |
Автор вопроса:  Андрей | Web-сайт: students.vghost.ru
|
| Люди помогите с кодом!!! Как мне расчитать сумму всего ListBox, т.е. всех чисел которые есть в ListBox |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #1 | Добавлено: 05.12.07 01:30 |
|
Dim i as long, c as long, a as long c=ListBox1.ItemCount For i=1 to c a=a+ListBox1.Item(i) Next MsgBox a Что-то вроде того. Может с синтаксисом набульбуляторил немного. Ща тупо бейсика нет на ноуте - негде проверить |
||
|
Номер ответа: 2 Автор ответа:  WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #2 | Добавлено: 05.12.07 01:39 |
|
это _естесственно_ не заработает))
ZagZag забыл значение каждого Item перевести в число. Т.е. Val(ListBox1.Item(i)) Или CLng(ListBox1.Item(i)), если точно известно что это число. |
||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 05.12.07 01:41 |
| Да, и вообще там не Item, а List )) | ||
|
Номер ответа: 4 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #4 | Добавлено: 05.12.07 02:56 |
|
Ну.. подзабыл уже. Я ща на пхп перехожу.
Главное алгоритм чтоб понятен был 
|
||
|
Номер ответа: 5 Автор ответа: Андрей Вопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #5 | Добавлено: 05.12.07 17:15 |
| спасибо не серовно не работает, так надо а догадаться не могу в чем же секрет этого, как можно сделать такое! | ||
|
Номер ответа: 6 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #6 | Добавлено: 05.12.07 17:48 |
|
Option Explicit
Private Sub Form_Load() Dim i As Long, sum As Long For i = 0 To 100 List1.AddItem i Next i For i = 0 To 100 sum = sum + Val(List1.List(i)) Next i Caption = sum End Sub (з.ы.оказалось, что, если там только числа то val не обязательно) |
||
|
Номер ответа: 7 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #7 | Добавлено: 05.12.07 17:56 |
| Ага спасибо, теперь что то вроде того понятно, сейчас посижу и скажу как мне надо было | ||
|
Номер ответа: 8 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #8 | Добавлено: 05.12.07 18:10 |
| Что-то не получается как я хотел, дело в том что я хочу что бы он считал мои числа которые я добавил строкой List1.AddItem Text1.Text, то есть записывая в TextBox числа вносились в listBox и тем самым подсчитывались в сумме. | ||
|
Номер ответа: 9 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #9 | Добавлено: 05.12.07 18:15 |
|
Все ребята я сделал как хотел, вот оно как должно быть:
Option Explicit Private Sub Form_Load() Dim i As Long, summa As Long, c As Long c = List1.ListCount For i = 0 To c summa = summa + Val(List1.List(i)) Next i Label1.Caption = summa End Sub Все теперь числа которые у нас имеются в ListBox будут подсчитываться в сумме и выводиться в Label |
||
Страница: 1 |