Объяснение:
Ингредиенты для «Кулич пасхальный "Мой идеал"»:
Молоко — 1 л
Дрожжи (прессованные (свежие)) — 100 г
Мука пшеничная / Мука (на всякий случай иметь больше) — 3 кг
Яйцо куриное — 10 шт
Сахар (15 ст.л. - в опару + 3 или 4 стакана в тесто)
Маргарин (или сливочное масло) — 500 г
Ванильный сахар — 4 пакет.
Изюм — 1 стак.
Водка — 3 ст. л.
Соль (щепотка)
Корица (по вкусу (на кончике ножа))
Орех мускатный (по вкусу (на кончике ножа))
Белок яичный (охлажденный - для глазури) — 2 шт
Сахарная пудра (для глазури до 2-ух стаканов) — 1 стак.
Сок лимонный (несколько капель (по желанию) - для глазури)
Посыпка кондитерская (у меня кругленькая и продолговатая по 15 г в упаковке) — 6 пач.
Пищевая и энергетическая ценность:
Готового блюда
ккал
18491.1 ккал белки
461.3 г жиры
469.3 г углеводы
3143.2 г
100 г блюда
ккал
294 ккал белки
7.3 г жиры
7.5 г углеводы
50 г
Подробнее - на -
Private Sub CommandButton1_Click()
Dim s As Integer, z As Integer
Dim t As String
t = "Для оплате в кассе необходимы:"
s = CInt(InputBox("Введите сумму оплаты"))
Do While s > 0
If s >= 500 Then
s = s - 500: k = k + 1
ElseIf s >= 200 Then
s = s - 200: m = m + 1
ElseIf s >= 100 Then
s = s - 100: n = n + 1
ElseIf s >= 50 Then
s = s - 50: z = z + 1
ElseIf s >= 10 Then
s = s - 10: v = v + 1
ElseIf s >= 5 Then
s = s - 5: h = h + 1
ElseIf s >= 2 Then
s = s - 2: f = f + 1
ElseIf s >= 1 Then
s = s - 1: d = d + 1
End If
Loop
If k > 0 Then
t = t + " " & k & " по 500 рублей, "
t = t + " " & m & " по 200 рублей, "
t = t + " " & n & " по 100 рублей, "
t = t + " " & z & " по 50 рублей, "
t = t + " " & v & " по 10 рублей, "
t = t + " " & h & " по 5 рублей, "
t = t + " " & f & " по 2 рублей, "
t = t + " " & d & " по 1 рублей, "
Cells(10, 1) = t
End If
End Sub
