Жумабекова Альмира Аденбековна
Семей қаласы, Назарбаев Зияткерлік мектебі
Сабақ тақырыбы: 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. Үй тапсырмасы конспект оқу

Ұқсас тақырыптар:

• WINDOWS қосымшасын жобалау. Геометриялық есепке жоба құру (ашық сабақ).
• VBasic. Басқару объектілері
• VB. 2.11-практикалық жұмыс. Сан факториалы.
• И-10.Horizontal Scroll Bar, Vertical Scroll Bar, Shape базалық элементтері.
• Visual Basic бағдарламалау тілінде тест құру бағдарламасы
• И-9. Мәліметтердің типтері. Мәліметтердің стандартты типтері.
• Pascal-да программалар: 2-лік->10 сан, 10-дық->2 сан, 4 амал, Қазақша жыл.
• Паскалдан жиі қолданыстағы тақырыптық есептер (40 есеп+шешуі).
• VB. Басқару элементтері.
• Excel электрондық кестесінің графикалық мүмкіндіктері. Диаграммалармен жұмыс.