因为你定义个ss是数值型数据 它们的初始值空即是0你可以不要在form_load中给text1.text赋值想等返回后继续显示ss值可在 form.show 之前给text1赋值如form1.text1.text=ssform1.show
Private Sub Form_Load() Text1.Text =""End SubPrivate Sub Text1_Change() ss = Text1.Text End Sub