Самый тяжёлый груз

Программа обеспечивает ввод веса заданного количества грузов и определяет вес самого тяжёлого из них и его номер в последовательности. Для обработки данных используется цикл типа FOR . . . NEXT.

Public Class Form1

Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click

Dim P, Pmax As Single, N, Nmax, I As Integer

TB2.Text = ""

N = CInt(TB1.Text)

Pmax = InputBox("Введите вес 1 груза")

TB2.Text = CStr(Pmax) & vbNewLine

Nmax = 1

For I = 2 To N

P = InputBox("Введите вес " & CStr(I) & " груза")

TB2.Text = TB2.Text & CStr(P) & vbNewLine

If P > Pmax Then

Pmax = P

Nmax = I

End If

Next I

LB1.Text = CStr(Pmax)

LB2.Text = CStr(Nmax)

End Sub

End Class