3
Декабрь
2009
Вытащить цифры из массива которые меньше 100
Вытащить цифры из массива которые меньше 100
Private Type spisok
fam As String
bal As Integer
im As String
kl As Integer
End Type
Dim A(11) As spisok
Sub vvod()
A(0).fam = "Смирнов": A(1).fam = "Андреева": A(2).fam = "Михайлов"
A(3).fam = "Попова": A(4).fam = "Беляев": A(5).fam = "Морозова"
A(6).fam = "Иванов": A(7).fam = "Петрова": A(8).fam = "Ильин"
A(9).fam = "Титова": A(10).fam = "Алексеев": A(11).fam = "Матвеева"
A(0).im = "Александр": A(1).im = "Мария": A(2).im = "Алексей"
A(3).im = "Ольга": A(4).im = "Семен": A(5).im = "Карина"
A(6).im = "Максим": A(7).im = "Лариса": A(8).im = "Степан"
A(9).im = "Светалана": A(10).im = "Павел": A(11).im = "Юлия"
A(0).kl = "11": A(1).kl = "10": A(2).kl = "11"
A(3).kl = "10": A(4).kl = "11": A(5).kl = "10"
A(6).kl = "11": A(7).kl = "10": A(8).kl = "11"
A(9).kl = "10": A(10).kl = "11": A(11).kl = "10"
For i = 0 To 11
A(i).bal = Int(80 * Rnd + 60)
Next i
End Sub
Private Sub Command1_Click()
vvod
For i = 0 To 11
List1.AddItem A(i).bal
If A(i).bal >= 100 Then
List2.AddItem A(i).bal
List3.AddItem A(i).im
List4.AddItem A(i).fam
List5.AddItem A(i).kl
End If
Next i
End Sub