Сабаќ таќырыбы: Массивтер



жүктеу 16,26 Kb.
Дата05.02.2018
өлшемі16,26 Kb.
#8785
түріСабақ

Сабақ тақырыбы: Массивтер
Сабақ мақсаты:

  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. Үй тапсырмасы конспект оқу
жүктеу 16,26 Kb.

Достарыңызбен бөлісу:




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау