 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Dim dlina(3) As Integer
|
|
Тут 3 - верхня межа індексу. В цілому цей рядок можна перевести так: Відвести в пам'яті під змінну dlina ряд осередків типа Integer, пронумерованих від 0 до 3. Якщо нам потрібно від 1, це означає всього лише те, що в пам'яті буде відведений зайвий осередок для значення dlina(0). А ми її просто не використовуватимемо, і все! І ніяких значень туди не записуватимемо. Ось програма повністю:
Private Sub Command1_Click()
Dim dlina(3) As Integer
Dim summa As Integer
dlina(1) = 500
dlina(2) = 400
dlina(3) = 600
summa = dlina(1) + dlina(2) + dlina(3)
Print (summa)
End Sub
Опрератор Print виведе визначене число або числа на форму.
Приклад. Тепер запишемо ту ж програму в припущенні, що довжини удавів наперед не відомі і ми їх вводимо за допомогою InputBox. Додатково визначимо, чи правда, що перший удав довший другого:
Private Sub Command1_Click()
Dim dlina(3) As Integer
dlina(1) = InputBox("Введіть довжину 1-го удава")
dlina(2) = InputBox("Введіть довжину 2-го удава")")
dlina(3) = InputBox("Введіть довжину 3-го удава")")
Print (dlina(1) + dlina(2) + dlina(3))
If dlina(1) > dlina(2) Then MsgBox ("Правда") Else MsgBox ("Неправда")
End Sub
Порушення межі. Раз ми оголосили межу індексу, то повинні її дотримуватися. Так, неправильно було б тепер написати dlina(4)= 200. Адже місце в пам'яті під dlina(4) не відведено. В цьому випадку при виконанні проекту VB видасть помилку.
Цикл -могутня зброя при роботі з масивами. Тепер вирішимо задачу про сумарну довжину удавів в припущенні, що удавів не 3, а 1000:
Private Sub Command1_Click()
Dim dlina(1000) As Integer
Dim summa, i As Integer
For i = 1 To 1000
dlina(i) = InputBox("Введіть довжину " & i & "-го удава ")
Next
summa = 0
For i = 1 To 1000
summa = summa + dlina(i)
Next
Print (summa)
End Sub
Відладжуючи цю програму, візьміть, звичайно, замість числа 1000 яке-небудь маленьке число.
Дата публикования: 2014-11-18; Прочитано: 421 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
