сделать блок схему для Visual Basic
Public Class Form1
Public Function fact(n As Integer) As Long
Dim x As Integer, i As Integer
x = 1
For i = 1 To n
x *= i
Next
fact = x

End Function

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Label1.Text = fact(Val(TextBox1.Text))
End Sub
End Class

LalkaZEKA    2   13.05.2020 22:15    1