• Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Тема: Задачка по VBA

Вводиться послідовність із n довільних чисел. Визначити, скільки разів послідовність змінює знак.

Помогите решить задачку, пожалуйста.

2 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

zheniakhliustov написав:

Вводиться послідовність із n довільних чисел. Визначити, скільки разів послідовність змінює знак.

Помогите решить задачку, пожалуйста.

1. Ви якою мовою тут відписували?
2. У чому проблеми?

3 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

VBA
просто не знаю як зробити, допоможіть будьласка

4 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

Реалізація на C++ наведена тут. Алгоритм робочий.
Перекласти на вба - справа техніки.

5 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

але ж там не n-на послідовність...
я просто зовсім не розумію VBA, а сестра попросила допомогти

6 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

Якщо матиму час - завтра під вечір підгоню щось.

7 Відповідь від User 298 Востаннє редагувалося User 298 (19.02.2013 23:13:31)

  • User 298
  • Гість

Re: Задачка по VBA

Попередній лінк термінується 5 днями. Код-сирець нижче:

Private Sub CommandButton1_Click()

Dim signChanges As Integer
Dim lastSignPlus As Boolean

If CInt(ListBox1.List(1)) > 0 Then
    lastSignPlus = True
Else
    lastSignPlus = False
End If


For Index = 1 To ListBox1.ListCount - 1 Step 1

If CInt(ListBox1.List(Index)) >= 0 Then
    If Not lastSignPlus Then
        signChanges = signChanges + 1
    End If
    lastSignPlus = True
ElseIf CInt(ListBox1.List(Index)) < 0 Then
    If lastSignPlus Then
        signChanges = signChanges + 1
    End If
    lastSignPlus = False
End If
Next Index

Label1.Caption = CStr(signChanges)

End Sub

Private Sub Edit_Click()

ListBox1.AddItem (TextBox1.Text)

End Sub

З.І: Уточнення у коді:

If CInt(ListBox1.List(0)) > 0 Then
    lastSignPlus = True
Else
    lastSignPlus = False
End If

ВБА ламає мозок.

8 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

не зрозумів про лінк

9 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

zheniakhliustov написав:

не зрозумів про лінк

Умови файлобмінника обмежують його існування за лінком на термін 5 днів.

10 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

ага, дякую

файл excel відкривається але в ньому нічого немає(

11 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

Alt+F11 - відкриє редактор вба. Для третього офісу.

З.І: внесіть у код у файлі уточнення - я двома постами раніше вказав.

12 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

просто дописати в код?

13 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

Знайдіть той блок у коді. Там просто треба індекс одиничку на нуль замінити, інакше результат хибний буде.

14 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

ага, все зрозуміло.
велике дякую!

15 Відповідь від zheniakhliustov

  • Дата реєстрації: 18.02.2013
  • Повідомлень: 10
    • Репутація: 0

Re: Задачка по VBA

можна ще будь - ласка блок схему побудувати?

16 Відповідь від User 298

  • User 298
  • Гість

Re: Задачка по VBA

Легко. :)