помогите отредактировать прогу Vb 6.0

  • Автор темы lolilo
  • Дата начала
L

lolilo

вот исходный код

Код:
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. изменить текст программы так, чтобы просто заполнить файл целыми числами и при ПОВТОРНОМ открытиисчитайте эти данные в массив. найдите сумму значений элементов массива и выведите ее в текстовое поле, а в элемент списка выведите значение элементов массива.

оч буду благодарна за помощь...
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!