1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

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

  1. lolilo

    lolilo Гость

    Репутация:
    0
    вот исходный код

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

    оч буду благодарна за помощь...
     
Загрузка...
Похожие Темы - помогите отредактировать прогу
  1. number27
    Ответов:
    0
    Просмотров:
    77
  2. Rina
    Ответов:
    0
    Просмотров:
    93
  3. maksiiimka
    Ответов:
    2
    Просмотров:
    91
  4. Ким
    Ответов:
    23
    Просмотров:
    611
  5. Sr233
    Ответов:
    2
    Просмотров:
    195

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