魔兽青龙寺在哪:vb文本框的问题?

学号 高数 英语
0000001 10 30
0000002 10 30
0000003 10 30
要在一个文本框(text1)中显示以上效果,也就是我在二个文本框中输入高数和英语,然后确点,上面显示我输入的学号0000002和高数英语,新输入的数据会在旧数据的下面.但上面的文件不会再出现?我做的是:
Private Sub Form_Activate()
Text1 = "学号" & Space(4) & "高数" & Space(4) & " 英语" & Space(4) _
& "平均值" & vbCrLf
End Sub
Private Sub Command1_Click()
Text1 = Text1 & Format(Text1, "0000000") & _
Format(Text2.Text, "@@@@") & Space(4) & Format(Text3.Text, "@@@@") _
& Space(4) & Text4.Text & Space(4) _
& Format((Val(Text3) + Val(Text4)) / 2, "@@@@") & vbCrLf
End Sub
三次输入数据结果是
学号 高数 英语 平均值
学号 高数 英语 平均值
0000001 10 20 15
学号 高数 英语 平均值
学号 高数 英语 平均值
0000001 10 20 15
0000002 10 20 15
学号 高数 英语 平均值
学号 高数 英语 平均值
0000001 10 20 15
学号 高数 英语 平均值
学号 高数 英语 平均值
0000001 10 20 15
0000002 10 20 15
0000003 10 20 15