Предметный указатель 1 страница

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.

4)

3)

2)

1)

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.

9.

8.

7.

6.

5.

2.

1.

Решение заданий

Private Sub Квадрат_Click()

Результат.Text = Val(Число1.Text) * Val(Число1.Text)

End Sub

Private Sub СБРОС_Click()

Число1.Text = ""

Число2.Text = ""

Результат.Text = ""

End Sub

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

Будет напечатано число 211.

· 1001

· -100

· 15 -10

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

For k = 3 To 8

For l = 0 To 7

Debug.Print k; l

Next l

Next k

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

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

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 'возвращаем обычную толщину линий и точек

Дата добавления: 2014-12-23