Занести строку чисел разделенных пробелом в массив. - VB

Формулировка задачи:

Нужно прочесть файл в котором 2 строки и занести числа из второй строки в массив: в первой натуральное число N, не превышающее 1000 - кол-во чисел в последовательности во второй N целых неотрицательных чисел последовательности. Когда я читаю вторую строку оператором Line Input в текстовое поле выводится строка чисел разделенных пробелом, помогите мне занести эти числа в массив, пожалуйста. Заранее спасибо за помощь.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Open "G:\Visual Basic\1\product.txt" For Input As #1
Line Input #1, x
Text1.Text = x
Line Input #1, y
Text2.Text = y
End Sub

Решение задачи: «Занести строку чисел разделенных пробелом в массив.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim r, i
r = Split(Text2.Text, " ")
List1.Clear
For i = 0 To UBound(r)
List1.AddItem r(i)
Next i
End Sub

Оцени полезность:

15 голосов , оценка 3.867 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы