Достаточно воспользоваться формулой N=2 в степени i
<em>Где n - количество цветов, а i - глубина цвета
</em>подставим значения:
1) N=2 в степени i(в нашем случае 4)
N=16 б - кол-во цветов при глубине цвета 4
2) N = 2 в восьмой степени
N = 256
3) N = 2 в 16 степени
N = <span>65536
</span>4) N = 2 в 24 степени
N = 16777216
5) N = 2 в 32 степени
N= 4294967296
1. Строка получается слишком длиной, поэтому разбиваем ее на две части
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
If Len(s1) < 1024 Then
s1 = s1 & i & " "
Else
s2 = s2 & i & " "
End If
End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
<span>End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
Cells(n, 1) = i
End If
Next i
MsgBox ("Их количество: " & n)
<span>End Sub</span>
2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
</span>p = 1
For i = 1 To k
p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub
1)Скорость передачи на далекие растояния!
2)Быстрая передача сообщения!
3)Собеседник может сразу ответить!
Будет выведена только 9(как строка)
Так как переменная I у тебя задается числом 5, а в условии цикла i строго меньше 5
Соотвественно он не будет просто исполнятся
я думаю что вариант а будет правильным. удачи