Написать программу по блок-схеме - VB
Формулировка задачи:
Дана блок схема.
По ней нужно написать программу.
Решение задачи: «Написать программу по блок-схеме»
textual
Листинг программы
Dim x, n
x = Val(TextBox1.Text)
If x <= 100 And x >= -100 Then
For n = 1 To 3
x = x + 2 * n - 1
Next
If x > 15 Then
Label2.ForeColor = Color.Red
Else
Label2.ForeColor = Color.Blue
End If
Label1.Visible = True
Label2.Text = x
Label2.Visible = True
Else
MsgBox("X должен быть в диапазоне [-100;100]")
TextBox1.Text = ""
End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д