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

Тема в разделе "Другие", создана пользователем lolilo, 18 май 2010.

  1. lolilo

    lolilo Гость

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

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

    оч буду благодарна за помощь...
     
Загрузка...

Поделиться этой страницей