Предметный указатель
Date: 2015-10-07; view: 382.
Список литературы
132.
131.
130.
129.
128.
127.
126.
125.
124.
123-1.
123.
120.
119.
116-118.
115.
113.
112.
110-111.
108.
106.
105.
104.
102.
101.
100.
99.
98.
97.
96.
95.
94.
93.
92.
91.
90.
88.
87.
86.
85.
84.
83.
82.
81.
80.
79.
78.
77.
76.
75.
74.
73.
72.
71.
70.
69.
68.
67.
66.
65.
64.
63.
62.
61.
60.
59.
58.
57.
56.
55.
54.
53.
52.
51.
50.
49.
48.
47.
46.
45.
44.
43.
42.
41.
40.
39.
38.
В.
36.
35.
34.
33.
32.
30.
29.
28.
27.
26.
25.
24.
23.
22.
21.
20.
19.
18.
17.
16.
15.
14.
13.
12.
11.
10.
Решение заданий
1.
Private Sub Квадрат_Click()
Результат.Text = Val(Число1.Text) * Val(Число1.Text)
End Sub
2.
Private Sub СБРОС_Click()
Число1.Text = ""
Число2.Text = ""
Результат.Text = ""
End Sub
5.
Private Sub Кл_вычитания_Click()
Результат.Text = Val(Число1.Text) - Val(Число2.Text)
Кл_вычитания.Left = 2000
Кл_вычитания.Caption = "Ой!"
End Sub
Private Sub СБРОС_Click()
Число1.Text = ""
Число2.Text = ""
Результат.Text = ""
Кл_вычитания.Left = 3400
Кл_вычитания.Caption = "-"
End Sub
6.
7.
Будет напечатано число 211.
8.
· 1001
· -100
· 15 -10
9.
Dim a As Long
Dim b As Long
Private Sub Command1_Click()
a = 9000000
b = 1000
b = b + a
Debug.Print b
End Sub
'Задача вычисления средней скорости
Dim Скорость1 As Double 'Скорость автомобиля на первом участке пути
Dim Время1 As Double 'Время прохождения первого участка
Dim Путь1 As Double 'Длина первого участка
Dim Скорость2 As Double 'Скорость автомобиля на втором участке пути
Dim Время2 As Double 'Время прохождения второго участка
Dim Путь2 As Double 'Длина второго участка
Dim Средняя_скорость As Double 'Средняя скорость автомобиля
Private Sub Command1_Click()
'Задание исходных данных
Скорость1 = 80
Время1 = 3
Скорость2 = 90
Время2 = 2
'Вычисление результата
Путь1 = Скорость1 * Время1
Путь2 = Скорость2 * Время2
Средняя_скорость = (Путь1 + Путь2) / (Время1 + Время2)
'Отображение результата
Debug.Print Средняя_скорость
End Sub
'Задача: В самом углу прямоугольного двора стоит прямоугольный дом.
'Подсчитать площадь дома, свободную площадь двора и длину забора.
'Объявляем переменные величины
Dim Длина_двора As Integer
Dim Ширина_двора As Integer
Dim Площадь_двора As Integer
Dim Периметр_двора As Integer
Dim Длина_дома As Integer
Dim Ширина_дома As Integer
Dim Площадь_дома As Integer
Dim Полпериметра_дома As Integer
Dim Свободная_площадь_двора As Integer
Dim Длина_забора As Integer
Private Sub Command1_Click()
'Ввод исходных данных
Длина_двора = InputBox("Введите длину двора")
Ширина_двора = InputBox("Введите ширину двора")
Длина_дома = InputBox("Введите длину дома")
Ширина_дома = InputBox("Введите ширину дома")
'Вычисление результатов
Площадь_двора = Длина_двора * Ширина_двора
Площадь_дома = Длина_дома * Ширина_дома
Периметр_двора = 2 * (Длина_двора + Ширина_двора)
Полпериметра_дома = Длина_дома + Ширина_дома
Свободная_площадь_двора = Площадь_двора - Площадь_дома
Длина_забора = Периметр_двора - Полпериметра_дома
'Отображение результатов
Text1.Text = Площадь_дома
Text2.Text = Свободная_площадь_двора
Text3.Text = Длина_забора
End Sub
'Задача вычисления длины окружности и площади круга
Dim R As Double 'Радиус
Dim L As Double 'Длина окружности
Dim S As Double 'Площадь круга
Dim Pi As Double 'Число "пи", равное 3,14
Private Sub Command1_Click()
'Задание исходных данных
R = Text1.Text 'Величину радиуса берем из текстового поля
Pi = 3.1416
'Вычисление результатов
L = 2 * Pi * R
S = Pi * R ^ 2
'Отображение результатов с 5 знаками после запятой
Print "Длина окружности ="; Format(L, "0.00000")
Print "Площадь круга ="; Format(S, "0.00000")
End Sub
Dim nazvanie1 As String 'Название первой планеты
Dim nazvanie2 As String 'Название второй планеты
Dim r1 As Double 'Радиус орбиты первой планеты
Dim r2 As Double 'Радиус орбиты второй планеты
Dim v1 As Double 'Скорость первой планеты
Dim v2 As Double 'Скорость второй планеты
Dim t1 As Double 'Продолжительность года первой планеты
Dim t2 As Double 'Продолжительность года второй планеты
Dim Pi As Double 'Число "пи", равное 3,14
Private Sub Command1_Click()
'Задание исходных данных
nazvanie1 = InputBox("Введите название первой планеты")
r1 = InputBox("Введите радиус орбиты первой планеты (в миллионах километров)")
v1 = InputBox("Введите скорость первой планеты (в миллионах километров в сутки)")
nazvanie2 = InputBox("Введите название второй планеты")
r2 = InputBox("Введите радиус орбиты второй планеты (в миллионах километров)")
v2 = InputBox("Введите скорость второй планеты (в миллионах километров в сутки)")
Pi = 3.1416
'Вычисление результатов
t1 = 2 * Pi * r1 / v1 'год = время 1 оборота = длина орбиты / скорость,
t2 = 2 * Pi * r2 / v2 'а длина орбиты равна два пи * радиус
'Отображение результатов в двух вариантах:
Print "Продолжительность года на планете "; nazvanie1; " - "; Format(t1, "0"); _
" суток, а на планете "; nazvanie2; " - "; Format(t2, "0"); " суток"
Text1.Text = "Продолжительность года на планете " + nazvanie1 + " - " + Format(t1, "0") _
+ " суток, а на планете " + nazvanie2 + " - " + Format(t2, "0") + " суток"
End Sub
Dim a As Double
Dim b As Double
Private Sub Command1_Click()
a = InputBox("Введите первое число")
b = InputBox("Введите второе число")
If a > b Then Debug.Print a + b Else Debug.Print a * b
Debug.Print "ЗАДАЧА РЕШЕНА"
End Sub
Dim a As Double, b As Double, c As Double
Private Sub Command1_Click()
a = InputBox("Введите первый отрезок")
b = InputBox("Введите второй отрезок")
c = InputBox("Введите третий отрезок")
If a < b + c Then Debug.Print "Достаточно мал" Else Debug.Print "Слишком велик"
End Sub
Dim N As Integer, Число_голов As Integer, Число_глаз As Integer
Private Sub Command1_Click()
N = InputBox("Введите возраст дракона")
If N < 100 Then Число_голов = 3 * N Else Число_голов = 300 + 2 * (N - 100)
Число_глаз = 2 * Число_голов
Debug.Print Число_голов, Число_глаз
End Sub
Private Sub Command1_Click()
If Command1.Top < 300 Then Command1.Top = Command1.Top + 200
End Sub
Dim k As Integer
Private Sub Command1_Click()
Command1.Left = (Form1.Width - 100) * Rnd
Command1.Top = (Form1.Height - 500) * Rnd
k = k + 1
Debug.Print k
End Sub
Dim Загаданное_число As Integer, Отгаданное_число As Integer
Private Sub Command1_Click()
Загаданное_число = Int(2 * Rnd)
Отгаданное_число = InputBox("Загадано число - 0 или 1. Отгадайте!")
If Загаданное_число = Отгаданное_число Then Debug.Print "Угадал" Else Debug.Print "Не угадал"
End Sub
Private Sub Command1_Click()
Имя = InputBox("Как вас зовут?")
If Имя = "Коля" Then
MsgBox ("Привет!")
ElseIf Имя = "Вася" Then
Form1.BackColor = vbGreen
MsgBox ("Здорово!")
ElseIf Имя = "John" Then
MsgBox ("Hi!")
Else
MsgBox ("Здравствуйте!")
End If
End Sub
Dim imya As String
Dim vozrast As Integer
Private Sub Command1_Click()
Print "Здравствуй, я компьютер, а тебя как зовут?"
imya = InputBox("Жду ответа")
Print "Очень приятно, "; imya; ". Сколько тебе лет?"
vozrast = InputBox("Жду ответа")
Print "Ого! Целых"; vozrast; "лет! Ты уже совсем взрослый!"
If vozrast > 17 Then
InputBox ("В каком институте ты учишься?")
Print "Хороший институт"
Else
InputBox ("В какой школе ты учишься?")
Print "Неплохая школа"
End If
Print "До следующей встречи!"
End Sub
Dim a As Double, b As Double, c As Double
Private Sub Command1_Click()
a = InputBox("Введите первый отрезок")
b = InputBox("Введите второй отрезок")
c = InputBox("Введите третий отрезок")
If a > b + c Then
Debug.Print "Треугольника не получится"
ElseIf b > a + c Then
Debug.Print "Треугольника не получится"
ElseIf c > a + b Then
Debug.Print "Треугольника не получится"
Else
Debug.Print "Треугольник получится"
End If
End Sub
Замысловатой принцессе нравятся черноглазые, кроме тех, чей рост находится в пределах от 180 до 184.
Private Sub Command1_Click()
a = InputBox("Введите дальность выстрела")
If a > 28 And a < 30 Then
MsgBox ("ПОПАЛ")
ElseIf a >= 30 Then
MsgBox ("ПЕРЕЛЕТ")
ElseIf a >= 0 And a <= 28 Then
MsgBox ("НЕДОЛЕТ")
Else
MsgBox ("НЕ БЕЙ ПО СВОИМ")
End If
End Sub
Dim a As String 'Приветствие человека
Dim b As String 'Ответ компьютера
Private Sub Command1_Click()
a = InputBox("Компьютер Вас слушает")
If a = "Привет" Or a = "Здравствуйте" Or a = "Салют" Then
b = a
ElseIf a = "Добрый день" Or a = "Приветик" Then
b = "Салют"
ElseIf a = "Здравия желаю" Then
b = "Вольно"
Else
b = "Я вас не понимаю"
End If
MsgBox (b)
End Sub
Dim Буква As String
Private Sub Command1_Click()
Буква = InputBox("Введите строчную букву русского алфавита")
Select Case Буква
Case "а", "и", "о", "у", "ы", "э"
Print "гласный"
Case "б", "з", "в", "г", "д", "ж", "й", "л", "м", "н", "р"
Print "согласный звонкий"
Case "п", "с", "ф", "к", "т", "ш", "х", "ц", "ч", "щ"
Print "согласный глухой"
Case "е", "ё", "ю", "я", "ъ", "ь"
Print "какой-нибудь другой, не знаю"
Case Else
Print "Это не строчная буква русского алфавита"
End Select
End Sub
Считаем зайцев
10 зайцев
10 зайцев
11 зайцев
13 зайцев
16 зайцев
20 зайцев
25 зайцев
5 Debug.Print "А";
GoTo 5
a = 10000
5 Debug.Print a
a = a - 1
GoTo 5
a = 100
5 Debug.Print Format(a, "0.00000000")
a = a / 2
GoTo 5
Процедура движения налево отличается от процедуры движения направо одной строкой:
m1: x = x - 0.01 'Компьютер уменьшает горизонтальную координату
Процедура движения вниз:
Private Sub Command3_Click()
y = Image1.Top 'Компьютер узнает, откуда начинать движение
m1: y = y + 0.01 'Компьютер увеличивает вертикальную координату
Image1.Top = y 'Изображение встает на место, указанное верт. координатой
GoTo m1
End Sub
Процедура движения вверх отличается от процедуры движения вниз одной строкой:
m1: y = y - 0.01 'Компьютер уменьшает вертикальную координату
Private Sub Command1_Click()
'Печатаем 1 2 3 4 . . . 100:
a = 1
m1: Debug.Print a;
a = a + 1
If a <= 100 Then GoTo m1
'Печатаем 99 98 97 96 . . . 1:
a = 99
m2: Debug.Print a;
a = a - 1
If a >= 1 Then GoTo m2
End Sub
Dim a As Double
Private Sub Command1_Click()
a = 0
m: Debug.Print Format(a, "0.000"), Format(a ^ 2, "0.000000")
a = a + 0.001
If a <= 1.00001 Then GoTo m
End Sub
Почему я вместо If a<=1 написал If a<=1.00001? Причина в незначительных погрешностях, которые допускает компьютер при действиях с десятичными дробями (о чем я писал в 4.5). На моем компьютере при многократном прибавлении 0.001 значение a на некотором этапе перестало быть точным. Конкретнее, у меня получилось вот что:
0,682 + 0,001 = 0,683000000000001
Вследствие этого, при дальнейшем нарастании а последнее сложение было таким:
0,999000000000001 + 0,001 = 1,000000000000001
Легко видеть, что в этом случае для a=1 задание не было бы выполнено, так как компьютер вышел бы из цикла раньше срока.
Private Sub Command1_Click()
x = 2700
m1: y = x / 4 + 20
z = 2 * y + 0.23
If y * z < 1 / x Then GoTo m2
Debug.Print Format(x, "0.000000"), Format(y, "0.000000"), Format(z, "0.000000")
x = x / 3
GoTo m1
m2:
End Sub
x = 300
m1: x = x + 0.01
Image1.Left = x
If x <= 2000 Then GoTo m1
Private Sub Command2_Click()
'Ставим объект в начальную точку:
x = 300
Image1.Left = x
y = 1000
Image1.Top = y
'Движемся направо:
m1: x = x + 0.01
Image1.Left = x
If x <= 2000 Then GoTo m1
'Движемся вниз:
m2: y = y + 0.01
Image1.Top = y
If y <= 1500 Then GoTo m2
End Sub
Dim Slovo As String
Dim i As Integer
Private Sub Command1_Click()
i = 1
Do
Slovo = InputBox("Введите слово")
Debug.Print i; Slovo; "!"
i = i + 1
Loop Until Slovo = "Хватит"
Debug.Print "Хватит так хватит"
End Sub
Dim a As Double
Private Sub Command1_Click()
a = 0
Do
Debug.Print Format(a, "0.000"), Format(a ^ 2, "0.000000")
a = a + 0.001
Loop While a <= 1.00001
End Sub
Private Sub Command2_Click()
x = 300
Image1.Left = x
y = 1000
Image1.Top = y
'Движемся направо:
Do
x = x + 0.01
Image1.Left = x
Loop While x <= 2000
'Движемся вниз:
Do
y = y + 0.01
Image1.Top = y
Loop Until y > 1500
End Sub
v = 20: t = 0: h = 100: s = 0
Do
s = v * t
h = 100 - 9.81 * t ^ 2 / 2
Debug.Print Format(t, "0.0"), s, Format(h, "0.000")
t = t + 0.2
Loop Until h < 0
Private Sub Command1_Click()
Debug.Print "Прямой счет:";
For i = -5 To 5
Debug.Print i;
Next
Debug.Print "Обратный счет:";
For i = 5 To -5 Step -1
Debug.Print i;
Next
Debug.Print "Конец счета"
End Sub
N = InputBox("Сколько всего кубиков?")
For i = 1 To N
a = InputBox("Введите сторону кубика")
V = a ^ 3 'Объем кубика
Debug.Print "Сторона кубика ="; a, "Объем кубика ="; V
Next i
Компьютер спросит размеры только одного зала и три раза напечатает его площадь и объем:
Площадь пола= 300 Объем зала= 1200
Площадь пола= 300 Объем зала= 1200
Площадь пола= 300 Объем зала= 1200
Компьютер напечатает результаты только для последнего зала:
Площадь пола= 50 Объем зала= 150
1) Компьютер напечатает результат, на 10 превышающий правильный
2) Компьютер напечатает результат, в 2 раза превышающий правильный
3) Компьютер напечатал бы 200 нарастающих значений счетчика
4) Компьютер напечатает 1, если последнее число положительное, и 0 - если неположительное
5) Компьютер запросит только одно число и напечатает 200, если оно положительное, и 0 - если неположительное
c_полож = 0 'Обнуляем счетчик положительных чисел
c_отриц = 0 'Обнуляем счетчик отрицательных чисел
c_больше_10 = 0 'Обнуляем счетчик чисел, превышающих 10
N = InputBox("Сколько всего чисел?")
For i = 1 To N
a = InputBox("Введите очередное число")
If a > 0 Then c_полож = c_полож + 1
If a < 0 Then c_отриц = c_отриц + 1
If a > 10 Then c_больше_10 = c_больше_10 + 1
Next i
Debug.Print "Из них положительных -"; c_полож; ", отрицательных -"; c_отриц; _
", чисел, превышающих десятку -"; c_больше_10
Dim a As Double, b As Double
Private Sub Command4_Click()
c = 0 'Обнуляем счетчик пар
Do
a = InputBox("Введите первое число пары")
b = InputBox("Введите второе число пары")
If a = 0 And b = 0 Then Exit Do
If a + b = 13 Then c = c + 1
Loop
Debug.Print c
End Sub
1) 18
2) 10
3) 5 и 8
4) 3
5) 10
6) 3
7) 5
s = 0 'Обнуляем сумматор площади пола
For i = 1 To 40
Dlina = InputBox("Введите длину")
Shirina = InputBox("Введите ширину")
s = s + Dlina * Shirina 'Наращиваем сумматор площади пола
Next i
Debug.Print "Общая площадь пола="; s
N = InputBox("Сколько учеников в классе?")
s = 0 'Обнуляем сумматор баллов
For i = 1 To N
Балл = InputBox("Введите оценку по физике")
s = s + Балл 'Наращиваем сумматор баллов
Next i
Debug.Print "Средний балл по физике ="; Format(s / N, "0.000")
N = InputBox("Сколько сомножителей?")
proizv = 1 'Cумматор обнуляем, а накопитель произведения приравниваем 1. Почему?
For i = 1 To N
Число = InputBox("Введите очередной сомножитель")
proizv = proizv * Число 'Наращиваем произведение
Next i
Debug.Print "Произведение равно"; proizv
1)
For k = 3 To 8
For l = 0 To 7
Debug.Print k; l
Next l
Next k
2)
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
Debug.Print k; l; m; n
Next n
Next m
Next l
Next k
3)
i = 0 'Обнуляем счетчик
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
i = i + 1
Next n
Next m
Next l
Next k
Debug.Print i
4)
i = 0 'Обнуляем счетчик
For k = 1 To 3
For l = 1 To 3
For m = 1 To 3
For n = 1 To 3
If k <= l And l <= m And m <= n Then i = i + 1 : Debug.Print k; l; m; n
Next n
Next m
Next l
Next k
Debug.Print i
N = InputBox("Сколько чисел?")
Min = InputBox("Введите число")
Номер_мин_числа = 1
For i = 2 To N
chislo = InputBox("Введите число")
If chislo < Min Then Min = chislo: Номер_мин_числа = i
Next i
Debug.Print Min, Номер_мин_числа
Dim N As Integer, Min As Integer, Max As Integer, Рост As Integer
Private Sub Command1_Click()
N = InputBox("Сколько одноклассников?")
Min = 500 'Заведомо невозможно огромный рост
Max = 0 'Заведомо ничтожный рост
For i = 1 To N
Рост = InputBox("Введите рост")
If Рост < Min Then Min = Рост
If Рост > Max Then Max = Рост
Next i
If Max - Min > 40 Then Debug.Print "Правда" Else Debug.Print "Неправда"
End Sub
'На форме Form1 ближе к краю размещены два маленьких объекта-"кнопки" Image1 и Image2
'с уже загруженными в них картинками, а также большой объект Image3.
Private Sub Image1_Click() 'ЧТО ДОЛЖНО ПРОИЗОЙТИ ПРИ ЩЕЛЧКЕ МЫШКОЙ ПО "КНОПКЕ" Image1:
Image3.Stretch = False 'Это чтобы большая "рамка" Image3 приняла форму и размеры картины
Image3.Visible = False 'А это чтобы большая картина не мелькала при преобразованиях Image3
Image3.Picture = Image1.Picture 'Копируем картинку с "кнопки" в большую "рамку"
Image1.BorderStyle = 1 'А это чтобы мы видели, какую картинку уже смотрели
Form_Factor = Form1.Width / Form1.Height 'Это продолговатость формы
Image_Factor = Image3.Width / Image3.Height 'Это продолговатость "рамки" Image3, принявшей картинку
If Image_Factor > Form_Factor Then 'Если картинка продолговатей, чем форма, ТО ...
Image3.Width = 0.9 * Form1.Width 'картинка, конечно, должна быть чуть поуже формы (на 1/10)
Image3.Left = 0.05 * Form1.Width 'а это для симметричности по горизонтали (на 1/20 от левого края)
Image3.Height = Image3.Width / Image_Factor 'А это чтобы не исказились пропорции картинки
Image3.Top = (Form1.Height - Image3.Height) / 2 'А это для симметричности по вертикали
Else 'ИНАЧЕ ...
Image3.Height = 0.9 * Form1.Height 'Картинка, конечно, должна быть чуть покороче формы (на 1/10)
Image3.Top = 0.05 * Form1.Height 'А это для симметричности по вертикали (на 1/20 от верхнего края)
Image3.Width = Image3.Height * Image_Factor 'А это чтобы не исказились пропорции картинки
Image3.Left = (Form1.Width - Image3.Width) / 2 'А это для симметричности по горизонтали
End If
Image3.Stretch = True 'А это для того, чтобы картина приняла размеры "рамки" после ее успешных преобразований
Image3.Visible = True 'А вот теперь можно полюбоваться картиной
End Sub
Private Sub Image2_Click() 'ЧТО ДОЛЖНО ПРОИЗОЙТИ ПРИ ЩЕЛЧКЕ МЫШКОЙ ПО "КНОПКЕ" Image2:
Image3.Stretch = False
Image3.Visible = False
Image3.Picture = Image2.Picture
Image2.BorderStyle = 1
Form_Factor = Form1.Width / Form1.Height
Image_Factor = Image3.Width / Image3.Height
If Image_Factor > Form_Factor Then
Image3.Width = 0.9 * Form1.Width
Image3.Left = 0.05 * Form1.Width
Image3.Height = Image3.Width / Image_Factor
Image3.Top = (Form1.Height - Image3.Height) / 2
Else
Image3.Height = 0.9 * Form1.Height
Image3.Top = 0.05 * Form1.Height
Image3.Width = Image3.Height * Image_Factor
Image3.Left = (Form1.Width - Image3.Width) / 2
End If
Image3.Stretch = True
Image3.Visible = True
End Sub
Private Sub Command1_Click()
BackColor = vbWhite 'красим форму в белый цвет
Circle (3300, 1200), 400 'голова
DrawWidth = 5 'увеличиваем толщину линий и точек
PSet (3450, 1100) 'глаз
PSet (3150, 1100) 'глаз
Line (3200, 1400)-(3400, 1400) 'pот
DrawWidth = 1 'возвращаем обычную толщину линий и точек
ForeColor = vbRed 'красный цвет линий и текста
Line (3300, 1200)-(3300, 1300) 'нос
Line (3300, 1200)-(3050, 1300) 'нос
Line (3300, 1300)-(3050, 1300) 'нос
ForeColor = vbBlack 'черный цвет линий и текста
Circle (3300, 2200), 600 'сеpедина
Line (3500, 1630)-(4550, 1830), , B 'pука
Line (2030, 1630)-(3080, 1830), , B 'pука
FillStyle = vbSolid 'приказ рисовать элементы со сплошной (vbSolid) заливкой
FillColor = vbYellow 'желтая заливка
Line (3000, 300)-(3600, 800), , B 'шапка
FillColor = RGB(220, 220, 220) 'серая заливка
Circle (3300, 3600), 800 'низ
DrawWidth = 3 'увеличиваем толщину линий и точек
ForeColor = vbBlue 'синий цвет линий и текста
Line (2200, 1300)-(1800, 4400) 'посох
Font = "Times" 'название шрифта
Font.Italic = True 'курсив
Font.Bold = True 'полужирный
Font.Size = 14 'размер шрифта
CurrentX = 2700 'координаты начала печати
CurrentY = 3300
Print "Снеговик"
CurrentX = 2830
Print "Ефрем"
End Sub
Dim c As Long, R As Long, G As Long, B As Long
Private Sub Command1_Click()
x = InputBox("Введите горизонтальную координату точки")
y = InputBox("Введите вертикальную координату точки")
c = Point(x, y) 'Определяем код цвета заданной точки
R = c Mod 256 'Количество красного
BG = c \ 256 'Промежуточный результат
G = BG Mod 256 'Количество красного
B = BG \ 256 'Количество красного
Debug.Print c, R, G, B, "Проверка -"; B * 256 * 256 + G * 256 + R
'Следующие три строки - для проверки на глазок правильности определения R,G,B:
Circle (x, y), 200
DrawWidth = 20
PSet (x, y), RGB(R, G, B)
'Определяем, какого цвета больше - R,G или B:
If R > G And R > B Then
Debug.Print "Красного больше"
ElseIf G > R And G > B Then
Debug.Print "Зеленого больше"
ElseIf B > R And B > G Then
Debug.Print "Синего больше"
Else
Debug.Print "Два самых ярких или три цвета одинаково интенсивны"
End If
End Sub
Программа отличается от той, что в разделе, одним числом:
x = x + 120
Программа отличается от предыдущей двумя числами:
x = 200
Do Until x > 8000
Вместо 100 пишем 200.
Dim x As Long, y As Long
Private Sub Command1_Click()
x = 100
y = 6000
Do Until x > 9000
PSet (x, y)
x = x + 100
y = y - 60
Loop
End Sub
x = 4000: y = 3000: R = 100
Do Until R > 2500
Circle (x, y), R
R = R + 100
Loop
Private Sub Command3_Click()
BackColor = RGB(0, 0, 150)
ForeColor = vbYellow
'Компакт-диск:
x = 4000: y = 3000: R = 500
Do Until R > 2500
Circle (x, y), R
R = R + 20
Loop
'Летающая тарелка:
x = 10000: y = 3000: R = 500
Do Until R > 2500
Circle (x, y), R, , , , 1 / 2
R = R + 20
Loop
End Sub
x = 4000: y = 500: R = 0
Do Until R > 2500
Circle (x, y), R, , , , 1 / 2
R = R + 50
y = y + 150
Loop
x = 400: y = 500: R = 0
Do Until R > 1500
Circle (x, y), R
R = R + 20
y = y + 60
x = x + 120
Loop
y = 0 'Разлиновывать начинаем с верхнего края формы
Do Until y > Height 'Разлиновываем до нижнего края формы
Line (0, y)-(Width, y) 'Линию проводим до правого края формы
y = y + 200 'Расстояние между линиями = 200
Loop
Private Sub Command2_Click()
'Разлиновываем горизонтальными линиями:
y = 0 'Разлиновывать начинаем с верхнего края формы
Do Until y > Height 'Разлиновываем до нижнего края формы
Line (0, y)-(Width, y) 'Линию проводим до правого края формы
y = y + 200 'Расстояние между линиями = 200
Loop
'Разлиновываем вертикальными линиями:
x = 0 'Разлиновывать начинаем с левого края формы
Do Until x > Width 'Разлиновываем до правого края формы
Line (x, 0)-(x, Height) 'Линию проводим до нижнего края формы
x = x + 200 'Расстояние между линиями = 200
Loop
End Sub
Private Sub Command3_Click()
'Разлиновываем горизонтальными линиями:
y = 0 'Разлиновывать начинаем с верхнего края формы
Do Until y > Height 'Разлиновываем до нижнего края формы
Line (0, y)-(Width, y) 'Линию проводим до правого края формы
y = y + 200 'Расстояние между линиями = 200
Loop
'Разлиновываем косыми линиями:
x = 0 'Разлиновывать начинаем с левого края формы
Do Until x > Width + 2000 'Разлиновываем до правого края формы с запасом в 2000
Line (x, 0)-(x - 2000, Height) 'Линию проводим наискосок до нижнего края формы
x = x + 200 'Расстояние между линиями = 200
Loop
End Sub
x = 100 'Квадраты начинаем рисовать от левого края формы
Do Until x > 8000 'Рисуем их до координаты 8000
Line (x, 3000)-(x + 1000, 4000), , B 'Ширина квадрата = 1000, высота = 4000-3000
x = x + 1500 'Шаг рисования квадратов = 1500
Loop
Dim x As Integer, y As Integer 'Координаты левого верхнего угла каждого из 64 квадратов
Dim i As Integer 'i - номер столбца на доске (от 1 до 8 слева направо)
Dim j As Integer 'j -номер строки на доске (от 1 до 8 сверху вниз)
Private Sub Command2_Click()
For j = 1 To 8 'Пробегаем 8 клеток по вертикали сверху вниз
For i = 1 To 8 'Пробегаем 8 клеток по горизонтали слева направо
x = 1000 * i
y = 1000 * j
'ЕСЛИ сумма номеров столбца и строки четная, то заливка квадрата синяя, ИНАЧЕ желтая:
If (i + j) Mod 2 = 0 Then Цвет_заливки = vbBlue Else Цвет_заливки = vbYellow
Line (x, y)-(x + 1000, y + 1000), Цвет_заливки, BF 'рисуем закрашенный квадрат,
Next i
Next j
End Sub
Dim x As Integer, y As Integer 'Координаты центров окружностей
Private Sub Command1_Click()
y = 1000 'По вертикали ковер простирается от 1000 до 6000 твипов
Do Until y >= 6000
x = 1000 'По горизонтали ковер простирается от 1000 до 8000 твипов
Do Until x >= 8000
Circle (x, y), 300
x = x + 150 'Расстояние между центрами окружностей - 150 твипов
Loop
y = y + 150
Loop
End Sub
Вместо строки
Circle (x, y), 300
пишем строку
If x > 2000 Or y < 5000 Then Circle (x, y), 300
Вместо строки
Circle (x, y), 300
пишем строку
If (x > 2000 Or y < 5000) And Not (x > 4000 And x < 5000 And y > 3000 And y < 4000) Then Circle (x, y), 300
которую можно вольно перевести так:
ЕСЛИ (это не левый нижний угол) И НЕПРАВДА, что (это квадрат в центре), ТО рисуй кружок
Line (2000, 1000)-(6000, 5500), , BF 'Черный прямоугольник окна
For i = 1 To 1000
DrawWidth = Round(2 * Rnd) + 1 'Толщина звезд = 1,2,3
PSet (2000 + 4000 * Rnd, 1000 + 4500 * Rnd), 16777216 * Rnd 'Откуда взялись числа 4000 и 4500? Вот откуда:
'4000=6000-2000, 4500=5500-1000
Next
For i = 1 To 40
Circle (Width * Rnd, Height * Rnd), 200, , , , 1 / 2
Next
Private Sub Command4_Click()
For i = 1 To 150
Circle (Width * Rnd, Height * Rnd), 1000 * Rnd, 16777216 * Rnd
Next
End Sub
BackColor = vbBlack 'Черное небо
For i = 1 To 200000 'Большое число - чтобы долго рисовалось. Сам процесс приятен.
'Каждый луч прожектора - отрезок от центральной точки формы (Width / 2, Height / 2)
'до случайной (Width * Rnd, Height * Rnd):
Line (Width / 2, Height / 2)-(Width * Rnd, Height * Rnd), 16777216 * Rnd
Next
For i = 1 To 1000
'Левая треть стога имеет горизонтальные координаты от 0 до 2000,
'значит случайная точка внутри этой части - (2000 * Rnd)
'Правая треть стога имеет горизонтальные координаты от 4000 до 6000,
'значит случайная точка внутри этой части - (4000 + 2000 * Rnd)
'Поскольку стог сделан из сена, то в его цвете преобладают красная и зеленая составляющие, а не синяя
Line (2000 * Rnd, 6000 * Rnd)-(4000 + 2000 * Rnd, 6000 * Rnd), RGB(100 + 156 * Rnd, 100 + 156 * Rnd, 40 * Rnd)
Next
For i = 1 To 10000
Line (Width * Rnd, Height * Rnd)-(Width * Rnd, Height * Rnd), 16777216 * Rnd, BF
For j = 1 To 1000000: Next
Next
Private Sub Command1_Click() 'Звездное небо с порцией из 400 звезд
BackColor = vbBlack
For i = 1 To 400
DrawWidth = 1 + Round(2 * Rnd)
PSet (Width * Rnd, Height * Rnd), 16777216 * Rnd
Next
End Sub
Private Sub Command2_Click() 'Летающая тарелка
Randomize
DrawWidth = 1
'Сначала подбираем случайный радиус внутреннего отверстия тарелки:
r0 = 500 * Rnd
'Теперь назначаем случайные координаты тарелки:
x = Width * Rnd
y = Height * Rnd
'Теперь начинаем рисовать саму тарелку - концентрические эллипсы
'с начальным радиусом r0 и конечным радиусом 4 * r0:
r = r0
Do Until r > 4 * r0
Circle (x, y), r, vbYellow, , , 1 / 2
r = r + 15
Loop
End Sub
Private Sub Form_Load()
Звук.DeviceType = "WaveAudio"
Звук.FileName = "c:\Windows\Media\Chimes.wav"
End Sub
Private Sub Музыкальная_вставка() 'Это требуемая процедура пользователя
Звук.Command = "Open"
Звук.Command = "Sound"
Звук.Command = "Close"
End Sub
Private Sub Command1_Click()
Музыкальная_вставка
Picture1.Picture = LoadPicture("c:\temp\Rockies.bmp")
End Sub
Private Sub Command2_Click()
Музыкальная_вставка
Picture1.Picture = LoadPicture("c:\temp\Porthole.bmp")
End Sub
Я, король Франции, спрашиваю вас - кто вы такие? Вот ты - кто такой?
Я - Атос
А ты, толстяк, кто такой?
А я Портос! Я правильно говорю, Арамис?
Это так же верно, как то, что я -Арамис!
Он не врет, ваше величество! Я Портос, а он Арамис.
А ты что отмалчиваешься, усатый?
А я все думаю, ваше величество - куда девались подвески королевы?
Анна! Иди-ка сюда!!!
Private Sub Image1_Click()
Готовим_рамку_к_приему_фото
Image3.Picture = Image1.Picture
Image1.BorderStyle = 1
Увеличиваем_рамку_и_показываем_фото
End Sub
Private Sub Image2_Click()
Готовим_рамку_к_приему_фото
Image3.Picture = Image2.Picture
Image2.BorderStyle = 1
Увеличиваем_рамку_и_показываем_фото
End Sub
Private Sub Готовим_рамку_к_приему_фото()
Image3.Stretch = False
Image3.Visible = False
End Sub
Private Sub Увеличиваем_рамку_и_показываем_фото()
Form_Factor = Form1.Width / Form1.Height
Image_Factor = Image3.Width / Image3.Height
If Image_Factor > Form_Factor Then
Image3.Width = 0.9 * Form1.Width
Image3.Left = 0.05 * Form1.Width
Image3.Height = Image3.Width / Image_Factor
Image3.Top = (Form1.Height - Image3.Height) / 2
Else
Image3.Height = 0.9 * Form1.Height
Image3.Top = 0.05 * Form1.Height
Image3.Width = Image3.Height * Image_Factor
Image3.Left = (Form1.Width - Image3.Width) / 2
End If
Image3.Stretch = True
Image3.Visible = True
End Sub
Dim Otstup As Integer 'Расстояние от края формы до центра окружностей
Dim Razmer As Integer 'Радиус самой большой окружности
Dim Tsvet As Long
Private Sub Рисуем_значок_друга()
Otstup = 300
Razmer = 200
Tsvet = vbRed
Picture1.Circle (Otstup, Otstup), Razmer * 1 / 4, Tsvet
Picture1.Circle (Otstup, Otstup), Razmer * 2 / 4, Tsvet
Picture1.Circle (Otstup, Otstup), Razmer * 3 / 4, Tsvet
Picture1.Circle (Otstup, Otstup), Razmer * 4 / 4, Tsvet
End Sub
Private Sub Command3_Click()
Picture1.Picture = LoadPicture("c:\temp\Balloons.bmp")
Рисуем_значок_друга
Picture1.Print , "12.08.2001"
End Sub
Private Sub Form_Load()
Звук.DeviceType = "WaveAudio"
End Sub
Private Sub Музыкальная_вставка(Звуковой_файл As String)
Звук.FileName = Звуковой_файл
Звук.Command = "Open"
Звук.Command = "Sound"
Звук.Command = "Close"
End Sub
Private Sub Command1_Click()
Музыкальная_вставка "c:\Windows\Media\Chimes.wav"
Picture1.Picture = LoadPicture("c:\temp\Rockies.bmp")
End Sub
Private Sub Command2_Click()
Музыкальная_вставка "c:\Windows\Media\Tada.wav"
Picture1.Picture = LoadPicture("c:\temp\Porthole.bmp")
End Sub
Private Sub Рисуем_значок_друга(Otstup As Integer, Razmer As Integer, Tsvet As Long)
Picture1.Circle (Otstup, Otstup), Razmer * 1 / 4, Tsvet
Picture1.Circle (Otstup, Otstup), Razmer * 2 / 4, Tsvet
Picture1.Circle (Otstup, Otstup), Razmer * 3 / 4, Tsvet
Picture1.Circle (Otstup, Otstup), Razmer * 4 / 4, Tsvet
End Sub
Private Sub Command3_Click()
Picture1.Picture = LoadPicture("c:\temp\Balloons.bmp")
Рисуем_значок_друга 300, 200, vbRed
Picture1.Print , "12.08.2001"
End Sub
Private Sub Крестик(x As Integer, y As Integer, Размер As Integer)
'Крестик - это 2 пересекающихся отрезка (Line)
Line (x, y + Размер / 2)-(x, y - Размер / 2)
Line (x + Размер / 2, y)-(x - Размер / 2, y)
End Sub
Private Sub Треугольник(x As Integer, y As Integer, Размер As Integer)
'Треугольник - это 3 отрезка (Line) с общими концами
'x и y - координаты левого нижнего угла треугольника
Line (x, y)-(x + Размер, y)
Line (x, y)-(x + Размер / 2, y - Размер)
Line (x + Размер, y)-(x + Размер / 2, y - Размер)
End Sub
Private Sub Command1_Click()
Крестик 4000, 2000, 400
Треугольник 3000, 1000, 800
End Sub
Dim a As Integer, b As Integer
Private Sub Рисуем_срез(Выбор_цвета As Integer, Насыщенность As Integer)
Размер = 40 'Это длина стороны квадратика
For j = 0 To 255 'Внешний цикл - рисует строки квадратиков по вертикали сверху вниз
y = j * Размер 'Вертикальная координата строки квадратиков
For i = 0 To 255 'Внутренний цикл - рисует квадратики по горизонтали слева направо
x = i * Размер 'Горизонтальная координата квадратика
Select Case Выбор_цвета
Case 1
Line (x, y)-(x + Размер, y + Размер), RGB(Насыщенность, i, j), BF 'квадратик
Case 2
Line (x, y)-(x + Размер, y + Размер), RGB(i, Насыщенность, j), BF 'квадратик
Case 3
Line (x, y)-(x + Размер, y + Размер), RGB(i, j, Насыщенность), BF 'квадратик
End Select
Next i
Next j
End Sub
Private Sub Command1_Click()
a = InputBox("Введите число 1, 2 или 3. Если фиксированный цвет красный, то 1, если зеленый - 2, синий -3")
b = InputBox("Введите насыщенность фиксированного цвета - число от 0 до 255")
Рисуем_срез a, b
End Sub
a и b - неудачные имена, так как не говорят о смысле переменных. В будущем вы увидите, что можно было бы использовать уже применяющиеся имена - Выбор_цвета и Насыщенность.
Private Sub Command1_Click()
Debug.Print DateAdd("ww", 52, Date)
End Sub
Private Sub Command2_Click()
Дата_рождения = InputBox("Введите дату своего рождения")
Debug.Print DateDiff("s", Дата_рождения, Now)
End Sub
Private Sub Command3_Click()
Дата_рождения = InputBox("Введите дату своего рождения")
'Переменная Сколько_мне_лет не совсем точно соответствует общепринятому смыслу.
'Это разность между текущим годом и годом рождения.
Сколько_мне_лет = DateDiff("yyyy", Дата_рождения, Date)
День_рождения_в_этом_году = DateAdd("yyyy", Сколько_мне_лет, Дата_рождения)
День_рождения_в_следующем_году = DateAdd("yyyy", Сколько_мне_лет + 1, Дата_рождения)
If День_рождения_в_этом_году >= Date Then 'Если день рождения позже сегодняшнего числа
Сколько_дней_осталось = День_рождения_в_этом_году - Date
Else
Сколько_дней_осталось = День_рождения_в_следующем_году - Date
End If
Debug.Print Сколько_дней_осталось
End Sub
Private Sub Command4_Click()
Текущая_дата = #1/1/1920#
Do Until Текущая_дата > #1/1/2940#
Дата_через_год = DateAdd("yyyy", 1, Текущая_дата)
Число_дней_в_году = DateDiff("y", Текущая_дата, Дата_через_год)
Год = DatePart("yyyy", Текущая_дата)
If (Число_дней_в_году = 366) And Not (Год Mod 4 = 0) Then
Debug.Print "Лишний високосный год -"; Год, Число_дней_в_году
End If
Текущая_дата = Дата_через_год
Loop
End Sub
Эта программа отлавливает лишние високосные года (не кратные 4) между 1920 и 2940 годами.
Dim k As Integer
Private Sub Form_Load()
k = 100
End Sub
Private Sub Timer1_Timer()
Debug.Print k
k = k + 1
If k > 110 Then Timer1.Enabled = False
End Sub
Dim x As Integer, y As Integer, R As Integer 'Координаты и радиус колес и прямоугольника
Dim Цвет_фигуры As Long, Цвет_фона As Long
Private Sub Form_Load()
x = 1000: y = 1500: R = 200
DrawWidth = 5 'Толщина линии
Цвет_окружности = vbBlack
Цвет_фона = BackColor
End Sub
Private Sub Timer1_Timer()
Circle (x, y), R, Цвет_фигуры 'Рисуем одно колесо
Circle (x + 1000, y), R, Цвет_фигуры 'Рисуем другое колесо
Line (x - 300, y)-(x + 1300, y - 400), Цвет_фигуры, B 'Рисуем прямоугольник
For i = 1 To 500000: Next 'Пустой цикл
Circle (x, y), R, Цвет_фона 'Стираем одно колесо
Circle (x + 1000, y), R, Цвет_фона 'Стираем другое колесо
Line (x - 300, y)-(x + 1300, y - 400), Цвет_фона, B 'Стираем прямоугольник
x = x + 30 'Перемещаемся немного направо
End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top - 20
Shape2.Top = Shape2.Top - 20
End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top + 20
Shape2.Left = Shape2.Left + 20
End Sub
Dim Шаг As Integer, x As Integer
Private Sub Form_Load()
x = Shape1.Left
Шаг = 50
End Sub
Private Sub Timer1_Timer()
x = x + Шаг
Shape1.Left = x
If x > Width - Shape1.Width Then Шаг = -50 'Если фигура улетела за правый край формы, то лететь обратно
If x < 0 Then Шаг = 50 'Если фигура улетела за левый край формы, то лететь обратно
End Sub
Dim x As Integer, y As Integer, dx As Integer, dy As Integer
'dx - шаг шаpика по гоpизонтали,
'то есть pасстояние по гоpизонтали между двумя последовательными
'положениями шарика. dy - аналогично по веpтикали
Private Sub Form_Load()
Show 'Чтобы форма показалась на экране до рисования стола
Line (450, 450)-(6200, 4600), , B 'боpтики стола
x = Image1.Left: y = Image1.Top 'Hачальное положение шаpика
dx = 40: dy = 60 'Hапpавление движения - впpаво вниз
End Sub
Private Sub Timer1_Timer()
x = x + dx: y = y + dy 'Двигаем шарик
Image1.Left = x: Image1.Top = y 'Двигаем шарик
If x < 500 Or x > 5900 Then dx = -dx 'Удаpившись о левый или пpавый боpт,
'шаpик меняет гоpизонтальную составляющую скоpости на пpотивоположную
If y < 500 Or y > 4300 Then dy = -dy 'Удаpившись о веpхний или нижний боpт,
'шаpик меняет веpтикальную составляющую скоpости на пpотивоположную
'Если шаpик в левом веpхнем углу или в левом нижнем
'или в пpавом веpхнем или в пpавом нижнем, то останавливай шаpик:
If (x < 800 And y < 800) Or (x < 800 And y > 4000) _
Or (x > 5600 And y < 800) Or (x > 5600 And y > 4000) Then Timer1.Enabled = False
End Sub
Dim x As Long, y As Long, x0 As Long, y0 As Long
Dim t As Double, s As Double, h As Double, v As Double
Private Sub Form_Load()
Timer1.Enabled = False
Show
AutoRedraw = True
Line (200, 400)-(400, 4400), , B 'башня
Line (0, 4400)-(6400, 4400) 'земля
x0 = 400: y0 = 400 'Кооpдинаты веpха башни
v = 20: t = 0 'Hачальные скоpость и вpемя
Image1.Left = x0: Image1.Top = y0 'Начальное положение камня
End Sub
Private Sub Command1_Click() 'Бросаем камень
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
s = 40 * v * t: h = 40 * (100 - 9.81 * t ^ 2 / 2)
x = x0 + Round(s): y = y0 + (4000 - Round(h)) 'Кооpдинаты камня в полете
Image1.Left = x: Image1.Top = y
PSet (x, y) 'След камня в полете
t = t + 0.1
If h < 0 Then Timer1.Enabled = False 'Если камень упал, время останавливается
End Sub
Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 1
Label1.ForeColor = Label1.ForeColor + 10
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then PSet (X, Y) 'Если левая клавиша мыши нажата, то рисуем
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then DrawWidth = DrawWidth + 1 'Если правая клавиша мыши нажата, то увеличиваем толщину линии
End Sub
'В режиме проектирования поместим на форму прямоугольник и три круга.
'Назовем круги Красная_лампа, Желтая_лампа, Зеленая_лампа
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyR
Красная_лампа.FillColor = vbRed
Желтая_лампа.FillColor = vbBlack
Зеленая_лампа.FillColor = vbBlack
Case vbKeyY
Красная_лампа.FillColor = vbBlack
Желтая_лампа.FillColor = vbYellow
Зеленая_лампа.FillColor = vbBlack
Case vbKeyG
Красная_лампа.FillColor = vbBlack
Желтая_лампа.FillColor = vbBlack
Зеленая_лампа.FillColor = vbGreen
End Select
End Sub
'В режиме проектирования поместим на форму два Image и два таймера.
'Назовем их Самолет, Снаряд, Таймер_самолета, Таймер_снаряда
Private Sub Form_Load()
Таймер_снаряда.Enabled = False
End Sub
Private Sub Таймер_самолета_Timer()
Самолет.Left = Самолет.Left - 20
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Таймер_снаряда.Enabled = True
End Sub
Private Sub Таймер_снаряда_Timer()
Снаряд.Top = Снаряд.Top - 50
End Sub
1) a(i) = a(i-1) + 4
2) a(i) = 2 * a(i-1)
3) a(i) = 2 * a(i-1) - 1
Dim t(1 To 7) As Integer
Private Sub Command1_Click()
t(1) = 8: t(2) = 14: t(3) = 19: t(4) = 22: t(5) = 25: t(6) = 28: t(7) = 26
'Определим среднегодовую температуру:
s = 0
For i = 1 To 7: s = s + t(i): Next
Debug.Print s / 7
'Определим количество теплых дней в году:
k = 0
For i = 1 To 7
If t(i) > 20 Then k = k + 1
Next
Debug.Print k
'Определим, каким по порядку идет самый жаркий день
Min = t(1): nomer = 1
For i = 2 To 7
If t(i) > Min Then Min = t(i): nomer = i
Next
Debug.Print nomer
End Sub
Dim fib(1 To 70) As Currency
Private Sub Command1_Click()
fib(1) = 1: fib(2) = 1
For i = 3 To 70
fib(i) = fib(i - 2) + fib(i - 1)
Debug.Print i, fib(i)
Next
End Sub
Dim t(1 To 3, 1 To 4) As Integer
Private Sub Command1_Click()
t(1, 1) = -8: t(1, 2) = -14: t(1, 3) = -19: t(1, 4) = -18
t(2, 1) = 25: t(2, 2) = 28: t(2, 3) = 26: t(2, 4) = 20
t(3, 1) = 11: t(3, 2) = 18: t(3, 3) = 20: t(3, 4) = 25
Min = t(1, 1): Max = t(1, 1)
For i = 1 To 3
For j = 1 To 4
If t(i, j) > Max Then Max = t(i, j)
If t(i, j) < Min Then Min = t(i, j)
Next j
Next i
Debug.Print Max - Min
End Sub
Private Sub Form_Load()
Label_Минимальная.Caption = HScroll1.Min
Label_Максимальная.Caption = HScroll1.Max
Label_Текущая.Caption = HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Label_Текущая.Caption = HScroll1.Value
End Sub
Private Sub Combo1_Click()
Combo2.Text = Combo2.List(Combo1.ListIndex)
End Sub
Я
Private Sub Command1_Click() 'Шифруем слово из 6 букв
s = "Корова"
Debug.Print Mid(s, 1, 2) + "быр" + Mid(s, 3, 2) + "быр" + Mid(s, 5, 2) + "быр"
End Sub
Private Sub Command2_Click() 'Шифруем произвольное слово
s = "Консенсус"
For i = 1 To Len(s) \ 2 'Len(s) \ 2 - это число полных пар букв в слове
Debug.Print Mid(s, 2 * i - 1, 2) + "быр"; 'Печатаем очередную пару букв и "быр"
Next
'Допечатываем последнюю нечетную букву, если она есть:
If Len(s) Mod 2 = 1 Then Debug.Print Right(s, 1)
End Sub
Dim s As String 'Исходная строка
Dim s1 As String 'Результирующая строка
Private Sub Command1_Click()
s = "Консенсус"
s1 = "" 'Результирующую строку строим с нуля
For i = 1 To Len(s) 'Просматриваем исходную строку слева направо
Старый_символ = Mid(s, i, 1) 'Выделяем очередной символ в исходной строке
If Старый_символ = "я" Then 'Букву я кодируем в букву а:
Новый_символ = "а"
Else 'остальные буквы кодируем, как задано в задаче:
Новый_символ = Chr(Asc(Старый_символ) + 1)
End If
s1 = s1 + Новый_символ 'Наращиваем результирующую строку на очередной символ
Next
Debug.Print s1 'Печатаем результат
End Sub
Dim SecretNumber As Long 'Загаданное компьютером число
Dim A As Long 'Число - попытка человека
Dim Сообщение As String
Dim Количество_попыток As Integer
Private Sub Form_Load()
Выбор = MsgBox("Продолжим старую игру?", vbQuestion + vbYesNo)
If Выбор = vbYes Then Загружаем_сохраненную_игру Else Настраиваем_новую_игру
End Sub
Private Sub Настраиваем_новую_игру()
Randomize
SecretNumber = Round(1000000000 * Rnd) 'Компьютер загадывает число
txtNumber.Text = 0 'Текстовое поле для ввода человеком числа
txtMessage.Text = "Попыток не было" 'Текстовое поле для вывода компьютером сообщений
Количество_попыток = 0
txtNumberTry.Text = Количество_попыток 'Текстовое поле для вывода количества попыток
Open App.Path & "\Данные.txt" For Output As #1 'Открыть для записи под номером 1 файл Данные.txt из папки проекта
Write #1, SecretNumber 'Запись в файл загаданного числа
End Sub
Sub cmdTry_Click() 'Нажатие на кнопку попытки
A = Val(txtNumber.Text)
If A > SecretNumber Then 'В этом операторе If вся несложная логика игры
Сообщение = "Много"
ElseIf A < SecretNumber Then
Сообщение = "Мало"
Else
Сообщение = "Вы угадали"
End If
txtMessage.Text = Сообщение
Количество_попыток = Количество_попыток + 1
txtNumberTry.Text = Количество_попыток
Write #1, Количество_попыток; A; Сообщение 'Запись в файл данных очередной попытки
End Sub
Private Sub Загружаем_сохраненную_игру()
Open App.Path & "\Данные.txt" For Input As #1 'Открыть для чтения под номером 1 файл Данные.txt из папки проекта
Input #1, SecretNumber 'Чтение из файла загаданного числа
Show 'Чтобы на форме можно было печатать историю игры
Print "ИСТОРИЯ ИГРЫ"
Do While Not EOF(1) 'Выполняй, пока НЕ наступил КОНЕЦ ФАЙЛА 1
Input #1, Количество_попыток, A, Сообщение 'Чтение из файла данных очередной попытки
Print Количество_попыток, A, Сообщение 'Печать на форме истории угадываний
Loop
Close #1 'Закрыть файл №1
txtNumber.Text = A
txtMessage.Text = Сообщение
txtNumberTry.Text = Количество_попыток
Open App.Path & "\Данные.txt" For Append As #1 'Открыть для дозаписи под номером 1 файл Данные.txt из папки проекта
End Sub
Private Sub Form_Terminate()
Close #1 'Закрыть файл №1
End Sub
'Вариант с использованием массива:
Private Function Fibonacci(Nomer As Integer) As Currency
Dim fib(1 To 70) As Currency
fib(1) = 1: fib(2) = 1
For i = 3 To Nomer: fib(i) = fib(i - 2) + fib(i - 1): Next
Fibonacci = fib(i - 1) 'Потому i - 1, что на выходе из цикла i равно Nomer + 1
End Function
'Вариант без использования массива:
Private Function Fibonacci1(Nomer As Integer) As Currency
fib1 = 1: fib2 = 1
For i = 3 To Nomer
fib3 = fib1 + fib2
fib1 = fib2
fib2 = fib3
Next
Fibonacci1 = fib3
End Function
Private Sub Command1_Click()
Debug.Print Fibonacci(68), Fibonacci1(68)
End Sub
Dim a(1 To 5) As Integer 'Оценки одного класса
Dim b(1 To 5) As Integer 'Оценки другого класса
Private Function Минимум(c As Variant) As Integer
Минимум = c(1)
For i = 2 To 5
If c(i) < Минимум Then Минимум = c(i)
Next
End Function
Private Function Максимум(c As Variant) As Integer
Максимум = c(1)
For i = 2 To 5
If c(i) > Максимум Then Максимум = c(i)
Next
End Function
Private Function Разница(c As Variant) As Integer
Разница = Максимум(c) - Минимум(c)
End Function
Private Sub Command1_Click()
a(1) = 4: a(2) = 5: a(3) = 2: a(4) = 5: a(5) = 4
b(1) = 4: b(2) = 3: b(3) = 4: b(4) = 4: b(5) = 3
If Разница(a) < Разница(b) Then Debug.Print "Первый класс учится ровнее" _
Else Debug.Print "Второй класс учится ровнее"
End Sub
Dim A(1 To 366) As Integer 'Показания термометра на станции A
Dim B(1 To 366) As Integer 'Показания термометра на станции B
Private Sub Исправление(ByVal Поправка As Integer, ByRef c)
For i = 1 To 4 'Для отладки приняли, что в году 4 дня.
c(i) = c(i) + Поправка
Next
End Sub
Private Sub Command1_Click()
A(1) = 24: A(2) = 25: A(3) = 28: A(4) = 25
B(1) = 14: B(2) = 16: B(3) = 14: B(4) = 17
Исправление -2, A
Исправление 3, B
For i = 1 To 4 'Распечатываем исправленные значения температур
Debug.Print A(i), B(i)
Next
End Sub
Private Function fib(N As Integer) As Currency
If N = 1 Or N = 2 Then fib = 1 Else fib = fib(N - 2) + fib(N - 1) 'Изумительная лаконичность!
End Function
'За изумительную лаконичность расплачиваемся удручающе низким быстродействием.
'Когда N переваливает за пару десятков, результата приходится ждать.
'Ничего подобного не было при вычислении чисел Фибоначчи простым циклом.
'Почему так? А попробуйте подсчитать, сколько в памяти компьютера одновременно
'находится недовыполненных экземпляров подсчета функции fib.
Private Sub Command1_Click()
Debug.Print fib(20)
End Sub
'Используем метод пузырька. У нас уже имеется соответствующая программа для одномерного массива.
'Однако, просто так, в лоб, переделать ее для двумерного массива затруднительно. Чтобы не ломать
'уже готовую структуру процедуры метода пузырька, вообразим, что мы работаем не с двумерным массивом,
'а с одномерным, получившимся считыванием двумерного строчка за строчкой. Далее. Все, что делает метод
'пузырька - это берет элемент одномерного массива с указанным номером и ставит его на новое место
'с указанным номером. Поэтому для правильной работы метода нам достаточно написать функцию "Возьми",
'которая по указанному номеру воображаемого одномерного массива вычисляет номер строки и столбца
'реального двумерного массива и берет оттуда элемент, а также процедуру "Положи", которая путем таких же
'вычислений кладет элемент не на воображаемое место, а на реальное.
Const M = 3 'M - число стpок в массиве
Const N = 4 'N - число столбцов
Dim a(1 To M, 1 To N) As Integer 'Исходный массив
Private Function Возьми(ByVal Номер As Integer) As Integer ' "Номер" - воображаемый номер элемента
i = (Номер + N - 1) \ N 'вычисляется номер строки
j = Номер Mod N 'вычисляется номер столбца
If j = 0 Then j = N
Возьми = a(i, j)
End Function
Private Sub Положи(ByVal Номер As Integer, ByVal Элемент As Integer)
' "Элемент" - это то, что мы кладем на место, указанное воображаемым номером "Номер"
i = (Номер + N - 1) \ N
j = Номер Mod N
If j = 0 Then j = N
a(i, j) = Элемент
End Sub
Private Sub Сортируем() 'Сортировка массива методом пузырька. Сравните с ранее написанной процедурой
For k = M * N To 2 Step -1
For i = 1 To k - 1
If Возьми(i) > Возьми(i + 1) Then
c = Возьми(i)
Положи i, Возьми(i + 1)
Положи i + 1, c
End If
Next i
Next k
End Sub
Private Sub Command1_Click()
a(1, 1) = 28: a(1, 2) = 14: a(1, 3) = 49: a(1, 4) = 18
a(2, 1) = 29: a(2, 2) = 28: a(2, 3) = 36: a(2, 4) = 20
a(3, 1) = 45: a(3, 2) = 15: a(3, 3) = 20: a(3, 4) = 25
Сортируем
For i = 1 To M 'Распечатываем массив после сортировки
Debug.Print
For j = 1 To N
Debug.Print a(i, j),
Next
Next
End Sub
1. Н.Г.Волчёнков "Учимся программировать: Visual Basic 5", Москва, ДИАЛОГ-МИФИ, 1998.
Эта книга - для начинающих программистов.
2. Сайлер, Споттс "Использование Visual Basic 6", Издательский дом "Вильямс", 1999.
Эта книга - для программистов средней руки.
3. Мак-Кинни Брюс "Visual Basic - крепкий орешек"
Эта книга - для программистов высшего класса, знатоков программирования для Windows.
Все три книги хорошие.
-.. 43
!
!.. 46
"
". 43
#
#. 46, 110
$
$. 46
%
%............................................................ 46
&
& 46, 120, 157
(
(.. 44
)
).. 44
*
*. 43, 141
,
,.. 50
/
/.. 43
:
:.. 26
;
;.. 50
@
@........................................................... 46
^
^ 43
+
+. 43, 52, 157
<
<. 56
<=........................................................... 56
<>........................................................... 56
=
=. 56
>
>. 56
>=........................................................... 56
A
Abs........................................................ 44
ActiveX................................................ 209
Add...................................................... 147
Add Form............................................ 31
Add project......................................... 12
Add Project......................................... 31
Add-Ins................................................. 32
AddItem............................................. 153
Alignment............................................ 19
And........................................................ 60
Animation............................................. 25
App................................................ 33, 159
Appearance......................................... 18
Append............................................... 159
As........................................................ 159
Asc...................................................... 158
Assembler.......................................... 218
Atn......................................................... 44
AutoRedraw................................... 48, 95
AutoSize................................................ 89
AVI........................................................ 25
AVIVideo............................................. 25
B
BackColor.................................... 18, 91
BackSpace........................................ 235
BackStyle.............................................. 91
BETWEEN....................................... 208
BMP...................................................... 89
Bold........................................................ 17
Bold Italic................................................ 17
Boolean................................................ 116
BorderStyle........................................ 18
break.................................................... 41
Breakpoints......................................... 78
Bring to Front.................................... 92
Busy.................................................... 203
ByRef................................................. 168
ByVal................................................. 168
C
Call..................................................... 103
Call Stack.............................................. 80
CapsLock.......................................... 234
Caption................................................... 16
CDAudio.............................................. 21
CD-R................................................... 227
CD-ROM........................................... 227
CD-RW.............................................. 227
ChDir................................................. 161
CheckBox........................................... 149
Chr...................................................... 158
Circle............................................. 94, 96
Clear.................................................. 153
Click............................................... 12, 125
Close....................................... 20, 25, 159
Cls.......................................................... 97
Code...................................................... 30
Collection........................................... 147
Color Palette....................................... 30
ComboBox......................................... 152
Command............................................... 19
CommandButton.............................. 10, 90
CommonDialog................................. 173
Components........................................ 31
Const......................................... 106, 182
Continue................................................. 42
Control................................................ 147
Controls.................................................. 31
Copy................................................ 29, 31
Count.................................................. 147
Ctrl-Alt-Del.............................................. 28
Ctrl-Break............................................ 68
CUR...................................................... 89
Currency.......................................... 45, 46
CurrentX...................................... 51, 96
CurrentY....................................... 51, 96
Cut................................................... 29, 31
D
Data..................................................... 206
Date........................................... 110, 111
DateAdd............................................. 111
DateDiff............................................. 111
DatePart............................................ 111
DBGrid................................................. 207
DblClick.......................................... 30, 125
Debug.................................................... 79
Debug.Print.................................. 37, 41
DefDbl.................................................. 46
DefInt................................................... 46
DefLng................................................. 46
DefSng.................................................. 46
Delete........................................... 31, 235
Delphi................................................. 218
DESC................................................... 208
design..................................................... 11
DeviceType............................................. 19
Dim.............................................. 39, 182
DirListBox.......................................... 155
Do.................................................... 70, 71
Do …. Loop......................................... 71
Do …. Loop Until.............................. 72
Do …. Loop While............................ 71
Do Until …. Loop.............................. 73
Do While …. Loop............................ 72
Docking................................................ 30
DocumentComplete........................ 203
Double............................................ 45, 46
DownPicture......................................... 90
DrawMode........................................... 95
DrawStyle............................................. 95
DrawWidth........................................... 94
DriveListBox...................................... 155
DTPicker............................................. 154
E
Edit....................................................... 31
Else....................................................... 54
ElseIf...................................................... 59
Enabled................................................ 19
End......................................... 11, 65, 104
End If.................................................... 59
End Select............................................ 62
End Sub......................................... 12, 103
End Type........................................... 145
Enum................................................... 119
EOF...................................................... 160
Err........................................................ 162
Exit....................................................... 31
Exit Do.................................................... 73
Exit For................................................... 76
Exit Sub.............................................. 104
F
False............................................ 61, 116
File........................................................ 31
FileCopy............................................. 161
FileListBox......................................... 155
FileName........................................... 173
FillColor.......................................... 91, 95
FillStyle........................................... 91, 95
Find...................................................... 31
Fix.......................................................... 44
Font........................................................ 17
Font Style............................................... 17
FontBold.............................................. 51
FontItalic............................................. 51
FontName............................................ 51
FontSize............................................... 51
FontStrikethru................................... 51
FontTransparent............................... 51
FontUnderline.................................... 51
For.......................................... 74, 75, 159
For Each............................................ 147
ForeColor.............................. 18, 51, 95
Form Layout....................................... 30
Form_Load.......................................... 20
Form_Terminate.................................... 20
Form_Unload..................................... 161
Format.......................................... 31, 46
Frame.................................................. 148
FROM................................................ 208
G
GIF........................................................ 89
GotFocus.............................................. 88
GoTo..................................................... 68
Graphical............................................... 90
H
Height.................................................... 22
Help...................................................... 32
HScrollBar.......................................... 151
HTML................................................ 198
HTML-документ............................. 201
I
ICO........................................................ 89
Icon........................................................ 33
if 60
If 54
Image..................................................... 90
ImageCombo.................................... 156
Immediate Window.................... 37, 78
In......................................................... 147
Input.................................................... 159
InputBox.............................................. 38
Insert................................................... 235
InStr................................................... 157
Int................................................. 44, 201
Integer.................................... 39, 45, 46
Internet.............................................. 228
Is 63
IsDate.................................................. 121
IsNumeric............................................ 64
Italic........................................................ 17
J
Java.................................................... 218
JPG........................................................ 89
K
KeyCode............................................. 127
KeyDown............................................ 127
KeyPress............................................. 127
KeyPreview......................................... 128
KeyUp................................................. 128
Kill....................................................... 161
L
Label..................................................... 17
Lcase.................................................. 157
Left............................................... 22, 157
Len...................................................... 157
Let......................................................... 36
Line.......................................... 91, 94, 95
Line Input......................................... 160
LISP.................................................... 218
List...................................................... 153
ListBox............................................... 152
ListCount.......................................... 153
ListIndex........................................... 153
ListView.............................................. 155
Load................................................... 142
LoadPicture............................... 21, 25, 89
Locals.................................................... 78
Lock Controls..................................... 31
Logo.................................................... 218
Long............................................... 45, 46
Loop...................................................... 71
LostFocus............................................ 88
LTrim................................................ 157
M
Main..................................................... 180
Make.............................................. 26, 31
MaxButton.......................................... 19
MDI.................................................... 209
Me........................................................ 180
Menu Editor....................................... 23
Microsoft Multimedia Control 6.0............ 19
Microsoft Windows Common Controls-2 6.0 25
Mid..................................................... 157
MID....................................................... 19
MinButton........................................... 19
MkDir................................................... 161
Mod....................................................... 43
MonthName...................................... 111
MonthView........................................ 154
MouseDown....................................... 125
MouseIcon........................................... 18
MouseMove...................................... 126
MousePointer..................................... 18
MouseUp............................................ 126
Movable............................................... 19
MP3....................................................... 19
MSChart............................................... 156
MSComm.......................................... 156
MSDN Library................................... 32
MsgBox......................................... 23, 25
MultiLine............................................ 19
N
Name............................................. 16, 161
Navigate.............................................. 203
New............................................. 147, 191
New Project.................................. 12, 31
Next....................................................... 75
Not......................................................... 61
Now..................................................... 111
Number............................................... 162
O
Object.......................................... 30, 146
Object Browser............................ 30, 87
Object Pascal.................................... 218
OLE.................................................... 209
On Error.............................................. 162
OnClick................................................. 201
Open................................ 19, 25, 30, 159
Open Project................................ 12, 31
Option base....................................... 140
Option Explicit......................................... 40
OptionButton..................................... 150
Options................................................. 32
Or.......................................................... 61
OR......................................................... 61
Order..................................................... 31
ORDER BY....................................... 208
Output................................................ 159
P
Package & Deployment Wizard.............. 33
PaintPicture.......................................... 97
PasswordChar.................................... 65
Paste................................................ 29, 31
Path............................................... 33, 159
PC Speaker....................................... 227
Picture.................................................. 19
PictureBox.............................................. 89
PictureClip......................................... 156
Play.................................................. 19, 25
Point...................................................... 97
Print...................................... 31, 50, 160
Print Setup........................................... 31
Private.................................................. 182
Private Sub........................................... 103
ProgressBar....................................... 151
Project.................................................. 31
Project Explorer....................... 30, 180
Prolog.................................................. 218
Properties............................................ 30
Property Get....................................... 197
Property Let....................................... 197
Pset........................................................ 95
PSet....................................................... 94
Public........................................... 182, 191
Public Const......................................... 183
Q
Quick Watch......................................... 79
R
Randomize................................. 57, 100
Redo...................................................... 31
Regular................................................... 17
Remove............................................... 147
Remove Form..................................... 31
Remove Project........................... 12, 31
RemoveItem..................................... 153
Rename.................................................. 29
Replace................................................ 31
RGB....................................................... 92
RichTextBox..................................... 155
Right................................................... 157
RmDir.................................................. 161
Rnd................................................. 44, 57
Round.......................................... 44, 108
RTrim................................................ 157
run.......................................................... 11
Run To Cursor.................................... 79
S
Save................................................ 28, 29
Save Project................................. 12, 31
Save Project As................................... 31
SavePicture........................................ 177
ScaleLeft............................................. 130
ScaleTop............................................. 130
SELECT............................................ 208
Select Case.......................................... 62
Send to Back....................................... 92
Sequencer.............................................. 19
Set.............................................. 146, 191
SetFocus............................................... 87
Setup.exe.............................................. 33
Shape.................................................... 91
Shell..................................................... 162
Shift.................................................... 234
ShowColor......................................... 177
ShowOpen......................................... 173
ShowSave.......................................... 173
Simple Combo...................................... 153
Single...................................... 40, 45, 46
Size......................................................... 17
Slider................................................... 151
Sorted................................................. 153
Sound..................................................... 20
Split....................................................... 32
SQL..................................................... 207
Sqr......................................................... 44
Start........................................................ 11
Static.................................................. 167
StatusBar........................................... 156
Step................................................. 75, 97
Stop..................................... 25, 104, 203
Str....................................................... 157
Strech.................................................... 90
String............................................ 46, 157
Style................................................. 19, 90
Sub......................................................... 12
T
TabStrip............................................. 156
Tan........................................................ 44
Text............................................... 17, 152
TextBox.................................................. 11
Then...................................................... 54
Time................................................... 111
Timer................................................. 111
To................................................. 75, 138
Toolbar............................................... 174
Toolbox......................................... 10, 30
Tools..................................................... 32
ToolTipText....................................... 18
Top........................................................ 22
TOP.................................................... 208
TreeView............................................. 155
Trim................................................... 157
True............................................. 61, 116
Type................................................... 145
TypeName.......................................... 147
U
Ucase.................................................. 157
Undo..................................................... 31
UpDown.............................................. 155
V
Val................................................. 17, 157
Value.......................................... 149, 201
Variant................................................. 144
VBScript............................................ 200
View............................................... 30, 31
Visible.................................................. 19
Visual Basic....................................... 218
Visual C++......................................... 218
Visual Data Manager..................... 205
Visual Studio....................................... 27
VScrollBar........................................... 151
W
Watches................................................ 79
WAV..................................................... 19
WaveAudio............................................. 19
Web-серверами.............................. 198
Web-страницу................................. 198
WeekdayName................................ 111
WHERE............................................ 208
While …… Wend.................................. 74
Width..................................................... 22
Window......................................... 30, 32
Windows API................................... 209
WindowState...................................... 19
WMF..................................................... 89
Write.................................................... 159
WriteLn................................................. 41
Z
ZOrder................................................. 92
А
абсолютная величина..................... 44
адресом............................................. 233
активным.......................................... 16
алгоритмом..................................... 213
Анимация........................................ 121
аргументами.................................. 108
арифметических выражений......... 43
арифметическое выражение...... 36
арктангенс....................................... 44
Ассемблер........................................ 218
Б
базах данных.................................. 204
базой данных................................. 145
байт.................................... 40, 224, 229
байтом............................................... 229
бит...................................................... 229
броузер.............................................. 203
броузером........................................ 198
буфер обмена................................. 236
Бэйсик................................................ 225
В
вводите............................................. 213
вводится........................................... 158
вертикальной полосе.................... 151
ветвление............................................ 53
Ветвление......................................... 221
видеоадаптер................................. 226
видеокарту...................................... 226
видны................................................ 165
винчестер.......................................... 223
Винчестер........................................ 227
Вложенные операторы If............... 60
Вложенные циклы............................ 84
Внешние устройства компьютера 225
Внешняя память.................. 225, 227
внутренних констант................. 106
возведение в степень........................ 43
всплывающая подсказка................ 18
выбор.......................................... 53, 221
выводится....................................... 158
вызовомпроцедуры............ 103, 216
вызывает.......................................... 225
выражения........................................ 36
Выход из Visual Basic...................... 28
Г
глобальной..................................... 228
Глобальные (общедоступные) константы 183
Глобальные (общедоступные) переменные 182
Глобальные (общедоступные) процедуры 182
горизонтальной полосе прокрутки 151
Д
данными.......................................... 224
двумерным массивом................. 139
Действия арифметики...................... 43
Дельфи................................................ 218
дерево................................................ 233
десятичных дробей.......................... 44
Джава................................................ 218
Джойстик......................................... 226
Дискета............................................ 227
дискеты................................... 214, 223
дисковод.......................................... 227
дисководы........................................ 223
дисплей............................................ 226
дистрибутивный) пакет............... 33
документами.................................. 231
дорожкой......................................... 233
доступ к локальным дискам........ 201
Дуга...................................................... 96
Дуга эллипса.................................... 96
Е
если....................................................... 54
Ж
жесткий диск........................... 223, 227
З
загружается..................................... 158
загружают........................................ 225
Загрузка Visual Basic....................... 28
Загрузка программы........................ 28
Загрузка проекта.............................. 29
закладка.......................................... 156
закладка alphabetic............................. 16
закладка categorized........................... 16
закрытие проекта............................. 12
записывается................................. 158
записью............................................ 145
записями.......................................... 204
запятая................................................. 50
запятой................................................ 18
запятыми............................................. 44
Затенение......................................... 183
Зацикливание.................................. 68
звуковая карта................................ 227
знак сравнения................................... 56
значением функции.................... 164
значениями переменной величины 36
Значки.............................................. 230
Зоны видимости констант и типов 182
Зоны видимости переменных..... 181
Зоны видимости процедур.......... 182
И
и. 60
иконки................................................ 89
ИЛИ...................................................... 61
именах................................................. 43
имя.............................................. 16, 231
иначе.................................................... 54
индексами....................................... 137
индексированные переменные 137
Индукция.......................................... 168
Инкапсуляция.................................. 187
инсталляционный пакет............. 33
инсталляция................................ 27, 33
Интернет........................................... 198
исходные данные......................... 224
К
каталог............................................. 232
кино...................................................... 25
Клавиатура..................................... 225
клавиатурой.................................... 127
клавиатуры...................................... 223
клавиши перемещения курсора 235
классы объектов........................... 135
классы) объектов............................. 30
ключ.................................................. 147
кнопка максимизации...................... 19
кнопка минимизации....................... 19
кнопку................................................ 10
Кнопку............................................... 201
Кодирование информации в компьютере 228
кодом................................................... 12
Коллекция........................................ 147
команд.............................................. 213
команда........................................... 218
командным режимом................. 215
Комментарии................................... 25
Компакт-диски............................. 227
компьютер....................................... 214
компьютерной сетью.................. 228
Константами.................................. 106
константой..................................... 106
контейнерами................................ 148
контекстное меню.......................... 29
Копирование................................... 236
Копируем объекты....................... 115
корень квадратный.......................... 44
Курсив.................................................. 51
Л
Лазерный принтер....................... 226
Лисп................................................... 218
логические операции.................... 60
логическим диском........................ 233
логическими выражениями....... 61
Лого........................................... 218, 219
локальной....................................... 228
Локальные константы модуля... 183
Локальные константы процедуры 182
Локальные переменные модуля. 182
Локальные переменные процедуры 182
Локальные процедуры модуля.. 182
локальным диском.......................... 201
локальными переменными подпрограммы 165
локальными переменными формы 165
М
максимальное.................................... 86
маркеров............................................ 11
массив............................................... 137
массива объектов......................... 142
Массивы........................................... 137
Массивы как параметры.............. 167
Массивы элементов управления 142
Математика....................................... 43
Матричный принтер................... 226
машинном языке.......................... 217
меню..................................................... 23
метка.................................................... 17
Метка.................................................. 68
Метод................................................... 87
метод пузырька............................. 170
методами объекта......................... 187
Микрофон....................................... 226
минимальное...................................... 86
многострочный (или блочный) оператор If 58
моделированием........................... 121
модель............................................... 121
Модем................................................ 228
модема.............................................. 214
модуле класса................................ 190
модуль................................................. 44
модуль кода.................................... 180
Монитор........................................... 226
Музыка................................................ 19
Мультфильм.................................... 123
Мышь................................................ 225
мышью............................................... 125
Н
надпись.............................................. 16
Название (начертание) шрифта.. 51
наследование................................. 197
настраивать среду Visual Basic.. 32
НЕ......................................................... 61
несколькими формами.................. 179
несколько проектов....................... 181
О
обращениемк процедуре... 103. См.
Объект.............................................. 187
Объектные переменные................ 146
объекты................................................ 9
Объекты, как параметры процедур 171
объявлять переменные величины 39
Окна отладки..................................... 77
окне свойств объекта.................... 16
Окно Immediate.................................. 80
окно кода........................................... 11
округление.......................................... 44
окружность......................................... 93
Окружность...................................... 96
оперативная память..................... 223
Оперативная память............... 40, 224
оперативной памяти............. 224, 227
оператор........................................... 218
Оператор варианта.......................... 62
Оператор перехода.......................... 67
оператор цикла................................. 70
операторами....................................... 9
оператором MsgBox........................ 65
оператором присваивания......... 36
операционной системы............. 225
ОС....................................................... 225
остаток от целочисленного деления.......... 43
открыт.............................................. 159
открытие............................................. 12
отладки................................................ 77
отладкой...................................... 9, 220
отрезок прямой.................................. 93
Отрезок прямой............................... 94
отсортирована............................... 204
ошибках.............................................. 13
ошибок.............................................. 162
П
памяти............................................... 224
память................................................ 223
панели инструменов..................... 11
Панель задач.................................. 230
Панель инструментов...................... 32
папка................................................ 232
параметрами........................... 94, 108
параметрами процедуры........... 107
пароль.................................................. 65
передача параметров по ссылке 168
передачей параметров по значению 168
переименовать................................. 29
Переключатель............................... 150
переменной величиной................... 36
переменной величины..................... 36
переменной цикла......................... 75
переменные............................... 42, 105
переменные величины..................... 98
переместить...................................... 29
Перемещение................................... 236
Перечеркнутый шрифт.................. 51
перечислимым типом данных.... 119
периферийными........................... 225
персональном компьютере...... 223
пиксел...................................... 217, 229
пиктограммы................................... 89
Плоттер............................................. 227
подпрограммами.......................... 165
Подчеркнутый шрифт.................... 51
поиска.............................................. 204
Полиморфизм................................ 197
полосу прокрутки........................ 233
Полужирный шрифт....................... 51
пользователем............................... 214
пользовательский класс объектов 189
пользовательскому типу данных 144
полями.............................................. 204
постоянном запоминающем устройстве 225
пошаговым режимом.................... 41
префиксы........................................ 184
привязан.......................................... 207
Принтер............................................ 226
принтером....................................... 214
провайдером.................................. 198
Проводник........................................ 232
Программа....................................... 217
программистом............................. 214
программным режимом............. 216
программой................................ 9, 213
проектом.............................................. 9
прозрачном цвете........................... 124
Пролог............................................... 218
Простой Combo.............................. 153
процедур обработки событий. 103
процедурами.............................. 9, 101
процедурами пользователя...... 103
процедурой..................................... 216
процедуры........................................ 221
Процедуры с параметрами......... 106
процессор......................................... 223
прямоугольник............................... 94
путем................................................. 233
Р
рабочим столом............................. 230
Разветвляющиеся программы....... 53
разделить............................................ 43
размер шрифта.................................. 17
Размер шрифта................................ 51
Рамка................................................ 148
Раскрывающийся Combo............. 153
Раскрывающийся список............. 152
расширением................................. 232
регистре............................................ 234
режиме прерывания...................... 41
режиме проектирования.............. 11
режиме работы................................. 11
Режимы отладки............................... 77
результат.......................................... 224
Рекурсия............................................ 168
С
Свойства только для чтения....... 196
свойствами......................................... 87
свойствами объекта..................... 187
свойство............................................. 11
Связь компьютеров между собой 228
Сектор круга.................................... 96
Сектор эллипса................................ 96
Сети.................................................... 228
сжатием.............................................. 96
символ.............................................. 228
синтаксис............................................ 55
синтаксической схемы................. 56
система координат........................... 22
системе координат........................... 22
системный блок.............................. 223
системой управления базой данных 145
системы управления базами данных 204
Сканер.............................................. 226
Скобки................................................. 43
скопировать..................................... 29
слое....................................................... 92
случайное число............................... 44
Случайные величины...................... 57
случайных величин....................... 100
Собственные процедуры............. 221
событие............................................... 20
событий............................................... 87
событиями........................................... 9
создание.............................................. 12
Сообщения об ошибках.................. 77
сортировкой................................... 170
Сохранение........................................ 12
Сохранение программы................. 28
список............................................... 152
Список команд................................ 215
среде..................................................... 27
средой программирования........... 5
средой разработки программ....... 5
стартовое меню............................. 230
статической переменной........... 167
стиль..................................................... 17
Строка состояния......................... 156
Строки............................................... 157
Строковые переменные.................. 49
строку.................................................. 49
Струйный принтер...................... 226
Ступенчатая запись программы.. 59
СУБД................................................. 204
Сумматор........................................... 83
сценарием....................................... 200
Счетчик.............................................. 82
счетчиком циклов.......................... 74
Т
Таймер.............................................. 112
тангенс.............................................. 44
тащить.............................................. 231
твип...................................................... 22
тега..................................................... 199
текстовое поле........................... 11, 52
Текстовое поле................................ 201
текстовом редакторе..................... 233
текстовый курсор......................... 234
текстовым файлом......................... 158
текущей папки.............................. 161
телом процедуры........................... 103
телом цикла............................... 68, 71
тип........................................................ 39
Типы графических файлов............. 89
Типы данных..................................... 45
Типы ошибок..................................... 77
то........................................................... 54
Точка................................................... 94
точка с запятой................................. 50
точками............................................... 44
Точки прерывания........................... 78
точку.................................................... 18
точность вычислений...................... 45
У
Удаление.......................................... 237
узлами............................................... 198
умножить............................................ 43
управление возвращается......... 225
управление передается.............. 225
условие................................................. 56
Условный оператор......................... 53
установка.......................................... 33
Устройства ввода......................... 225
Устройства вывода............. 225, 226
Ф
файлами с последовательным доступом 158
файлом............................................. 231
файлы с произвольным доступом 161
фильтрацией.................................. 204
флажков........................................... 149
фокус................................................... 88
форма.................................................. 10
Форма как объект........................... 196
Форматирование.............................. 46
фото...................................................... 19
функции MsgBox............................. 65
функции пользователя.............. 164
Ц
цвет....................................................... 92
цвет объекта....................................... 18
цвет текста.......................................... 18
Цвет шрифта.................................... 51
целая часть числа............................ 44
целое число....................................... 39
целочисленное деление.................. 43
центральный процессор............... 223
цикл............................................ 67, 221
Цикл...................................................... 67
Циклические программы................ 67
Ч
чисел Фибоначчи............................. 137
читает................................................ 158
Ш
шина................................................... 223
шрифт................................................... 17
Э
экземпляр класса......................... 189
экспоненциальномилинаучном формате 46
Эллипс................................................ 96
Я
Ява...................................................... 218
язык программирования............... 218
ячейки.................................................. 41
ячейкой.............................................. 40
[*] Для тех, кто не знаком с радианами, поясню, что в одном радиане 180/p градусов, где p=3.14
[†] Когда я проверял этот пример, оказалось, что правая клавиша Alt ведет себя не так, как положено.
[‡] Имейте в виду, что я дал частное определение программы и алгоритма. В общем случае они определяются, как набор правил для получения нужного результата.
] Строго говоря, процедуры не являются составной частью языка, однако, вы должны знать, что держа в руках компакт-диск с надписью “Visual Basic” или «C++» или какой-либо другой язык, вы держите в руках целый комплекс программ, который содержит и большое количество этих самых процедур и средства для удобной разработки ваших программ с их использованием.
[§] Программа на машинном языке представлена по-другому.
[**] Опять же, числа в компьютере далеко не всегда состоят из символов-десятичных цифр. Когда компьютер производит над числами арифметические и другие операции, числа представлены совсем по-другому.
| <== previous lecture | | | next lecture ==> |
| Под водою мой двойник. | | | Домашнее задание Векторная алгебра |