用函数?不用就可以Dim a, b, n As IntegerPrivate Sub Form_Load()n = 50For a = 1 To nb = a * (a + 1) + bNextText1.Text = bEnd Sub