Автор темы
вот исходный код
задание такое:
1. изменить текст программы так, чтобы просто заполнить файл целыми числами и при ПОВТОРНОМ открытиисчитайте эти данные в массив. найдите сумму значений элементов массива и выведите ее в текстовое поле, а в элемент списка выведите значение элементов массива.
оч буду благодарна за помощь...
Код:
Private Sub Form_Load()
Dim a, s As Integer
Dim pt1 As String
MkDir ("G:\информатика\basic\лаба 8.1\лаб")
ChDir ("G:\информатика\basic\лаба 8.1\лаб")
pt1 = "G:\информатика\basic\лаба 8.1\лаб\f.txt"
Open pt1 For Output As #1
s = 0
For i = 1 To 10
a = Int(Rnd * 10)
Print #1, a
s = s + a
Next i
Close #1
Show
Open pt1 For Input As #1
For i = 1 To 10
Line Input #1, a
List1.AddItem a
Next i
Text1 = s
End Subзадание такое:
1. изменить текст программы так, чтобы просто заполнить файл целыми числами и при ПОВТОРНОМ открытиисчитайте эти данные в массив. найдите сумму значений элементов массива и выведите ее в текстовое поле, а в элемент списка выведите значение элементов массива.
оч буду благодарна за помощь...
