83. В компьютер вводится ровно 200 чисел. Компьютер должен подсчитать и один раз напечатать, сколько среди них положительных.

Private Sub Command2_Click()

c = 0 'Обнуляем счетчик

For i = 1 To 200

a = InputBox("Введите очередное число")

If a > 0 Then c = c + 1

Next i

Debug.Print "Из них положительных -"; c

End Sub

84. В компьютер вводится ровно 200 чисел. Компьютер должен подсчитать и один раз напечатать, сколько среди них положительных чисел и сколько нулей.

Private Sub Command3_Click()

c_полож = 0 'Обнуляем счетчик положительных чисел

c_нулей = 0 'Обнуляем счетчик нулей

For i = 1 To 200

a = InputBox("Введите очередное число")

If a > 0 Then c_полож = c_полож + 1

If a = 0 Then c_нулей = c_нулей + 1

Next i

Debug.Print "Из них положительных -"; c_полож, "Нулей -"; c_нулей

End Sub

85. В компьютер один за другим вводятся произвольные символы. Ввод заканчивается символом "/". Подсчитать, какой процент от общего числа введенных символов составляют символ "W" и символ ":" по отдельности.

Private Sub Command4_Click()

Dim i As Integer, cW As Integer, cDv As Integer

Dim procent_W As Integer, procent_Dv As Integer

Dim simvol As String

i = 0: cW = 0: cDv = 0 'Обнуляем все три счетчика

Do

simvol = InputBox("Введи символ")

If simvol <> "/" Then i = i + 1 'Если это не /, то "посчитай" его

Select Case simvol

Case "W" 'Если это W, то

cW = cW + 1 'увеличь счетчик символов W

Case ":" 'Если это : , то

cDv = cDv + 1 'увеличь счетчик символов :

Case "/" 'Если это /, то

Exit Do 'завершай работу цикла

End Select

Loop

procent_W = Round(100 * cW / i) 'Вычисляй процент символов W

procent_Dv = Round(100 * cDv / i) 'Вычисляй процент символов :

Debug.Print procent_W, procent_Dv

End Sub

86. В компьютер вводится n чисел. Вычислить и один раз напечатать их сумму.

Private Sub Command2_Click()

N = InputBox("Сколько чисел будем складывать?")

s = 0

For i = 1 To N

a = InputBox("Введите очередное число")

s = s + a

Next i

Debug.Print "Сумма равна"; s

End Sub

87. Таблица умножения

For a = 1 To 10

For b = 1 To 10

proizv = a * b

Print a; "*"; b; "="; proizv;

Next b

Print

Next a

88. Поиск максимального из чисел

Private Sub Command1_Click()

Max = InputBox("Введите число") 'первую рыбу - в ведро

For i = 2 To 10 'ловим остальных рыб:

chislo = InputBox("Введите число") 'поймали очередную рыбу

If chislo > Max Then Max = chislo 'и если она больше той, что в ведре, бросаем ее в ведро

Next i

Debug.Print Max 'несем самую большую рыбу домой

End Sub

89. Двумерный массив

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

'Выполняем 1 пункт задания:

Debug.Print t(2, 4), t(3, 1)

'А теперь распечатаем второй столбец массива (2 пункт задания):

For i = 1 To 3: Debug.Print t(i, 2): Next

'Определим среднее значение элементов третьей строки (3 пункт задания):

i = 3

s = 0

For j = 1 To 4: s = s + t(i, j): Next

Debug.Print s / 4

'Распечатаем всю таблицу (4 пункт задания):

For i = 1 To 3

For j = 1 To 4

Debug.Print t(i, j),

Next j

Debug.Print

Next i

'Распечатаем станции и дни с температурой 24-26 градусов (5 пункт задания):

For i = 1 To 3

For j = 1 To 4

If t(i, j) >= 24 And t(i, j) <= 26 Then Debug.Print "Станция"; i; "день"; j

Next j

Next i

End Sub

68