| Код |
Option Explicit
Dim bytI As Byte, bytJ As Integer, bytK As Byte, strA(1 To 33), strB(1 To 10), strC(1 To 10) As String
Private Sub cmdAlph_Click()
Open "C:\1.txt" For Input As #1
For bytI = 1 To 33
Do Until EOF(1)
Input #1, strA(bytI)
txtAlph.Text = txtAlph.Text + strA(bytI)
Loop
Next bytI
Close #1
End Sub
Private Sub cmdSort_Click()
bytJ = 1
For bytK = 1 To 33
For bytI = 1 To 10
If strA(bytK) = Left$(strB(bytI), 1) Then
strC(bytJ) = strB(bytI): bytJ = bytJ + 1
End If
Next bytI
Next bytK
End Sub
Private Sub cmdTerm_Click()
Open "C:\1.txt" For Input As #2
bytI = 1
Do Until EOF(2)
Input #2, strB(bytI)
lstTerm.AddItem strB(bytI)
bytI = bytI + 1
Loop
Close #2
End Sub
Private Sub cmdRez_Click()
For bytJ = 1 To 10
lstSort.AddItem strC(bytJ)
Next bytJ
End Sub
|
Ребят, есть код, в нем вроде все нормально работает, но в процедуре cmdRez_Click() Ни вкакую нехотят заноситься данные из lstTerm. Я их выделить могу, но они не отображаются, помогите пожалуйста! |
