文本框多次输入的时候，每次LISTBOX都是出现的第一次输入的数，如何改

文本框多次输入的时候，每次LISTBOX都是出现的第一次输入的数，怎么改啊
[code=vb][For p = 1 To 10
            s = TextBox1.Text
            i = Val(TextBox2.Text)
            j = Val(TextBox3.Text)
            k = Val(TextBox4.Text)
            q = (i + j + k) / 3
            lstNames.Items.Add(TextBox1.Text + vbTab + q.ToString)
            m = ((p - 1) * m + q) / p
            TextBox5.Text = m.ToString
            Next(p)]
十次的结果都是第一次输入的结果，怎样才可以输入一次，出现一个平均数，再输入一次，再接着出现一个平均数，这样输10次，listbox里有十个求出的平均数啊？ vb
[解决办法]
不太明白你的意思，你用for就是连续循环10次，想一次次求平均数，把for删了不就行了