Начертить блок-схему по коду в visual basic

Системное программированиеЗакрыт4 заявки169 просмотров
Найдите исполнителя для вашего проекта прямо сейчас!
Разместите заказ на фриланс-бирже и предложения поступят уже через несколько минут.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        Dim a(,), b(,), c(,) As Single

        Dim k, i, j, m, n, max, r, z, x As Integer

        m = InputBox("m")

        n = InputBox("n")

        ReDim a(m, n)

        k = InputBox("Введите значение k")

        For i = 1 To m

            For j = 1 To n

                a(i, j) = InputBox("(" & i & ")", "(" & j & ")")

                TextBox1.AppendText(a(i, j) & vbTab)

            Next j

            TextBox1.AppendText(vbCrLf)

        Next i

        For z = 1 To m

            For i = 1 To m

                r = 0

                x = 1

                For j = 0 To n

                    If a(i, j) > 0 Then

                        x = a(i, j) * x

                    Else

                        r = r + 1

                    End If

                Next j

                If r = i Then

                    c(z) = 0

                Else

                    c(z) = x

                End If

            Next i

            TextBox1.AppendText(c(z) & vbTab)

        Next z

        TextBox2.AppendText("Число элементов=" & r & vbTab)

    End Sub

End Class

Visual Basic
5 лет назад
guest_15420405360839
5 лет в сервисе
Был
5 лет назад