6.3 Массивы
Задание:
Dim X(5), Y(5)
X(1) = 2.2
X(2) = 3.3
X(3) = 4.4
X(4) = 5.5
X(5) = 6.6
Y(1) = 7
Y(2) = 8
Y(3) = 9
Y(4) = 10
Y(5) = 11
MsgBox X(1) & "; " & X(2) & "; " & X(3) & "; " & X(4) & "; " & X(5) & _
vblf & Y(5) & "; " & Y(4) & "; " & Y(3) & "; " & Y(2) & "; " & Y(1),,"Студент Евдокимов"
Рисунок 6.6 – Одномерный массив
6.4 Условные операторы if и case
Таблица 5.6 – Синтаксис оператора условного перехода
Строчный синтаксис Dim Y X=InputBox("Введите число X") If X<0 Then Y= "X отрицательное" Else _ If X>=0 and X<=10e-15 Then Y="X маленькое положительное число" Else _ If X>=10e-15 and X<1 Then Y="X меньше 1" Else If X>=1 Then Y="X не меньше 1" MsgBox " X = " & X & " Y= " & Y |
Рисунок 6.7 – Окно ввода
Рисунок 6.8 – Окно вывода
Рисунок 6.9 – Окно вывода
Рисунок 6.10 – Окно вывода |
Строчный синтаксис Dim Y X=InputBox("Введите число X") If x<0 Then Y = "X отрицательное" ElseIf X=>0 and X<1e-15 Then Y = "X маленькое положительное число" ElseIf x=>1e-15 and X<1 Then Y = "X меньше одного" ElseIf X=>1 Then Y = "X не меньше одного" End If MsgBox " X = " & X & " Y= " & Y |
Рисунок 6.11 – Окно ввода
Рисунок 6.12 – Окно вывода
Рисунок 6.13 – Окно вывода
Рисунок 6.14 – Окно вывода |
Блочный синтаксис FIO = "Рома Евдокимов" X = InputBox ("Задайте месяц" , _ "Пример Case. " & FIO) X = Eval (X) Select Case X Case 1, 2, 3 Y = "1-й квартал" Case 4, 5, 6 Y = "2-й квартал" Case 7, 8, 9 Y = "3-й квартал" Case 10, 11, 12 Y = "4-й квартал" Case Else Y = "неверно задан номер месяца" End Select MsgBox "Результат выполнения Case для месяца = "& X & _ ": " & Y, 4096, FIO |
Рисунок 6.15 – Окно ввода
Рисунок 6.16 – Окно вывода
Рисунок 6.17 – Окно вывода
Рисунок 6.18 – Окно вывода
Рисунок 6.19 – Окно вывода |
6.5 Операторы цикла Do и While
eps = 1e-7 n = 1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = a t1 = Time Do n = n+1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = s+a Loop Until Abs (a) < eps t2 = Time dt = FormatDateTime (t2-t1) pi = 3.1415926535897932384626433832795 r_pi = (4/(2^(1/2)))*s MsgBox "Eps = " & eps & vblf & "Ист. Pi = " & pi & vblf & "Расч. Pi = " & r_pi & vblf & _ "n= " & n & vblf & " dt = " & dt, 4096, "Евдокимов" |
Рисунок 6.20 – Окно вывода |
eps = 1e-7 n = 1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = a t1 = Time Do n = n+1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = s+a Loop While Abs (a) > eps t2 = Time dt = FormatDateTime (t2-t1) pi = 3.1415926535897932384626433832795 r_pi = (4/(2^(1/2)))*s MsgBox "Eps = " & eps & vblf & "Ист. Pi = " & pi & vblf & "Расч. Pi = " & r_pi & vblf & _ "n= " & n & vblf & " dt = " & dt, 4096, "Евдокимов" |
Рисунок 6.21 – Окно вывода |
eps = 1e-7 n = 1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = a t1 = Time Do Until Abs (a) < eps n = n+1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = s+a Loop t2 = Time dt = FormatDateTime (t2-t1) pi = 3.1415926535897932384626433832795 r_pi = (4/(2^(1/2)))*s MsgBox "Eps = " & eps & vblf & "Ист. Pi = " & pi & vblf & "Расч. Pi = " & r_pi & vblf & _ "n= " & n & vblf & " dt = " & dt, 4096, "Евдокимов" |
Рисунок 6.22 – Окно вывода |
eps = 1e-7 n = 1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = a t1 = Time Do While Abs (a) > eps n = n+1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = s+a Loop t2 = Time dt = FormatDateTime (t2-t1) pi = 3.1415926535897932384626433832795 r_pi = (4/(2^(1/2)))*s MsgBox "Eps = " & eps & vblf & "Ист. Pi = " & pi & vblf & "Расч. Pi = " & r_pi & vblf & _ "n= " & n & vblf & " dt = " & dt, 4096, "Евдокимов" |
Рисунок 6.23 – Окно вывода |
eps = 1e-5 n = 0 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = a t1=Time While Abs(a) > eps n = n + 1 a = ((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3) s = s + a Wend t2=Time dt = FormatDateTime (t2-t1) Msgbox "Истинное значение " & Atn (x) & vblf & _ "Расчетное значение " & s & vblf & _ "Продолжительность расчета " & dt & vblf & _ " pi = " & x & " n = " & n , 4096, _ "Евдокимов" |
Рисунок 6.24 – Окно вывода |
