S
stasik90
Private Sub Form_Load()
Label1.Caption = ""
Label1.Font.Size = 18
Dim mas(9, 9), i, j As Double
For i = 0 To 9
For j = i To 9
mas(i, j) = (i + 1) * (j + 1)
Label1.Caption = Label1.Caption & mas(i, j) & Space(5 - Len(Str(mas(i, j))))
Next j
Label1.Caption = Label1.Caption & Chr(13)
Next i
End Sub
что делает красная строчка?
Label1.Caption = ""
Label1.Font.Size = 18
Dim mas(9, 9), i, j As Double
For i = 0 To 9
For j = i To 9
mas(i, j) = (i + 1) * (j + 1)
Label1.Caption = Label1.Caption & mas(i, j) & Space(5 - Len(Str(mas(i, j))))
Next j
Label1.Caption = Label1.Caption & Chr(13)
Next i
End Sub
что делает красная строчка?