Возможна ли Блок-схема по данному макросу(Excel) - VBA
Формулировка задачи:
Возможна ли Блок-схема по данному макросу(Excel):
Листинг программы
- Private Sub CommandButton1_Click()
- Dim a As Single, b As Single, c As Single
- Dim k As Integer
- a = Val(TextBox1)
- b = Val(TextBox2)
- c = Val(TextBox3)
- k = 0
- If a Mod 7 = 1 Then k = k + 1
- If b Mod 7 = 1 Then k = k + 1
- If c Mod 7 = 1 Then k = k + 1
- Label4.Caption = "Количество тех чисел,которые при делении на 7 дают остаток 1. РАВНО:" & k
- End Sub
Решение задачи: «Возможна ли Блок-схема по данному макросу(Excel)»
textual
Листинг программы
- Label4.Caption = "Количество тех чисел,которые при делении на 7 дают остаток 1. РАВНО:" & k
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д