Private Sub Command1_Click()
Dim a, b(1 To 18), i, j
a = Array(16, 16, 24, 40, 46, 74, 89, 94, 105, 129, 149, 147, 158, 190, 187, 177, 191, 203, 205, 218)
i = UBound(a) - 1
For j = 1 To i
 b(j) = 0.25 * a(j - 1) + 0.5 * a(j) + 0.25 * a(j + 1)
Print b(j)
Text1.Text = b(j)
 Next j

 
End Sub

把Text1的MultiLine属性设为True
Private Sub Command1_Click()
    Dim a, b(1 To 18), i, j
    a = Array(16, 16, 24, 40, 46, 74, 89, 94, 105, 129, 149, 147, 158, 190, 187, 177, 191, 203, 205, 218)
    i = UBound(a) - 1
    For j = 1 To i
        b(j) = 0.25 * a(j - 1) + 0.5 * a(j) + 0.25 * a(j + 1)
        Print b(j)
        Text1.Text = Text1.Text & vbCrLf & b(j)        '修改了这里
    Next j
End Sub

可以了，谢谢。