Visual Basic.Net
Суббота, 02.08.2025, 04:26
Меню сайта

Категории каталога
Visual Basic.NET [9]
Visual Basic 6.0 [17]
VBA [13]
VBScript [1]

Форма входа

Поиск

Друзья сайта
Создайте свой сайт Все для веб-мастера Программы для всех Мир развлечений WOlist.ru - каталог качественных сайтов Рунета

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Наш опрос
Оцените мой сайт
1. Отлично
2. Неплохо
3. Хорошо
4. Плохо
5. Ужасно
Всего ответов: 23

Главная » Статьи » Программирование на Visual Basic » Visual Basic 6.0

Как посчитать сумму чисел в ComboBox?
Option Explicit

Private Sub Command1_Click()
Dim intCount As Integer
Dim intSumm As Integer
While Combo1.List(intCount) <> “”
intSumm = intSumm + Val(Combo1.List(intCount))
intCount = intCount + 1
Wend
Label1.Caption = “Сумма чисел в ComboBox: ” & intSumm
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
  Combo1.AddItem Format$(i)
Next
End Sub

Категория: Visual Basic 6.0 | Добавил: Vadim (11.01.2009)
Просмотров: 1293 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright MyCorp © 2025
Бесплатный конструктор сайтовuCoz