Написать код, который показывает количество чисел (цифр) в ListBox

@~~lodret~~ · 30.05.2014, 03:45. **Показов** 668. **Ответов** 4

Author24 — интернет-сервис помощи студентам

как написать код который просто показывает сколько количество чисел(цифр) в листбоксе
букв в листбоксе???

@~~Апострофф~~ · 30.05.2014, 07:39

Visual Basic

Private Sub UserForm_Click()
Dim i As Long, n As Long, s As String, cl As Long, cd As Long
ListBox1.Clear
For i = 0 To Rnd * 10
  s = Space$(Rnd * 20)
  For n = 1 To Len(s)
    Mid$(s, n, 1) = Chr$(Int(Rnd * 224 + 32))
    cd = cd - IsNumeric(Mid$(s, n, 1))
    cl = cl - (LCase$(Mid$(s, n, 1)) <> UCase$(Mid$(s, n, 1)))
  Next n
  ListBox1.AddItem s
Next i
Caption = "Áóêâ: " & cl & ", öèôð: " & cd
End Sub

@~~lodret~~ · 30.05.2014, 10:08 **[ТС]**

Апострофф, он мне выдает вообще что-то непонятное!

@~~Апострофф~~ · 30.05.2014, 10:12

lodret, что просили - то и выдает.
Или за вас ещё и листбокс заполнить чем-то вразумительным?

@~~lodret~~ · 30.05.2014, 10:16 **[ТС]**

Апострофф, нет просто код не то что надо выдает

@~~lodret~~ Заблокирован
		1
	Написать код, который показывает количество чисел (цифр) в ListBox 30.05.2014, 03:45. Показов 668. Ответов 4 Метки нет (Все метки) как написать код который просто показывает сколько количество чисел(цифр) в листбоксе букв в листбоксе??? 0

@~~lodret~~ Заблокирован
	30.05.2014, 10:08 [ТС]	3
	Апострофф, он мне выдает вообще что-то непонятное! 0

@~~Апострофф~~ Заблокирован
	30.05.2014, 10:12	4
	lodret, что просили - то и выдает. Или за вас ещё и листбокс заполнить чем-то вразумительным? 0

@~~lodret~~ Заблокирован
	30.05.2014, 10:16 [ТС]	5
	Апострофф, нет просто код не то что надо выдает 0