VBA-да массивтермен жұмыс

almira000-142x150Жумабекова Альмира Аденбековна
Семей қаласы, Назарбаев Зияткерлік мектебі
Сабақ тақырыбы: VBA-да массивтермен жұмыс
Сабақ мақсаты:

  1. Білім берушілік    VBA-да массивтермен жұмыс істеу операторларын қолдану бойынша білімдерін қалыптастыру
  2. Дамытушылық      есте сақтау, ойлау қабілетін дамыту
  3. Тәрбиелік              жинақтылыққа және жауапкершілікке  тәрбиелеу

Сабақ түрі: жаңа тақырыпты түсіндіру
Сабақ  өткізу әдісі: білім-білік дағдыларын қалыптастыру
Пән аралық байланыс: математика

Сабақтың жабдықталуы: Жұмыс дәптері, ДК,MS Excel бағдарламасы
Сабақтың барысы
1.Ұйымдастырушылық кезен Аудитория әзірлігін тексеру, оқушыларды түгендеу

2.Тақырып бойынша негізгі білім өзектілігі

3.Жаңа тақырыпты түсіндіру

Массив деп бір типтегі мәндердің шектеулі санын айтамыз. Массивтің әрбір элементі массив атауы мен индексі арқылы белгіленеді. Массив элементтері оның индекстерінің мәндері бойынша реттелген.
Айнымалылар бөлімінде массивті сипаттау:
Dim  a(10) As Integer-10 элементтен тұратын бүтін типті массив
Dim Month() As String – бір өлшемді жолдық типті массив

Жиымды құру үшін  кездейсоқ сандар генераторын қолдануға болады.
Randomize Timer
For I = 1 To 6
Cells(I, 1) = Int(Rnd * 100) – 50
Next I

Көп өлшемді массивтер
Бір өлшемді массивтерден басқа көп өлшемді ,соның ішінде екі өлшемді массивтер  көп қолданылады. Екі өлшемді массивтерді матрица  деп атаймыз.
Екі өлшемді массивтің айнымалылар бөлімінде сипатталуы:

Dim  a(3,4) As Integer-12 элементтен тұратын бүтін типті массив
Мысал: Форма терезесіне 6 батырма орналастырамыз.

1-батырма –Ввод- кестелік процессорда кездейсоқ сандардан тұратын массивті құрады
2-батырма – Очистка- массив элементтерін өшіреді
3-батырма Выход -кестелік процессордан шығу
4-батырма Сумма-массив элементтерінің қосындысын есептейді
5-батырма-сумма отриц- теріс таңбалы элементтерінің қосындысын есептейді
6-батырма-сумма полож- оң таңбалы элементтерінің қосындысын есептейді

Сурет

Private Sub CommandButton1_Click()
Dim I As Integer, a(10) As Integer
Randomize Timer
For I = 1 To 6
Cells(I, 1) = Int(Rnd * 100) – 50
Next I
End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Private Sub CommandButton3_Click()
For I = 1 To 6
Cells(I, 1).Value = “”
Next I
End Sub

Private Sub CommandButton4_Click()
Dim I As Integer, a(10) As Integer, s As Integer
s = 0
For I = 1 To 6
s = s + Cells(I, 1)
Next I
Cells(1, 3) = s
End Sub

Private Sub CommandButton5_Click()
Dim I As Integer, a(10) As Integer, s As Integer
s = 0
For I = 1 To 6
If Cells(I, 1) < 0 Then s = s + Cells(I, 1)
Next I
Cells(1, 4) = s
End Sub

Private Sub CommandButton6_Click()
Dim I As Integer, a(10) As Integer, s As Integer
s = 0
For I = 1 To 6
If Cells(I, 1) > 0 Then s = s + Cells(I, 1)
Next I
Cells(1, 5) = s
End Su

4. Бекіту

1. Массив деген не?
2.  Бір және екі өлшемді массивтің айырмашылығы неде?
3. Массив элементін қалай белгілейміз?
4. Айнымалылар бөлімінде массивті қалай сипаттаймыз
5. Массив элементтерін қалай енгіземіз?
5. Үй тапсырмасы конспект оқу

Check Also

Аудандық олимпиада. ІІ-тур. 2016-2017 оқу жылы.

D есебі 5 бүтін сандар берілген. Осы сандардың арасынан төртеуін таңдағандағы қосындының ең үлкен жəне …

3 комментария

  1. С какого Вы города?

  2. На каком основании женщина изображенная на фотографии является Альмирой Адильбековной? Я прекрасно ее знаю, вы используете ее имя и ее статус.

  3. а кто тогда?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.