Сызыктык алгоритмдер

VBA-даѓы программа туралы жалпы мәліметтер

Әдістемелік нұсқаулар:VBA программасы бір немесе бірнеше модульден тұрады. Модуль – жұмыс кітапқа тіркелген программа жазылған парақ.

Программа айнымалыларды сипаттаудан басталады. Глобальды айнымалылар мен тұрақтылар сипатталады. Сосын функция  немесе процедура денесі орналасады. Комментарий қою үшін апострофты әрбір жолға қою керек.

Option Explicit – инструкциясы модульдегі айналыммен сипатталуы тиіс дегенді білдіреді. Мәнді хабарлама терезесіне шығару формасы Msg Box

Функцияның жалпы форматы:

Function<функция аты> (параметрлер тізімі)                                                           

                                функцияның денесі

End Function

Exit Function – формуласының орындалуы тоқтатуға қолданылады. Нәтиже формула атына меншіктеледі.

Optional – қызметші сөзі арқылы кейбір айнымалының функцияны шақырғанды енгізбей-ақ қоюға болатынын ескерту жүзеге асады.

Ондай айнымалылар Variant типте сипатталуы керек. Және олармен жұмыс жасау барысында isMissing функциясын қолдану қажет, бұл

функция көрсетілген айнымалы мәні процедураға берілсе FALSE, әйтпесе TRUE мәнін меншіктейді.

Мысалы, есептеу керек.

а) Function z(y)

    End Function

б) Function  (As Double) As Double

   End Function

Функциялар мен процедураларда айнымалыны сипаттау үшін Dim қызметші сөзі  жазылмайды.

«=» таңбасымен  меншіктеу әрекеті орындалады.

Тұрақтылар. 

Мысалы, const <айналым аты> = <өрнек>

Const  PI AS Double = 3.14

VBA-дағы типтер кестесі:

Айнымалылар сипатталуының жалпы түрі:

            Dim <айнымалы аты> AS <айнымалы типі>       

Мысалы, Dim A AS integer

                   Dim C,D AS integer, E AS Single

                   Dim S AS String*25

Массивтер сипатталуы:

1) Dim D(3,3) AS Single

    Dim A(0)    AS integer

9 элемент 0,...,8   0-базалық индекс

Базалық индексті модульдің басында OptionBase1 операторын жазу арқылы өзгертуге болады.  Ондағы D, A массивтерінің индекстері 1-ден басталады.

2) Басқаша

    Dim D (1 to 3, 1 to 3) AS integer

    Dim A (1 to 9) AS Single

Программада массив жеке элементтері арқылы анықталады.

Мысалы, Dim D (1 to 3, 1 to 3) AS integer

            D (1,1) =10

            D (1,1)=11

            D (1,3)=4

            D (3,3)=b

Бір өлшемді массивтерді анықтау үшін array функциясы тиімді, яғни үтірмен ажыратылып берілген элементтер тізімін осы мәндерден тұратын Variant типті векторға айналдырады.

Мысалы, Dim A AS Variant

                  A=Array (11,3,20)

Амалдар мен математикалық функциялар

·        ABS (x) – x-тің модулі

·        ATR (x) – x санының арктангенсі

·        cos (x) – x санының косинусы

·        Exp (сан) – експоненциялдық функция (ех)

·        Log (x) – х-тің натурал логарифмі

·        Sgn (x) – x-тің таңбасы (егер x>0 – 1, x=0 – 0, x<1 – 1)

·        Sin (x) – x-тің синусы

·        SQR (x) – x-тің түбірі

·        Tan (x) – x-тің тангенсі

1-тапсырма

Мына өрнектерді VBA тілінде жазыңыз.

2-тапсырма

Сабақтың ұзақтығы – 45 минут. Сабақтың үштен бір бөлігін есепті шығаруға, бестен бір бөлігін өткен материалды қайталауға, ал тоғыздан бір бөлігін теңдеуді шешуге жіберді. Есепті шешуге, қайталауға және теңдеуді шешуге қанша уақыт кетті?

Private Sub CommandButton1_Click()

Dim a, b, c, d As Integer

a = 45

b = a / 3

c = a / 5

d = a / 9

MsgBox ("Есепті шешуге: ") & b & ("минут, өткен материалды қайталауға ") & c & ("минут, теңдеуді шешуге ") & d & ("минут жіберілді.")

End Sub

3-тапсырма

Батыс Қазақстанның темір жолының ұзындығы – 420 км, ал Маңғыстаудікі – 217 км-ге ұзындау. Маңғыстаудың жолының ұзындығы қандай?

Private Sub CheckBox1_C